--用JMail发送邮件

需求：编写一个程序，每日发送指定的文件到指定的邮箱。

步骤：

1. 到http://www.dimac.net 下载所需的安装程序。目前JMail已经发展到.Net版本，而我只需要在VB6.0中使用，所以下载COM版本w3Jmail就可以。JMail分为Free版本和收费版本，Free版本的功能已经能够满足我的需求。
2. 选择Free版本下载，并没有直接的链接，而是会发送一封邮件到你指定的邮箱里面，根据邮件指示就可以下载到安装程序。
3. 安装完后可以在VB程序的References里面将JMail 4.0 library添加进来，然后
   
   
   Dim objMail As New jmail.Message
   就可以使用此组件了。
4. 发送邮件时如果需要记录日志：
   
   objMail.Logging = True
   然后查看objMail.Log这个属性来查看日志。
5. 如果发送的邮件是中文：
   
   objMail.Charset = "GB2312"
   
6. From属性是邮件发送者的邮件地址
   
   objMail.From = "sender@163.com"
   FromName属性是发送者的名称。
   Subject属性是邮件的主题。
   Body属性是邮件的正文。
   AddAttachment方法将一个路径指向的文件添加为附件。
   
   MailServerUserName属性是登录邮件服务器的用户名。
   MailServerPassWord属性是用户名对应的密码。
   AddRecipient方法将需要发送的邮件地址添加到objMail中，增加的邮件地址都是在发送者里面，如果要增加抄送和密送对象，需要调用其它的方法。
7. 设置好以上参数后就可以发送邮件了
   
   If objMail.Send("pop3.163.com", False) = False Then
       WriteLog "邮件发送日志 => " & objMail.Log
       WriteLog "邮件发送失败！"
   Else
       WriteLog "邮件发送日志 => " & objMail.Log
       WriteLog "邮件发送成功！"
   End If
8. 最后将改组件卸载：
   
   Set objMail = Nothing

 

需要注意的是如果本机装了防病毒程序，一般都会封锁25端口，需要在防病毒程序中将自己编写的程序添加到白名单当中。