最简单的 Send Email

语言类学习笔记 2006-3-19 23:30

NMSmtp1.Host:=Edit3.Text; //SMTP服务器地址

NMSmtp1.UserID:=Edit4.Text; //你在对应服务器上的注册用户名

NMSmtp1.Connect; //与服务器建立连接

NMSmtp1.PostMessage.FromAddress:=Edit5.Text; //发件人的邮件地址

NMSmtp1.PostMessage.Subject:=Edit2.Text; //邮件主题

NMSmtp1.PostMessage.ToAddress.Add(Edit1.Text); //收件人的邮件地址

NMSmtp1.PostMessage.Attachments.AddStrings(ListBox1.Items); //附件

NMSmtp1.PostMessage.Body.Assign(Memo1.Lines); //邮件的正文

NMSmtp1.SendMail; //发送邮件

NMSmtp1.Disconnect; //断开连接

ShowMessage('发送完毕！'); //发送完时显示提示信息

标签集:TAGS:

回复Comments() 点击Count()

回复Comments

{commentauthor}

{commenttime}

{commentnum}

{commentcontent}

作者:

{commentrecontent}