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

Тема в разделе "Delphi - СОМ", создана пользователем Mick Winder, 30 апр 2008.

Статус темы:
Закрыта.
  1. Mick Winder

    Mick Winder Гость

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

    Mick Winder Гость

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

    Код (Text):
    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;
     
Загрузка...
Похожие Темы - Манипуляции Outlook'ом
  1. Antigo
    Ответов:
    10
    Просмотров:
    2.244
Статус темы:
Закрыта.

Поделиться этой страницей