11.02.2011, 14:48
|
|
Администратор
|
|
Регистрация: 03.10.2005
Адрес: Россия, Москва
Сообщения: 1,564
Версия Delphi: Delphi 7
Репутация: выкл
|
|
Исходник - Пример отправки письма с помощью 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
|