最简单的 Send Email - 达人(在海水中游泳)

2006/03/19 | 最简单的 Send Email
类别(语言类学习笔记) | 评论(0) | 阅读(43) | 发表于 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('发送完毕！'); //发送完时显示提示信息; 0