|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Исходник - Пример отправки письма с помощью MS Outlook
Пример отправки письма с помощью MS Outlook.
Используется COM-сервер Outlook (Automation). Код:
unit fMain; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TfrmMain = class(TForm) btnStartOutlook: TButton; Label1: TLabel; lblEdYourMail: TLabeledEdit; lblEdSubject: TLabeledEdit; mBody: TMemo; Button1: TButton; procedure btnStartOutlookClick(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var frmMain: TfrmMain; implementation uses ComObj; var OutlookApp, SpamNameSpace, MyLetter : OleVariant; {$R *.dfm} {$R WindowsXP.res} procedure TfrmMain.btnStartOutlookClick(Sender: TObject); begin try OutlookApp := CreateOleObject('Outlook.Application'); SpamNameSpace := OutlookApp.GetNameSpace('MAPI'); MyLetter := OutlookApp.CreateItem(0); MyLetter.To := lblEdYourMail.Text; MyLetter.Body := mBody.Text; MyLetter.Subject := lblEdSubject.Text; MyLetter.Attachments.Add(paramstr(0)); //MyLetter.DeleteAfterSubmit := True; MyLetter.Send; finally OutlookApp.Quit; end; end; procedure TfrmMain.Button1Click(Sender: TObject); begin Close; end; end. Автор: Алексей Б, aka Alexei91 |