• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    用vbs发送带附件的邮件
    function Send_mail(You_Account,You_Password,Send_Email,Send_Email2,Send_Topic,Send_Body,Send_Attachment) 
    'code by NetPatch
    'VBS发送邮件参数说明
    'You_Account:你的邮件帐号
    'You_Password:你的邮件密码
    'Send_Email: 主要邮件地址
    'Send_Email2: 备用邮件地址
    'Send_Topic: 邮件主题
    'Send_Body:   邮件内容
    'Send_Attachment:邮件附件

    You_ID=Split(You_Account, "@", -1, vbTextCompare) 
    '帐号和服务器分离
    MS_Space = "http://schemas.microsoft.com/cdo/configuration/"
    '这个是必须要的,不过可以放心的事,不会通过微软发送邮件
    Set Email = CreateObject("CDO.Message")
    Email.From = You_Account
    '这个一定要和发送邮件的帐号一样
    Email.To = Send_Email         '主要邮件地址

    If Send_Email2 > "" Then
    Email.CC = Send_Email2        '备用邮件地址
    End If

    Email.Subject = Send_Topic        '邮件主题
    Email.Textbody = Send_Body        '邮件内容

    If Send_Attachment > "" Then
    Email.AddAttachment Send_Attachment     '邮件附件
    End If

    With Email.Configuration.Fields
    .Item(MS_Space"sendusing") = 2       '发信端口
    .Item(MS_Space"smtpserver") = "smtp."You_ID(1) 'SMTP服务器地址
    .Item(MS_Space"smtpserverport") = 25     'SMTP服务器端口
    .Item(MS_Space"smtpauthenticate") = 1     'cdobasec
    .Item(MS_Space"sendusername") = You_ID(0)    '你的邮件帐号
    .Item(MS_Space"sendpassword") = You_Password   '你的邮件密码
    .Update
    End With
    Email.Send
    '发送邮件
    Set Email=Nothing
    '关闭组件

    Send_Mail=True 
    '如果没有任何错误信息,则表示发送成功,否则发送失败 
    If Err Then 
    Err.Clear 
    Send_Mail=False 
    End If 
    End Function

    '以下是利用上面的函数发送带附件的邮件例子
    If Send_Mail("test@163.com","test","test2@163.com","","邮件主题","邮件内容","d:\test.exe")=True Then
    Wscript.Echo "发送成功"
    Else
    Wscript.Echo "发送失败"
    End If
    上一篇:更牛的一句话asp木马加密(去掉asp里的%)
    下一篇:VBScript开发自动化测试脚本的方法分析
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    用vbs发送带附件的邮件 用,vbs,发送,带,附件,的,