Excel实例下载
  VBA  应用教程
    数据库SQL知识
设为首页
利用Excel VBA 发送邮件
作者:网络 | 来源:http://demon.tw/programming/vbs-send-email.html | 时间:2014-08-28 | 阅读权限:游客 | 会员币:0 | 【

都不知道多久时间没更新网站了,今年,由于工作的原因,又可以使用Excel了,这不,又想起这个被遗忘多年的网站!

无意中发现一个很厉害的Blog,是台湾的:http://demon.tw/  在里面发现了很多有意思的东西,曾记得以前也写过一篇文章是利用Excel + Microseft Outlook 来发送邮件的文章:http://excelba.com/Art/Html/151.html ,不过就连我自己,都很少用 Outlook这个软件,今天在这个网站中,看到一个可以直接发送的代码:http://demon.tw/programming/vbs-send-email.html

Const Email_From = [email protected] '发送的邮箱地址
Const Password = "password" '发送的邮箱密码
Const Email_To = "[email protected]" '接收的邮箱地址
Sub 利用宏批量发送邮件()
Dim CDO
Set CDO = CreateObject("CDO.Message")
CDO.Subject = "邮件标标题"
CDO.From = Email_From
CDO.To = Email_To
'CDO.TextBody = "Hello world!" '原文中是用这句发送邮件内容
CDO.HTMLBody = "邮件内容" '我利用QQ邮箱,发现是要这样写
CDO.AddAttachment "C:\附件.txt"
Const schema = "http://schemas.microsoft.com/cdo/configuration/"
With CDO.Configuration.Fields
    .Item(schema & "sendusing") = 2
    .Item(schema & "smtpserver") = "smtp.qq.com"
    .Item(schema & "smtpauthenticate") = 1
    .Item(schema & "sendusername") = Email_From
    .Item(schema & "sendpassword") = Password
    .Item(schema & "smtpserverport") = 465
    .Item(schema & "smtpusessl") = True
    .Item(schema & "smtpconnectiontimeout") = 60
    .Update
End With
CDO.Send
End Sub

另一点要注意的是QQ邮箱的POP3服务器: pop.qq.com,SMTP服务器: smtp.qq.com
但它们都不是默认开启的,要用网页登陆到QQ邮箱里面,点"设置"==>"帐户",里面有一项是开启这两个服务器的,这里我们要开启SMTP服务后,才可以正常使用上面的代码。

最有意思的是,如果你把你电脑的系统时间修改成X月X日,再用上面的代码发送邮件,在接收的邮箱显示的发送时间是X月X日哦。是不是可以穿越时空,干点坏事情啦^_^。

文章录入:admin | 浏览次数:
相关评论(以下网友评论只代表其个人观点,不代表Excel吧的观点或立场)
相关信息

关于本站 | 留言本站 | 友情连接 | 后台管理
Copyright © 2005 - 2008 Excel吧 Inc. All Rights Reserved.
HxCms Ver9.0  闽ICP备06001689号
关闭此窗口