outlook邮件正文插入变成改写.docVIP

outlook邮件正文插入变成改写 篇一：用Outlook发邮件的时候,是可以将一个Html网页粘贴到新邮件的正文,正常发送 unitSendForm; interface usesWindows,SysUtils,Classes,Graphics,Forms,Controls,Menus, StdCtrls,Dialogs,Buttons,Messages,ExtCtrls,ComCtrls, Psock,NMsmtp,IdComponent,IdTCPConnection,IdTCPClient, IdMessageClient,IdSMTP,IdBaseComponent,IdMessage; type TMainForm=class(TForm) Panel2:TPanel; reMessageText:TRichEdit; Panel1:TPanel; Label1:TLabel; eName:TEdit; Splitter1:TSplitter; ListLog:TListBox; Label2:TLabel; eSubject:TEdit; Label3:TLabel; BbtnAddToList:TButton; ListAddr:TListBox; BtnRemove:TButton; BtnFind:TButton; Label5:TLabel; eFrom:TEdit; BtnSendAll:TButton; eServer:TEdit; MailMessage:TIdMessage; Mail:TIdSMTP; Label4:TLabel; Label6:TLabel; eUserName:TEdit; Password:TLabel; ePassword:TEdit; procedureFormCreate(Sender:TObject); procedureFormClose(Sender:TObject;varAction: procedureBtnSendAllClick(Sender:TObject); procedureBbtnAddToListClick(Sender:TObject); procedureBtnRemoveClick(Sender:TObject); procedureBtnFindClick(Sender:TObject); procedureMailConnected(Sender:TObject); procedureMailDisconnected(Sender:TObject); TCloseAction); procedureMailStatus(axSender:TObject;constaxStatus:TIdStatus; constasStatusText:String); procedureMailWorkBegin(Sender:TObject;AWorkMode:TWorkMode; constAWorkCountMax:Integer); procedureMailWorkEnd(Sender:TObject;AWorkMode:TWorkMode); private FileName:string; end; var MainForm:TMainForm; implementation {$R*.DFM} procedureTMainForm.FormCreate(Sender:TObject); begin //loadthelistofaddresses FileName:=ChangeFileExt(Application.ExeName,#39;.txt #39;); ListAddr.Items.LoadFromFile(FileName); ListLog.Items.Add( #39;Addresses:#39;+IntToStr( ListAddr.Items.Count)); //selectthefirstitem ListAddr.ItemIndex:=0; end; procedureTMainForm.FormClose(Sender:TObject;varAction:TCloseAction); begin //savethelistofaddresses ListAddr.Items.SaveToFile(FileName); end; const BccInMsg=30; procedureTMainForm.BtnSendAllClick(Sen