vba使用qq邮箱发送邮件

注意：qq邮箱要开启smtp协议，并设置客户端专用密码，通过strPassword传入

Sub sendMail(strTo As String, strSubject As String, strMsg As String, strFrom As String, strPassword As String)Set objEmail = CreateObject("CDO.Message") '创建对象objEmail.From = strFrom  '设置发信人的邮箱objEmail.To = strTo   '设置收信人的邮箱objEmail.Subject = strSubject ' 设定邮件的主题'objEmail.TextBody = "邮件文本内容" '使用文本格式发送邮件objEmail.HtmlBody = strMsg ' "HTML邮件内容" '使用Html格式发送邮件'objEmail.AddAttachment ThisWorkbook.FullName '发送本工作簿为附件strPrefix = "http://schemas.microsoft.com/cdo/configuration/" '微软服务器网址With objEmail.Configuration.Fields.Item(strPrefix & "smtpserver") = "smtp.qq.com"          'SMTP服务器地址.Item(strPrefix & "smtpserverport") = 25   'SMTP服务器端口.Item(strPrefix & "sendusing") = 2       '使用端口发送  如果要指定smptserver，请务必将“sendusing”字段设置为2（或cdoSendUsingPort）.Item(strPrefix & "smtpauthenticate") = 1 '远程服务器需要验证'value=0 代表Anonymous验证方式（不需要验证）  value=1 代表Basic验证方式（使用basic (clear-text) authentication. endusername/sendpassword or postusername/postpassword fields are used to specify credentials.）'Value=2 代表NTLM验证方式（Secure Password Authentication in Microsoft Outlook Express）.Item(strPrefix & "sendusername") = strFrom  '发送方邮箱名称.Item(strPrefix & "sendpassword") = strPassword  ' 上面连接生成的授权码，非你qq邮箱密码" '发送方邮箱密码.Item(strPrefix & "smtpconnectiontimeout") = 60              '连接超时（秒）.UpdateEnd WithobjEmail.Send '执行发送Set objEmail = Nothing '发送成功后即时释放对象If Err.Number = 0 Then'如果没有出错，则提示发送成功MsgBox "发送完成!"ElseMsgBox "发送出错:" & Err.Description  '如果出错，则提示错误相关提示End If
End Sub

vba使用qq邮箱发送邮件相关推荐

java发送qq邮箱不成功_java,_使用QQ邮箱发送邮件遇到的问题，java - phpStudy
使用QQ邮箱发送邮件遇到的问题代码是在网上抄的别人今年写的,但是我运行起来一直报错,也不知道什么原因,请大神帮忙指点一下::谢谢!!! 以下是我的代码 public class Sendmail8 ...
legend3---lavarel中使用qq邮箱发送邮件
legend3---lavarel中使用qq邮箱发送邮件一.总结一句话总结: 第一步:配置邮箱做服务器,比如qq邮箱,网易163邮箱第二步:配置lavarel的配置文件第三部:写邮件发送代码就 ...
python3利用smtplib通过qq邮箱发送邮件
前言本文主要给大家介绍了关于python3 smtplib通过qq邮箱发送邮件的相关内容, smtplib模块是smtp简单邮件传输协议客户端的实现,为了通用性,有时候发送邮件的时候要带附件或图片, ...
php模拟登录qq邮箱_PHP 利用QQ邮箱发送邮件的实现
这篇文章主要介绍了关于PHP 利用QQ邮箱发送邮件的实现,有着一定的参考价值,现在分享给大家,有需要的朋友可以参考一下在 PHP 应用开发中,往往需要验证用户邮箱.发送消息通知,而使用 PHP 内置的 ...
Java基于JavaMail实现向QQ邮箱发送邮件遇到的问题
最近使用Java基于JavaMail实现向QQ邮箱发送邮件老是发送失败,在网上搜了下,终于找到原因,记录下. 参考:http://www.jb51.net/article/78405.htm 网上还有 ...
基于java mail实现简单的QQ邮箱发送邮件
刚学习到java邮件相关的知识,先写下这篇博客,方便以后翻阅学习. -----------------------------第一步开启SMTP服务在 QQ 邮箱里的设置->账户里开启 S ...
Java mail使用QQ邮箱发送邮件配置方案
Java mail使用QQ邮箱发送邮件配置方案 java mail配置了QQ邮箱作为服务器发送邮件,结果导致出现503异常: Authentication failed; nested excepti ...
python 用QQ邮箱发送邮件
SMTP 是发送邮件的协议.Python内置对SMTP的支持,可以发送纯文本邮件.HTML邮件以及带附件的邮箱. Python对SMTP支持有smtplib 和email 两个模块,email负责构造 ...
java模拟登录qq邮箱_使用Java实现qq邮箱发送邮件
本文实例为大家分享了Java操作qq邮箱发送邮件的具体代码,供大家参考,具体内容如下今天尝试了使用QQ邮箱的POP3/IMAP/SMTP/Exchange/CardDAV/CalDAV服务来进行发送 ...

vba使用qq邮箱发送邮件

vba使用qq邮箱发送邮件相关推荐

最新文章

热门文章