需要发邮件的实例。 我看了不少发邮件的例子,可就是试不出来,特请高手们帮助,请求能够发一个发邮件的实例,谢谢![email protected] 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 需要验证的邮件发送程序,用了indy的TidSMTP和TidMessageunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP;type TForm1 = class(TForm) SMTP1: TIdSMTP; IdMsg: TIdMessage; Button1: TButton; Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit; Label3: TLabel; Memo1: TMemo; Label4: TLabel; Edit3: TEdit; Label5: TLabel; Button2: TButton; Label6: TLabel; Edit4: TEdit; Label7: TLabel; Edit5: TEdit; Label8: TLabel; Edit6: TEdit; OpenDialog1: TOpenDialog; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);beginSMTP1.AuthenticationType := atLogin;SMTP1.userid := edit2.text;SMTP1.Password := edit1.text;SMTP1.Host := edit3.text;SMTP1.Port :=25; try SMTP1.Connect; except Showmessage('连接SMTP服务器失败!'); Exit; end; try with IdMsg do begin body.Clear; Body.Assign(memo1.lines); From.address := edit5.text; Recipients.EMailAddresses :=edit6.text; Subject:=edit4.text end; SMTP1.Send(IdMsg); finally showmessage('发送成功'); SMTP1.Disconnect; end;end;procedure TForm1.Button2Click(Sender: TObject);beginif opendialog1.Execute thenmemo1.Lines.Add(opendialog1.filename);end;end. 关于delphi,gbgrid的取值问题。。 100分+一万分感激求助,请进。。。 VCL中常用消息汇总(欢迎大家踊跃发言,给500分) 问一下关于接口的代理是怎么定义的?? Delphi操作Word的时候如何在Word中插入分页符? 那是什么水平的裁判? 不同类型的运算,急。谢谢! 关于ADOConnection连接时老弹对话框的问题 "明月当空"那个混蛋,我要杀了他,他把我的邮箱密码给盗走了,谁能救救我? 紧急求救,帮忙啊!!! 如何在delphi程序中判断serversql服务管理器有没有启动?另外怎么控制他呢. 使用locate命令出错,请进来看看!
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdMessage, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP;type
TForm1 = class(TForm)
SMTP1: TIdSMTP;
IdMsg: TIdMessage;
Button1: TButton;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Memo1: TMemo;
Label4: TLabel;
Edit3: TEdit;
Label5: TLabel;
Button2: TButton;
Label6: TLabel;
Edit4: TEdit;
Label7: TLabel;
Edit5: TEdit;
Label8: TLabel;
Edit6: TEdit;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
beginSMTP1.AuthenticationType := atLogin;SMTP1.userid := edit2.text;
SMTP1.Password := edit1.text;SMTP1.Host := edit3.text;
SMTP1.Port :=25;
try
SMTP1.Connect;
except
Showmessage('连接SMTP服务器失败!');
Exit;
end;
try
with IdMsg do
begin
body.Clear;
Body.Assign(memo1.lines);
From.address := edit5.text;
Recipients.EMailAddresses :=edit6.text;
Subject:=edit4.text
end;
SMTP1.Send(IdMsg);
finally
showmessage('发送成功');
SMTP1.Disconnect;
end;end;procedure TForm1.Button2Click(Sender: TObject);
begin
if opendialog1.Execute then
memo1.Lines.Add(opendialog1.filename);
end;end.