Скачать: CL | DM;

Отсилка письма с аттачем в MS Outlook   Найти похожие ветки 

← →
RainKMM   (2006-09-27 10:05) [0]

Здравствуйте, мастера!
У меня такой вопрос: как отослать письмо с аттачем в MS outlook, через outlook express много написано, а вот через outlook ничего найти не могу. помогите плиз.

---

← →
kyn66 ©   (2006-09-27 10:26) [1]

Я использую вот такую технологию


...
const
 olMailItem = 0;
 olByValue = 1;
var
 OutlookApp,
 MailItem,
 MyAttachments : OLEVariant;
 Otp : String;
begin
 try
   OutlookApp := GetActiveOleObject("Outlook.Application");
   Otp := "Отправлено успешно";
 except
   OutlookApp := CreateOleObject("Outlook.Application");
   Otp := "Не отправлено, поставлено в очередь";
 end;

   MailItem := OutlookApp.CreateItem(olMailItem);
   MailItem.Recipients.Add("File1");
   MailItem.Subject := "Заголовок письма";
   MailItem.Body    := "Сопровождение";
   myAttachments    := MailItem.Attachments;
   myAttachments.Add("File1", olByValue, 1, "Отправка файла");
   MailItem.Send;
 finally
   myAttachments := VarNull;
   OutlookApp    := VarNull;
   ShowMessage(Otp);
 end;
end;


---

← →
RainKMM   (2006-09-27 10:54) [2]

Да работает!
большое спасибо!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.029 c