学习文章---vb JMail简单使用指南

来源：互联网发布：检查ip端口是否打开编辑：程序博客网时间：2024/06/06 02:54

Sub test2()

OnErrorGoTo 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

EndSub

0 0