用outlook发邮件的时候是可以将一个html网页粘贴到新邮件的正文正常发送

用outlook发邮件的时候是可以将一个html网页粘贴到新邮件的正文正常发送

ID:34783885

大小:84.68 KB

页数:10页

时间:2019-03-10

用outlook发邮件的时候是可以将一个html网页粘贴到新邮件的正文正常发送_第1页
用outlook发邮件的时候是可以将一个html网页粘贴到新邮件的正文正常发送_第2页
用outlook发邮件的时候是可以将一个html网页粘贴到新邮件的正文正常发送_第3页
用outlook发邮件的时候是可以将一个html网页粘贴到新邮件的正文正常发送_第4页
用outlook发邮件的时候是可以将一个html网页粘贴到新邮件的正文正常发送_第5页
资源描述:

《用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

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。