- 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
用vbs发送带附件的邮件
2020-07-17 11:14VBS代码网 VBS
利用vbs实现可以带附件的邮件的代码,有需要的朋友可以参考下
延伸 · 阅读
- 2022-03-09详解Springboot中的异步、定时、邮件任务
- 2022-03-05vue中多附件上传的实现示例
- 2022-02-15易语言监控smtp和反编译获取程序内邮件密码发送
- 2021-12-30Python用20行代码实现完整邮件功能
- 2021-12-22通过C#实现发送自定义的html格式邮件
- 2021-12-22java实战案例之用户注册并发送邮件激活/发送邮件
精彩推荐
- VBS
VBS教程:对象-Folders 集合
VBS教程:对象-Folders 集合...
- VBS
vbs base64 解密脚本代码
解密base64的vbs小函数,支持英文与数字不支持中文。...
- VBS
可以定时自动关机的vbs脚本
这篇文章主要分享一段可以定时自动关机的vbs脚本代码,有需要的童鞋可以学习下...
- VBS
VBS教程:属性-VolumeName 属性
VBS教程:属性-VolumeName 属性...
- VBS
VBS教程:属性-AvailableSpace 属性
VBS教程:属性-AvailableSpace 属性 ...
- VBS
脚本 MsAgent组件 微软精灵 揪出系统自带的宠物
你知道系统里有一个隐藏的宠物吗? 将以下代码保存为后缀为.vbs的文件,再双击运行,看看出来什么?一个可爱的魔法老人!还会说话、移动、吹喇叭…...
- VBS
VBS教程:正则表达式简介 -建立正则表达式
建立正则表达式 构造正则表达式的方法和创建数学表达式的方法一样。也就是用多种元字符与操作符将小的表达式结合在一起来创建更大的表达式。 可以...
- VBS
提供个可以显示农历的VBS代码
本文主要分享一段可以显示农历的VBS代码,具有一定的参考价值,有需要的朋友可以了解一下...