在VBA中用Jmail发邮件代码

在VBA中用Jmail发邮件其实很简单，下面以新浪邮箱为例。（需要下载注册jmail.dll）

 

Sub SendMail(mail_from, mail_email, mail_subject, mail_body) Dim JMail Set JMail = CreateObject("JMail.Message") With JMail .Silent = True .Charset = "gb2312" .ISOEncodeHeaders = False .MailServerUserName = mail_from '发信人的电子邮件地址 .MailServerPassWord = "********" '发信人的电子邮件密码 .From = mail_from .FromName = "*****" '发信人的名字 .Subject = mail_subject .Priority = 1 .AddRecipient (mail_email) .Body = mail_body .AddRecipientCC Email '邮件抄送者的地址 .AddAttachment (带全路径的附件名称) '添加附件 .Send ("smtp.sina.com") 'SMTP地址 .Close End With Set JMail = NothingEnd SubSub cc() Call SendMail("***@sina.com", "***@***.com", "标题", "正文")End Sub