vb简单发邮件

 

方法1：用cdo

 

Dim NameSpace As String
    Dim Email As Object
    NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
    Set Email = CreateObject("CDO.Message")
    With Email
        .From = "**************@163.com"    '发件邮箱
        .To = "****@qq.com"    '收件邮箱
        .Subject = "1.txt"    '邮件主题
        .TextBody = "1.txt"    '邮件内容
        If Dir("C：\1.txt") <> "" Then
            .AddAttachment "C：\1.txt"    '可以发送附件
        End If
        With Email.Configuration.Fields
            .Item(NameSpace & "sendusing") = 2
            .Item(NameSpace & "smtpserver") = "smtp.163.com"     'smtp服务器
            .Item(NameSpace & "smtpserverport") = 25    '端口，
            .Item(NameSpace & "smtpauthenticate") = 1
            .Item(NameSpace & "sendusername") = "*******@163.com"    '发件邮箱
            .Item(NameSpace & "sendpassword") = "*******"    '邮箱smtp密码
            .Update
        End With
        .send
    End With

方法2：用jmail.dll，单独用jmail.dll要先注册，或者网上搜 JMail Free v4.5，下载安装后直接使用就行了

Dim jmail As Object
    Set jmail = CreateObject("jmail.Message")
    jmail.Charset = "gb2312"    ''邮件的文字编码为国标
    jmail.ISOEncodeHeaders = False
    jmail.Silent = False

    jmail.Priority = 1    '邮件状态,1-5 1为最高
    jmail.MailServerUserName = "****@163.com"  '发信人Email帐号
    jmail.MailServerPassWord = "*****"   '发信人Email  smtp密码,
    jmail.FromName = "www.020hy.net"  '发信人姓名
    jmail.From = "****@163.com"  '发邮件地址
    jmail.Subject = "主题"    '  '主题"

    jmail.body = "发送的内容"    ' 内容   
    jmail.AddRecipient “*****@qq.com"  '收信人地址    
    jmail.send “smtp.163.com”   'SMTP服务器   
    Set jmail = Nothing
    

以上两种方法用163和QQ两邮箱发件测试通过