VB使用CDO的方式发送邮件的源代码

Sub CDOSendEmail()
    Dim objEmail As Object
    Dim strName As String
    strName = "http://schemas.microsoft.com/cdo/configuration/"
    Set objEmail = CreateObject("CDO.Message")
    objEmail.BodyPart.Charset = "gb2312"
    objEmail.From = "testmail@163.com"
    objEmail.To = "testmail@163.com"
    objEmail.Subject = "测试发送标题"
    objEmail.Textbody = "测试发送内容"
    objEmail.Configuration.Fields.Item(strName & "sendusing") = 2
    objEmail.Configuration.Fields.Item(strName & "smtpserver") = "smtp.163.com"
    objEmail.Configuration.Fields.Item(strName & "smtpserverport") = 25
    objEmail.Configuration.Fields.Item(strName & "smtpauthenticate") = 1
    objEmail.Configuration.Fields.Item(strName & "sendusername") = "username"
    objEmail.Configuration.Fields.Item(strName & "sendpassword") = "mima"
    objEmail.Configuration.Fields.Update
    objEmail.Send
End Sub

注意：现在163等一些邮箱默认关闭了POP3、STMP、Exchange协议。请打开，并且注意用的不是原先邮箱登陆密码，而是单独设置的独立密码。