本文介绍了一个使用Jmail组件发送电子邮件的过程，包括设置邮件的编码、用户名、密码等基本信息，添加邮件主题、正文及附件，并通过指定的SMTP服务器发送邮件。如果在执行过程中出现错误，程序会捕获并打印错误描述。
Sub test2()
On ErrorGoTo Err_test2
Dim Jmail
Set Jmail = CreateObject("jmail.Message")
Jmail.Charset = "gb2312" '设置邮件的编码
Jmail.Silent = False
Jmail.Priority = 1 '设置邮件的重要性
Jmail.MailServerUserName = "username" '设置邮件的用户名
Jmail.MailServerPassWord = "123456" '设置邮件的密码
Jmail.FromName = "AAA" '设置邮件显示的发件人
Jmail.From = "username@exmple.com" '设置你的发件箱
Jmail.Subject = "abcd" '设置你的邮件标题
Jmail.AddRecipient "recevied1@exmple.com" '设置收件人信箱
Jmail.Body = "aaaaaaaa" '设置邮件正文
Jmail.AddAttachment CurrentProject.Path + "\a1.txt" '设置附件
Jmail.Send ("192.168.1.1") '设置SMTP服务器地址
Set Jmail = Nothing '释放
Err_test2:
Debug.Print Err.Description
End Sub
扫一扫
980
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
