Форум по программированию Delphi Sources

 



Вернуться   Форум по программированию Delphi Sources > Разное > Исходники и статьи
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 11.02.2011, 14:48
Аватар для Admin
Admin Admin вне форума
Администратор
 
Регистрация: 03.10.2005
Адрес: Россия, Москва
Сообщения: 1,452
Версия 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
Ответить с цитированием
Ответ



Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 12:10.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources", 2004-2020

ВКонтакте   Facebook   Twitter