Манипуляции с Outlook'ом

  • Автор темы Mick Winder
  • Дата начала
Статус
Закрыто для дальнейших ответов.
M

Mick Winder

#1
Добры вечур!
Подскажите, как сохранить программным способом созданное письмо в папке Черновики и как сохраненное письмо извлечь из папки Черновики для отправки?
 
M

Mick Winder

#2
Добрый день!
Ответа я ни от кого не дождался. Пока ждал, самостоятельно нашел решение. Спешу поделиться.

Код:
var
OuApp: OLEVariant;
OuLog, IM, DBox: Variant;

begin
try
OuApp:= CreateOleObject('Outlook.Application');
except
ShowMessage('Error Outlook...');
end;
OuLog:= OuApp.GetNameSpace('MAPI');
...
// Сохранение письма

IM:= DBox.Items.Add(olMailItem);
IM.Recepients.Add('mick_winder@mick.ru');
IM.Subject:= 'Тябэ писмо!';
IM.Body:= 'Превед! Тябэ медвед пышэ!';
IM.Save; // письмо сохраняется в Черновик
... 
// Отправка письма из Черновика
DBox:= OuLog.GetDefaultFolder(olFolderDrafts);
IM:= DBox.Items(1);
IM.Send;
end;
 
Статус
Закрыто для дальнейших ответов.