Поддержка MAPI посредством управляющих элементов ActiveX - часть 2
Элемент управления |
Свойство |
Значение |
Textl |
Name |
txtEmail |
Text2 |
Name |
txtSubject |
RichTextBox1 |
Name |
rtbMessage |
Command 1 |
Name |
cmdSendMail |
|
Caption |
&Send Mail |

MAPISession1.SignOn
With MAPIMessages1
.SessionID = Form1.MAPISession1.SessionID
.Compose
.MsgSubject = txtSubject.Text
.MsgNoteText = rtbMessage.Text
.RecipAddress = txtEmail.Text
.AddressResolveUI = True
. ResolveName
.Send False
End With
MAPISessionI.SignOff
Сообщение будет отправлено Вашей учетной записи в почтовом отделении Windows 95.