本文共 594 字，大约阅读时间需要 1 分钟。

NameSpace = "http://schemas.microsoft.com/cdo/configuration/" Set Email = CreateObject("CDO.Message") Email.From = "sanqi@liebo.com" Email.To = "sanqi@liebo.com" Email.Subject = "mail subject" Email.Textbody = "OK!" 'Email.AddAttachment "C:\file.zip" With Email.Configuration.Fields  .Item(NameSpace&"sendusing") = 2  .Item(NameSpace&"smtpserver") = "mail.liebo.com" 'SMTP服务器  .Item(NameSpace&"smtpserverport") = 25 '端口  .Item(NameSpace&"smtpauthenticate") = 1  .Item(NameSpace&"sendusername") = "sanqi@liebo.com" '用户名  .Item(NameSpace&"sendpassword") = "liebo.com123" '密码  .Update End With Email.Send

转载地址：http://hafmi.baihongyu.com/