| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Отсилка письма с аттачем в MS Outlook [D7, Win2k, WinXP]

RainKMM ©   (2006-09-27 10:05:00) 

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

---

RainKMM   (2006-09-27 10:54:00) [1]

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

---

kyn66   (2006-09-27 10:26:00) [2]

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


...
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;


---

Наверх