CDO发送邮件

Private Sub Command1_Click()
   NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
   Set Email = CreateObject("CDO.Message")
   Email.From = "[e-mail]" '你的邮箱地址
   Email.To = "[e-mail]"   '要发往的地址
   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