Set objEmail = CreateObject("CDO.Message")

objEmail.From = "*" '发件人
objEmail.To = "*" '收件人
objEmail.Subject = "*" '主题
objEmail.Textbody = "*" '内容

objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
        "smtp.adpanshi.com"
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "*" '用户名
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*" '密码
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 '明文验证
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
复制代码

objEmail.Textbody = CreateObject("Scripting.FileSystemObject").OpenTextFile("1.txt").ReadAll() '内容
复制代码