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

[Mick Winder]

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

 

[Mick Winder]

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

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;