Скачать: CL | DM;

Ошибка при посылке письма через Outlook   Найти похожие ветки 

← →
stone ©   (2003-03-13 09:25) [0]

Не пойму что не так...
procedure TForm1.Button1Click(Sender: TObject);
var
mapi: NameSpace;
MailItem: TMailItem;
_DMailItem: _MailItem;
begin
mapi:= OutlookApplication1.GetNamespace("MAPI");
MailItem.ConnectTo(_DMailItem(mapi.Folders.Item(olPersonal).Folders.Item(olFolderOutbox).Items.Add(olPostItem) as iDispatch)); - здесь выдает [Error] Unit1.pas(34): Missing operator or semicolon
MailItem.Subject:="test for ";
MailItem.to_:= "qqq@mail.ru";
MailItem.Attachments.Add(ExtractFilePath(Application.EXEName)+"test.txt",1,1,EmptyParam);
MailItem.Body:= #13#13 + "Some text" + #13 + MailItem.SenderName;
MailItem.Sensitivity:=olConfidential ;
MailItem.FlagStatus:=olFlagMarked;
MailItem.Save;
end;

---

← →
stone ©   (2003-03-14 09:28) [1]

Up

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.01 c