procedureTForm1.Button1Click(Sender:TObject);
begin
try
IdSMTP1.AuthenticationType:=atLogin;//设置登陆类型
IdSMTP1.Username:=Edit1.Text;//设置登陆帐号
IdSMTP1.Password:=Edit2.Text;//设置登陆密码
IdSMTP1.Host:=Edit3.Text;//设置SMTP地址
IdSMTP1.Port:=strtoint(Edit4.Text);//设置端口必须转化为整型
IdSMTP1.Connect;//开始连接服务器
except
Showmessage(’连接失败,请重试!’);
Exit;//连接失败的话退出该执行过程
end;
IdMessage1.Body.Clear;//先清空上次发送的内容
IdMessage1.Subject:=Edit5.Text;//设置邮件发送的标题
IdMessage1.Body.Assign(Memo1.Lines);//设置邮件发送的主体
IdMessage1.From.Address:=Edit6.Text;//设置邮件的发件人也就是说该邮件来自什么地方
IdMessage1.Recipients.EMailAddresses:=Edit7.Text;//收件人的地址
try
idSMTP1.Send(IdMessage1);
Showmessage(’邮件发送成功!’);
except
Showmessage(’邮件发送失败!’);
end;
end;
或者:
我写了一个发邮件的函数,包你满意
type
TLoginEmailServer=record
SMTPHost:string;
SMTPPort:integer;
Username:string;
Password:string;
SmtpAuthType:integer;
end;
functionSendEmail(poSMTPServer:TLoginEmailServer;poBody:Tstrings;psFromEmial,
psToEmail,psSubject:string;psContentType:string;
CCToEmail:string;poAttachmentPath:TStrings):integer;
var
loIdMsgSend:TIdMessage;
loSMTP:TIdSMTP;
i:integer;
begin
Result:=3;
loIdMsgSend:=nil;
loSMTP:=nil;
try
loIdMsgSend:=TIdMessage.Create(nil);
loSMTP:=TIdSMTP.Create(nil);
withloIdMsgSenddo
begin
ContentType:=psContentType;
From.Text:=psFromEmial;
ReplyTo.EMailAddresses:=psFromEmial;
Recipients.EMailAddresses:=psToEmail;
CCList.EMailAddresses:=CCToEmail;
Subject:=psSubject;
Priority:=mpHigh;
ReceiptRecipient.Text:=’’;
Body.Assign(poBody);
ifAssigned(poAttachmentPath)then
begin
fori:=0topoAttachmentPath.Count-1do
begin
TIdAttachment.Creat(loIdMsgSend.MessageParts,poAttachmentPath.Strings[i]);
end;
end;
end;
withloSMTPdo
begin
Host:=poSMTPServer.SMTPHost;
Port:=poSMTPServer.SMTPPort;
ifpoSMTPServer.SmtpAuthType=1then
AuthenticationType:=atLogin
else
AuthenticationType:=atNone;
Username:=poSMTPServer.Username;
Password:=poSMTPServer.Password;
try
Connect;
Send(loIdMsgSend);
except
result:=2;
exit;
end;
Result:=0;
finally
loIdMsgSend.Free;
loSMTP.Free;
end;
end;
分享到:
相关推荐
用delphi写的一个收发邮件小程序,带源代码。
DELPHI发送邮件源代码,DELPHI发送邮件源代码,DELPHI发送邮件源代码
在Delphi中通过代码实现电子邮件的发送。同时测试了抄送、密送;设置了邮件的重要性,以及上传附件的方法。在Delphi7 Enterprise中测试可以运行。
Delphi 的Indy开发,包含演示程序源代码 1.支持SSL发送邮件; 2.支持32位和64位程序; 3.支持纯文本邮件和 HTML 格式邮件; 4.支持同步发送邮件和异步(线程)发送邮件 5.支持发送结果回调; 6.只需要调用一个函数,...
用Delphi2010 实现邮件附件收发功能 TIdPOP3组件简介 TIdPOP3 是用来接收邮件服务器的邮件信息到用户端的一个组件。它实现了RFC 1939协议。 在使用TIdPOP3组件时需设置它的几个成员属性。 Host :指定邮件服务器,...
一个简单的Delphi7.0 邮件发送示例 含源码文件,将窗口中的邮件主题、收件人、邮件标题、邮件地址等信息填写完毕后,单击按钮即可发送邮件,基于SMTP发邮件的例子。部分代码段先睹为快: Clear; Subject := Edit...
基于 SMTP 的邮件发送程序 Delphi源代码 基于 SMTP 的邮件发送程序 Delphi源代码
简单的发送邮件代码,使用delphi编辑实现,欢迎大家使用
计算机毕业设计 delphi网页邮件抓发系统 delphi源代码+开发文档说明 软件/插件 范文 模板 程序源码
找好好久啊,一直找不到可能发送邮件的代码, 下载“此工具是配合CnWizards专家包工程备份功能使用的邮件发送辅助工具”的文件下来的时候发现在少了OverbyteIcsSmtpProt.dcu文件,在网上好不容易的找到了...
delphi两种方法调用Outlook发邮件 两种方法,第一种会弹出三次询问,而第二种只弹出一次询问,大家有时间可以看看两种方法为什么会有不同的结果。顺便发个邮件告诉我啊。代码里有我的邮件地址。。。呵呵。
Delphi的邮件发送代码. 用INDY中的控件实现.
delphi网页邮件抓发系统的设计与实现(源代码+毕设)
本人收入的一个Delphi7下的IDSMTP控件发送邮件程序与代码
发邮件 3。另存邮件 4。另存附件 5。删除邮件 6。回复邮件 二。帐户操作 1。新建帐户 2。删除帐户 3。帐户设置 三。地址簿操作 1。手动添加地址 2。自动添加地址 3。删除地址 4。地址设置 5。地址回复 功能的...
一个用delphi制作的批量发送电子邮件的工具。如163邮箱的发送。
设计和开发一个基于Delphi的网页邮件抓发系统。该系统将允许用户通过网页界面发送电子邮件,同时可以捕获发送邮件的详细信息。 该系统的设计包括两个主要部分:用户界面和后台数据处理。用户界面将提供一个简单易用...
delphi网页邮件抓发系统.zip