CDO发送邮件

最新推荐文章于 2020-12-20 18:48:24 发布

zhang98722

最新推荐文章于 2020-12-20 18:48:24 发布

阅读量755

点赞数

CC 4.0 BY-SA版权

分类专栏： VB 文章标签：邮件服务器测试 command email

本文链接：https://blog.youkuaiyun.com/zhang98722/article/details/5959985

VB 专栏收录该内容

5 篇文章

订阅专栏

Private Sub Command1_Click()
   NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
   Set Email = CreateObject("CDO.Message")
   Email.From = "zhang98722@qq.com" '你的邮箱地址
   Email.To = "zhang98722@qq.com"   '要发往的地址
   Email.Subject = "你好这是测试" '主题
   Email.Textbody = "这只是一个测试" '测试
   With Email.Configuration.Fields
       .Item(NameSpace & "sendusing") = 2
       .Item(NameSpace & "smtpserver") = "smtp.qq.com" '发送邮件服务器
       .Item(NameSpace & "smtpserverport") = 25
       .Item(NameSpace & "smtpauthenticate") = 1
       .Item(NameSpace & "sendusername") = "111" '邮箱用户名
       .Item(NameSpace & "sendpassword") = "111"   '密码
       .Update
   End With
   Email.Send
   MsgBox "发送成功"
End Sub