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

Outlook и HTMLBody   Найти похожие ветки 

← →
Brenagwynn   (2006-03-01 19:07) [0]

Народ! Подскажите плз, что может быть не так в следующем куске кода:

oa := TOutlookApplication.Create(nil);
try
 oa.Connect;
 ns := oa.GetNamespace("MAPI");
 Drafts := ns.GetDefaultFolder(olFolderDrafts);
 lettr := oa.CreateItem(olMailItem) as MailItem;
 lettr.To_ := aTo;
 lettr.Subject := aSubj;
 lettr.HTMLBody := aMessage;
 lettr.Save;
 //lettr.Display;
finally
 ns := nil;
 oa.Free;
end;

В черновиках аутлука формирует пустое письмо, при том, что aMessage точно не пустая. Более того, если раскомментировать вызов lettr.Display, то текст письма показывается. А в папке "Черновики" все равно пустое письмо. WTF?

---

← →
Brenagwynn   (2006-03-01 19:11) [1]

Да, самое интересное забыл написать. Если написать не lettr.HTMLBody := aMessage;, а lettr.Body := aMessage - все ОК (есессно с точностью до того, что письмо выглядит не как HTML).

---

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

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



Память: 0.45 MB
Время: 0.024 c