首页 > 计算机应用 > 自动发送邮件程序

自动发送邮件程序

将一下内容保存为.vbs格式:

复制内容到剪贴板程序代码程序代码
NameSpace="http://schemas.microsoft.com/cdo/configuration/"
set Email=CreateObject("CDO.Message")
Email.From="发件人邮箱"
Email.To="收件人邮箱"
Email.Subject="主题"
Email.Textbody="邮件内容"

Email.AddAttachment "d:\shenqing.txt" '附件地址

with Email.Configuration.Fields
.Item(NameSpace&"sendusing")=2
.Item(NameSpace&"smtpserver")="smtp.163.com" '发件人发信邮件服务器
.Item(NameSpace&"smtpserverport")=25
.Item(NameSpace&"smtpauthenticate")=1
.Item(NameSpace&"sendusername")="发件人用户名" '
.Item(NameSpace&"sendpassword")="发件人密码"
.Update
end with
Email.Send

下载文件 点击下载此文件

转载请尊重版权,出处:秋天博客
本文链接: https://www.cfresh.net/pc-tech/537

  1. 还没有评论
评论提交中, 请稍候...

留言



注意: 您给他人的评论回复将通过邮件通知到对方。

可以使用的标签: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>
Trackbacks & Pingbacks ( 0 )
  1. 还没有 trackbacks