Текущий архив: 2003.05.12;
Скачать: 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 вся ветка
Текущий архив: 2003.05.12;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.012 c
