资源描述:
《用outlook发邮件的时候是可以将一个html网页粘贴到新邮件的正文正常发送》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、unit SendForm;interfaceuses Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus, StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, Psock, NMsmtp, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, IdBaseComponent, IdMessage;t
2、ype TMainForm = class(TForm) Panel2: TPanel; reMessageText: TRichEdit; Panel1: TPanel; Label1: TLabel; eName: TEdit; Splitter1: TSplitter; ListLog: TListBox; Label2: TLabel; eSubject: TEdit; Label3: TLabel; BbtnAddToList: TButto
3、n; ListAddr: TListBox; BtnRemove: TButton; BtnFind: TButton; Label5: TLabel; eFrom: TEdit; BtnSendAll: TButton; eServer: TEdit; MailMessage: TIdMessage; Mail: TIdSMTP; Label4: TLabel; Label6: TLabel; eUserName: TEdit; Passw
4、ord: TLabel; ePassword: TEdit; procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure BtnSendAllClick(Sender: TObject); procedure BbtnAddToListClick(Sender: TObject); procedure BtnRemove
5、Click(Sender: TObject); procedure BtnFindClick(Sender: TObject); procedure MailConnected(Sender: TObject); procedure MailDisconnected(Sender: TObject); procedure MailStatus(axSender: TObject; const axStatus: TIdStatus; const asStatusText: String
6、); procedure MailWorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer); procedure MailWorkEnd(Sender: TObject; AWorkMode: TWorkMode); private FileName: string; end;var MainForm: TMainForm;implementation{$R *.DFM}procedur
7、e TMainForm.FormCreate(Sender: TObject);begin // load the list of addresses FileName := ChangeFileExt (Application.ExeName, '.txt'); ListAddr.Items.LoadFromFile (FileName); ListLog.Items.Add ('Addresses: ' + IntToStr ( ListAddr.Items.Count)); // select t
8、he first item ListAddr.ItemIndex := 0;end;procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);begin // save the list of addresses ListAddr.Ite