利用Excel VBA实现Outlook邮件发送实现
来源:互联网 发布:淘宝美工容易吗 编辑:程序博客网 时间:2024/05/29 18:43
这段时间一直在为公司设计一套基于Excel的数据管理,并利用统计后的数据进行实现邮件发送,在实现过程中却出现了一个小的问题:在邮件发送时,会出现安全提示,只有接受后,才可以邮件发送,通过互联网进行查询,却只能发现部分解决方法。经过相关测试后,现整理如下:
方法一:
Sub a()
Dim objOL As Object
Dim itmNewMail As Object
'引用Microsoft Outlook
Set objOL = CreateObject("Outlook.Application")
Set itmNewMail = objOL.createitem(0)
With itmNewMail
.Subject = "chijanzen Mail Test" '主旨
.HTMLbody = "<table><tr><td></td></tr></table>"
.to = "zhong_wei_cq@hotmail.com "
.Display ‘注意此处使用的不是Send,
End With
On Error GoTo continue
SendEmail:
AppActivate itmNewMail
DoEvents
SendKeys "%s", Wait:=True ‘特别注意此处,该项表示相关于在邮件编辑窗口中,单击发送按钮
DoEvents
AppActivate itmNewMail
GoTo SendEmail
continue:
On Error GoTo 0
Set objOL = Nothing
Set itmNewMail = Nothing
End Sub
方法二:
将Excel中需要发送内容转化为一个小的文档,
然后利用邮件发送Attachments.Add功能添加该文档为邮件附件,如下表示
.Attachments.Add "C:/Documents and Settings/zhongwei/桌面/Basic Payrolll1.xls", , 1, "4th Quarter 1996 Results Chart"
完成后进行邮件发送
方法三:
该方法在Office 2007中测试通过!
打开OUTLOOK,依次单击“工具”|“宏”|“安全性”|
在信任中心窗格中,单击“编程访问”|选择“从不向我发出可疑活动警告”,
在EXCEL VBA中直接可以使用SEND进行邮件发送。
SUB SENDMAIL()
dim ou as object
dim oua as object
set ou = createobject("outlook.application")
set oua = ou.createitem(0)
with oua
.to ="zhong_wei_cq@hotmail.com"
.subject="Hello"
.body="Send Test"
.send
end with
end sub
- 利用Excel VBA实现Outlook邮件发送实现
- 利用Excel VBA实现Outlook邮件发送实现
- Outlook批量转发邮件 -VBA实现
- 利用Excel VBA在Outlook邮件创建表格
- 利用vba 调用outlook发邮件
- 利用java实现发送邮件
- QTP实现从outlook客户端自动发送邮件
- ASP.NET 利用Outlook发送邮件
- java利用outlook express发送邮件
- 利用Exchange在Outlook中实现邮件提醒
- Excel VBA开发自动发送邮件
- 利用PHPMailer实现PHP邮件发送
- VBA实现Outlook自动发送带附件带签名的工作周报
- VBA实现 Outlook 2010 自动密件抄送
- VBA实现outlook自动发信 2
- 利用Excel VBA 实现Combobox控件中的提醒输入
- 利用Excel VBA实现批量数据分组转置
- 利用VBA实现多个EXCEL表格合并
- Masonry介绍与使用实践
- socket 10106 解决方法
- .bat文件中call命令的用法
- java 冒泡排序及其改进
- iOS开源项目 FreeBall
- 利用Excel VBA实现Outlook邮件发送实现
- dp 最大递增子序列
- .bat文件中if的用法
- 【机房收费系统】 之 上下机
- Jackson
- CoreLocation地理编码
- linux之cp/scp命令+scp命令详解
- ubuntu14.04重装sogou
- 【java基础增强】增强for循环取Map值