JMail发送邮件函数SendMail

什么是POP3协议,什么是SMTP协议,如何设置

msgbox SendMail("64049027@qq.com","收件人", "测试", "<a href=http://www.yongfa365.com/>柳永法test</a>","发件人", "yongfa365@cbdcn.com")


Function SendMail(MailtoAddress, MailtoName, Subject, MailBody, FromName, MailFrom)
    '函数参数说明（"收件人地址","收件人姓名(可选)","主题","邮件内容","发件人姓名(可选)","发件人地址"）
    'on error resume next
    Dim JMail, MailServer, Flag
    Set JMail = CreateObject("JMail.Message")
    If Err Then
        SendMail = False
        Err.Clear
        Exit Function
    End If
    JMail.Charset = "gb2312" '邮件编码
    JMail.silent = True '出错时是否继续执行
    JMail.ContentType = "text/html" '邮件正文格式
    JMail.MailServerUserName = "yongfa365@cbdcn.com" '登录用户名,如:yongfa365或yongfa365@cbdcn.com
    JMail.MailServerPassWord = "登录密码" '登录密码
    JMail.MailDomain = "cbdcn.com" '域名（如果用"name@domain.com"这样的用户名登录时，请指明domain.com），可选
    JMail.AddRecipient MailtoAddress, MailtoName '收信人邮箱和收信人名称
    JMail.Subject = Subject '主题
    JMail.AppendHTML(MailBody)
    JMail.FromName = FromName '发信人姓名
    JMail.From = MailFrom '发信人Email
    JMail.Priority = 3 '邮件等级，1为加急，3为普通，5为低级
    Flag = JMail.Send("mail.cbdcn.com") '用来发送邮件的SMTP服务器
    If Flag Then
        SendMail = True
    Else
        SendMail = False
    End If
    JMail.Close
    Set JMail = Nothing
End Function