作者：绿色风
分类：
时间：2022-08-17
浏览：107
楼主
apolloh |
Q：如何用VBA发送带制定附件的邮件？
A：使用VBA通过OUTLOOK发邮件，vCDO.Configuration.Fields要与OUTLOOK邮箱配置一致。
- Sub SendMail(fromname As String, toname As String, ccname As String, attachfile As String, subject As String, strBody As String, strPasswd As String)
- 'fromname :发送人
- 'toname :收件人
- 'ccname :抄送
- 'attachfile : 附件
- 'subject :主题
-
- Set vCDO = CreateObject("CDO.message") '邮件主体
- vCDO.from = Trim(fromname) '发送方邮箱完整帐号
- vCDO.to = Trim(toname) '主要接收方邮箱完整帐号
- If Len(Trim(ccname)) > 0 Then vCDO.CC = Trim(ccname) '抄送
- vCDO.subject = subject '邮件主题
- If Len(strBody) > 0 Then vCDO.TextBody = strBody '邮件内容
- If Len(Trim(attachfile)) > 0 Then vCDO.AddAttachment Trim(attachfile) '邮件附件
- With vCDO.Configuration.Fields
- .Item(cdoSMTPServer) = "mail.myco.com" 'SMTP服务器地址
- .Item(cdoSMTPServerPort) = 25 'SMTP服务器端口
- .Item(CDO.cdoSendUsingMethod) = CDO.cdoSendUsingPort '发送端口
- .Item(cdoSMTPAuthenticate) = cdoBasic '验证方式
- .Item(cdoSendUserName) = fromname '发送方邮箱名称
- .Item(cdoSendPassword) = strPasswd '发送方邮箱密码
- .Item(cdoSMTPConnectionTimeout) = 30
- .Item(CDO.cdoLanguageCode) = "gb2312"
- .Item(CDO.cdoTimeZoneIDURN) = CDO.cdoBeijing
- .Update '配置生效
- End With
- vCDO.Send '发送
- Set vCDO = Nothing '释放
- End Sub
|
2楼
刘志文 |
很好,但我的邮箱是网易163.COM,不知如何设置??
 |
3楼
DJ_Soo |
使用VBA通过OUTLOOK发邮件，vCDO.Configuration.Fields要与OUTLOOK邮箱配置一致。
我用的邮箱用的不是Pop3的服务,是Microsoft Exchange Server,应该怎么办了? |
4楼
wisdom100 |
2003 可以用吗 测试不成功~~ |
5楼
Coolray |
测试不成功！ |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一