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

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 = "[email protected]"  '设置你的发件箱 

    Jmail.Subject = "abcd" '设置你的邮件标题 

     

    Jmail.AddRecipient "[email protected]"   '设置收件人信箱 

     

    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