Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум программистов _ Delphi - СОМ _ Манипуляции с Outlook'ом

Автор: Mick Winder 30:04:2008, 12:57

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

Автор: Mick Winder 5:05:2008, 11:48

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

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;