phmg.net
当前位置:首页 >> 如何使用ExCEl vBA,对outlook进行操作? >>

如何使用ExCEl vBA,对outlook进行操作?

参考下面的VBA代码 Sub Send_Email() Dim i As Integer Dim MyOutlookApp As Outlook.Application Dim MyFolder As Outlook.MAPIFolder Dim MyNewMail As Outlook.MailItem Dim MyAttachments As Outlook.Attachments '附件 Set MyOutlookApp = ...

Set objOutlook = GetObject(, "Outlook.Application") Set objMail = objOutlook.Createitem(olmailitem) With objMail .To = ToMail .Subject = "标题" .HTMLBody = "内容" .display .send End With

参考下面的VBA代码 Sub Send_Email() Dim i As Integer Dim MyOutlookApp As Outlook.Application Dim MyFolder As Outlook.MAPIFolder Dim MyNewMail As Outlook.MailItem Dim MyAttachments As Outlook.Attachments '附件 Set MyOutlookApp = ...

当然可以的。

Dim xlApp as Objectset xlapp = CreateObject("Excel.Application")'注意这里必须确认“某工作簿”已经打开,否则下面的代码依然会出错!'通常情况下我会这么做:Dim wb as objectFor wb in xlapp.Workbooks if wb.name = "某工作不.xls" then Got...

必须vba吗? 其实利用word的邮件合并功能,点点鼠标可以完成你说的以excel文件为数据源,每行生成一个邮件到outlook中发送. 将上述过程录制成宏,就是你要的vba代码(可能在录制完成后需要做一些必要的调整或修改).

建议换个方式 你可以在excelvba里面编程, 调用outlook发送邮件即可 以前做过,现在东西找不到了,资料直接baidu就可以了

可以直接使用API函数ShellExecute 复制下面的代码,直接粘贴到你的代码模块中,然后运行EmailSend即可看到效果。 Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal ...

shell "explorer http://www.baidu.com" 一句就搞定,网址前面的 http:// 不能少。

以前研究过类似的,好像Outlook有防病毒保护,不允许直接由Vba发送邮件,会出现提示框的。只有人为按确认键后才能发送。所以我当时是用宏自动生成草稿,最后由人工统一发送。 当初也找到过第三方软件来解决这个问题,但现在忘了名称了。

网站首页 | 网站地图
All rights reserved Powered by www.phmg.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com