outlook-vba相关内容

在Outlook中创建新约会时运行宏

我是Outlook vba的新手. 当我在Outlook 2016 32位版的m​​ycalendar中创建新约会时,我想运行一个宏 我尝试过 Private WithEvents appt As Outlook.AppointmentItem Private Sub appt_Write(Cancel As Boolean) MsgBox ("test ok") End Su ..
发布时间:2020-05-22 19:59:46 其他开发

要在单击Outlook邮件中的链接后触发自动回复

我正在Outlook中进行自动化,最终用户将收到一封邮件,该邮件将通过单击链接触发自动回复邮件并转到相应人员,从而成为他们的链接.到目前为止,我尝试过的代码如下. Sub MailURL() Dim OutApp As Object Dim OutMail As Object Dim strbody As String Set OutApp = CreateObject("Outlook. ..
发布时间:2020-05-22 19:59:35 其他开发

根据收件人设置发件人电子邮件地址

如何通过编程方式在发件人地址至收信人地址的电子邮件(我要回复)中进行设置? VBA中有办法吗?我不知道从哪里开始,所以我很抱歉,因为我无法显示任何代码. 解决方案 请改@@ Al Bundy进行更正.此解决方案基于这篇文章. 在ThisOutlookSession中: Option Explicit Private WithEvents objMail As MailIte ..
发布时间:2020-05-22 19:59:33 其他开发

使用vba撰写时更改Outlook答复/转发消息

在回复,转发(或基本上对电子邮件项目进行任何形式的回复)时,我想更改电子邮件的正文.我知道如何在“发送"事件中执行此操作,但是我宁愿在撰写之前执行此操作,以便可以看到更改. 使用发送: Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) On Error Resume Next S ..
发布时间:2020-05-22 19:59:26 其他开发

使用Microsoft Access,需要从其他帐户的Outlook电子邮件中提取附件

我下面有工作代码可以从我自己的Outlook电子邮件帐户中提取附件,但是我需要对其他帐户执行此操作,该帐户设置为自动流程的默认回复电子邮件框. 我不确定如何告诉下面的代码检查该邮箱,而不是我自己的邮箱.我尝试过设置Inbox变量的各种变体,但是到目前为止,它们都没有起作用.这是在Access 2013中完成的. Private Sub GetAttachments() Dim ..
发布时间:2020-05-22 19:59:11 其他开发

键入不匹配的Outlook.MAPIFolder和对象(错误13)

我以前从未玩过VBA.下面的脚本应该将Outlook文件夹中的所有电子邮件详细信息保存到Excel电子表格中. 执行Set msg = itm时出现错误13.休息时间的itm值对应于会议邀请,而不是普通的电子邮件.可能是问题所在吗?如果是这样,我如何告诉VBA忽略不是普通电子邮件的任何内容? Sub ExportToExcel() On Error GoTo ErrHandler Di ..
发布时间:2020-05-22 19:59:02 其他开发

取消Outlook约会时处理ItemChange事件

我创建了一些宏,以将日历事件从工作电子邮件转发到个人电子邮件.一个组件是ItemChange事件,当我的工作日历上的项目发生更改时,该事件将更新我的个人日历.我遇到的问题是,每当我取消Outlook中的约会提醒时,都会触发"itemchange"事件.我正在尝试开发一些措施,以防止在取消提醒时运行我的物品更改程序.有人知道如何处理吗?没有人知道在取消提醒时AppointmentItem的什么属性会 ..
发布时间:2020-05-22 19:58:35 其他开发

替换已发送电子邮件中的字符串

以下代码创建并发送一封简单的电子邮件.发送电子邮件后,它将替换电子邮件正文中的字符串. 当我使用调试器的单步执行功能执行代码时,我的代码有效.当我在objMsg.Send指令后添加带有“单击以继续"按钮的MsgBox指令时,它也可以工作.当我不间断地执行宏时,它不起作用,但告诉我在宏运行时Outlook无法将电子邮件保存到文件夹中. Sub CreateNewMessage() ..
发布时间:2020-05-22 19:58:19 其他开发

VBA无法识别MAPI

我正在使用VBA进入Outlook文件夹并将消息正文放入单元格中.但是在 set ns = getnamespace("MAPI") 我收到一个错误“未注册自动化错误库".我选择了以下与Outlook相关的参考(在Excel中): Outlook 14.0对象库, Outlook SharePoint Social Provider, Outlook Social Provi ..
发布时间:2020-05-22 19:58:06 其他开发

删除内联附件

我正在尝试搜索选定的电子邮件并删除附件.我做了一些研究,最后选择了Word.Document路由. 我以前有一段代码花絮,删除了所有附件,但是留下了一个虚线框,说该图像不可用. 我正在尝试将两者网格化,因为下面的这一步不会删除附件,而只会删除内嵌形状. 删除嵌入式图像的代码: Sub DeleteAllAttachmentsFromSelectedMessages() Di ..
发布时间:2020-05-22 19:57:46 其他开发

使用Word编辑器时,发送方法不起作用

我有一条规则,就是每当我收到一封主题行中包含特定单词的电子邮件时,都会触发此脚本. 该脚本会将电子邮件转发给主题行中的特定用户,并使用文字编辑器删除电子邮件正文的第一行并将其更改为"Hi". 当我使用.Display方法然后手动单击send时,它工作正常,但是每当我使用.Send方法时,Outlook都不会更新/接收邮箱中的电子邮件,也不会转发已编辑的电子邮件电子邮件.我需要关闭/重新 ..
发布时间:2020-05-22 19:57:38 其他开发

从Outlook电子邮件自定义字段中提取值,并填充Excel

我设计了一个Outlook电子邮件表单,其中包含几个自定义字段.一个是“参考号",这是一个名为"TextBox1"的自由文本框: 我试图显示该文本框的内容,以便以后可以填充Excel,并将其用作第一步以仅显示内容(不起作用)... MsgBox (msg.UserProperties.Find("TextBox1", Outlook.OlUserPropertyType.olText ..
发布时间:2020-05-22 19:57:28 其他开发

使用RegEx将传入电子邮件移动到文件夹中

我正在尝试使用正则表达式通过查看主题行来过滤传入的消息,如果它包含6个连续的数字,请将其移至特定的文件夹. 我在网上找到了一个一直在尝试修改的脚本. 我想将这些电子邮件放在名为"AMEX"的文件夹中,该文件夹是主收件箱的subfolder. Sub filter(Item As Outlook.MailItem) Dim ns As Outlook.NameSpace ..
发布时间:2020-05-22 19:57:04 其他开发

以编程方式更改电子邮件正文中的字体属性

我已经在PowerPoint VBA中成功对此进行了编程,但是无法使其在Outlook中工作. 我已经准备好在Outlook 2013中发送电子邮件 我要扫描电子邮件正文中的粗体文本(即粗体字符),然后将其颜色更改为红色 (很高兴)从宏中排除签名 我尝试了几次“替换",“如果"循环,但均未成功.非常感谢您让我走上正轨. 以下代码转换正文的颜色,但不区分粗体字.有什么想法吗? ..
发布时间:2020-05-22 19:56:57 其他开发

运行时错误91 Outlook保存附件

运行时错误91-对象变量或未设置块变量 我遇到错误91 我试图在附件到达时保存它们,然后将其移动到子文件夹然后进行打印. 我正在ThisOutlookSession上使用代码 Private Sub SaveMovePrint(olMail As Outlook.MailItem) 'On Error Resume Next Dim colAtts As Out ..
发布时间:2020-05-22 19:56:27 其他开发

自定义MailItem的Outlook功能区(通过菜单或VBA)

在显示电子邮件索引时,Outlook显示一个功能区,而在打开MailItem时显示另一个功能区. 我设法通过File-> Options将按钮添加到了功能区的Miscellaneous组中. 我可以通过File-> Options自定义MailItem的功能区吗? 我可以通过VBA这样做吗?可以在启动时自动执行此VBA吗? 解决方案 我设法通过File-> Options来做到 ..
发布时间:2020-05-22 19:56:18 其他开发

我想在Excel宏中插入来自Excel工作表的数据表以使用Outlook发送电子邮件后,插入默认签名

我想从Excel工作簿的Sheet1中插入一个数据表,插入相同的表后,我需要插入我的签名.我尝试使用HTMLBody.但是它会在显示表格之前显示签名,或者根本不显示签名.我尝试更改.HTMLBody的位置,但无济于事.简而言之,必须发送以下格式的邮件: 收件人: 抄送: 密件抄送: 主题: 正文:应包含“嗨,请在下面的详细信息中找到" 然后使用范围为("A3:F3)的数据的exce ..
发布时间:2020-05-22 19:54:28 其他开发