Отсилка письма с аттачем в 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]

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

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