Добрый день!
Ответа я ни от кого не дождался. Пока ждал, самостоятельно нашел решение. Спешу поделиться.
Код
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;