用Delphi设计能携带附件的EMail,用Delphi设计能携带附件的EMail
【 tulaoshi.com - Delphi 】
实现上面讲的功能会不会很难呢？或许以前是这样的，可是现在我们有了Delphi和Indy组件，开发的过程就会像是静坐窗前，一边欣赏窗外的景致，一边品尝着杯中的咖啡一般惬意而自然。现在就让我们双击Delphi，开始这一段愉快之旅吧。
//设置SMTP
SMTP.Host := ledHost.Text; //具体使用的SMTP，可以到你申请的邮箱所在的网站中去找
SMTP.Port := 25;
//设置邮件内容
MailMessage.From.Address := ledFrom.Text;
MailMessage.Recipients.EMailAddresses := ledTo.Text + , + ledCC.Text;
MailMessage.Subject := ledSubject.Text;
MailMessage.Body.Text := Body.Text;
if FileExists(ledAttachment.Text) then
TIdAttachment.Create(MailMessage.MessageParts,
ledAttachment.Text);
//发送邮件
try
try
SMTP.Connect(1000);
SMTP.Send(MailMessage);
except on E:Exception do
StatusMemo.Lines.Insert(0, ERROR: + E.Message);
end;
finally
if SMTP.Connected then
SMTP.Disconnect;
end;
end;
//添加附件代码
procedure TMailerForm.btnAttachmentClick(Sender: TObject);
begin
if AttachmentDialog.Execute then
ledAttachment.Text := AttachmentDialog.FileName;
end;
邮件发送程序的应用十分的广泛，随着宽带的普及，“时刻在线”成为了可能，为你的应用软件加入邮件收发功能将为你的用户带来不少的方便。在软件开发中更多的为用户着想，才能使你的软件真正受到大众的欢迎！
来源:http://www.tulaoshi.com/n/20160129/1493187.html
看过《用Delphi设计能携带附件的EMail》的人还看了以下文章 更多>>
