Отправить Email через OutlookDelphi , Интернет и Сети , Почтовый клиентОтправить Email через Outlook
Оформил: DeeCo uses ComObj; procedure TForm1.Button16Click(Sender: TObject); const olMailItem = 0; olByValue = 1; var OutlookApp, MailItem, MyAttachments: OLEVariant; begin try OutlookApp := GetActiveOleObject('Outlook.Application'); except OutlookApp := CreateOleObject('Outlook.Application'); end; try MailItem := OutlookApp.CreateItem(olMailItem); MailItem.Recipients.Add('YourMailAddress@something.com'); MailItem.Subject := 'Your Subject'; MailItem.Body := 'Your Message'; myAttachments := MailItem.Attachments; myAttachments.Add('C:\SomeFile.txt', olByValue, 1, 'Name of Attachment'); MailItem.Send; finally myAttachments := VarNull; OutlookApp := VarNull; end; end; Статья Отправить Email через Outlook раздела Интернет и Сети Почтовый клиент может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Почтовый клиент ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |