遍历公用文件夹中的电子邮件时，Outlook VBA脚本运行时错误随机出现13
我收到一个随机的运行时错误13(类型不匹配)，执行以下子例程.此例程大部分时间都有效.在失败时，作为参数传入的文件夹是合法的.从调试器中可以看到，在运行时objitem缺少了某些字段.在调试器中达到断点后，我可以立即执行单步操作(重新执行有问题的行)，并且没有错误. 我尝试使用'on error goto'入睡，然后重试各行，并且该错误持续存在，直到在调试器中停止. 我还试图在For
..
outlook-vba相关内容
以编程方式打开搜索视图
我正在寻找一种以编程方式在Outlook中针对指定条件打开搜索视图的方法.我看到了其他问题，例如 Outlook中的VBA搜索，但它们与通过编程方式获取搜索结果有关. 我本质上是在寻找与功能区选项“消息/编辑/相关"相同的功能 当我通过双击某条消息打开一条消息，然后单击“此对话中的消息"时， 列表视图更改为 我希望能够使用VBA宏执行相同的操作，但无需打开消息并使用不同的搜索条件
..
扫描电子邮件并更改字段名称
我目前有: Sub Confirmation() myMessage = "You recently made a request on the IT website, the details of your request can be seen below:" & vbCr & vbCr & "Thank you, " & vbCr & "IT Support" Dim
..
发送“代表"时，始终抄送
我经常代表其他用户发送电子邮件.每当我从该用户发送电子邮件或代表该用户发送电子邮件时，我都希望使用VBA自动对该用户进行抄送. 我对VBA for Outlook并不熟悉，但是我认为您可以编写一条if语句，说“如果从UserX发送消息，请抄送cc UserX".该代码应在代表电子邮件发送的任何时间自动运行. 解决方案 SentOnBehalfOfName很棘手.在商品寄出之前通常为空
..
通过Excel按钮制作Outlook任务项
我想制作一个简单的程序，可以在其中创建Outlook任务.用户填写数据并单击创建按钮. 我在线找到了以下代码，它应该可以工作，但不能.我的Outlook中未添加任何任务，但也未显示任何错误.我觉得添加任务的接收者以某种方式出错. 任何提示为什么我没有收到错误消息，但是没有添加任何任务吗? Dim OutApp As Outlook.Application Dim OutTask
..
通过excel vba发送邮件时在Outlook中选择帐户
我想从Excel中的VBA中的Outlook中的特定帐户发送邮件，我被代码卡住了，我遍历了论坛，但仍然无法正常工作 如果有人可以帮助我，我会向您展示我的代码，这将非常非常好 Sub SendMail() Dim objOutlook As Object Dim objMail As Object Dim ws As Worksheet Set objOutlook = Create
..
VBA:如何获取当前Outlook用户的SMTP电子邮件地址列表?
我知道如何获取当前用户的主要电子邮件地址，但是如何获取其所有SMTP电子邮件地址的完整列表? 我正在寻找右键单击电子邮件中的收件人并转到“打开Outlook属性"并转到“电子邮件地址"标签 所能获得的信息 谢谢！ 解决方案 使用Namespace.CurrentUser.AddressEntry.PropertyAccessor.GetProperty读取PR_EMS_AB_
..
ItemAdd中的复制方法生成运行时错误
运行此代码时出现错误: 运行时错误'-2147221233(8004010f)': 尝试的操作失败.找不到对象. 尽管出现错误，但一切正常. 如果我换行，该错误消失 'MsgBox"Awesome" 到 MsgBox“很棒" 一些测试表明，如果将item.Sendername与复制部件一起使用，则会发生错误.如果我确实移动邮件，则效果很好. 如果我尝试单独使用该
..
如何为许多Outlook子文件夹实施ItemChange?
在Outlook中的VBA模块中，我目前具有以下代码: Private WithEvents AAInboxItems As Outlook.Items Private WithEvents AASentItems As Outlook.Items Private WithEvents AADoneItems As Outlook.Items Private Sub AAInboxItem
..
在Excel VBA中禁用Outlook全部回复
我有一个Excel VBA宏，可以将电子邮件发送给多个人.我不想隐藏已发送给谁，我只想在Outlook上禁用“全部答复"功能. 我已经从Outlook VBA中尝试了以下方法，但没有效果 ActiveInspector.CurrentItem.Actions("Reply to All").Enabled = False ActiveInspector.CurrentItem.Act
..
将附件导出到文件夹时排除签名图像
我有将Outlook附件导出到本地文件夹的代码. 我注意到签名中的小图像也被另存为附件. 我认为排除签名图像可以通过以下方式实现: For i = lngCount To 1 Step -1 If objAttachments.Item(i).Size > 6000 Then 我不知道代码的位置，尤其是End If(在Next之后或之前). 这是我的代码: P
..
通过Excel VBA发送带有附件的电子邮件
我想通过Outlook从Excel通过电子邮件发送报告. 我正在用自己和同事的电子邮件地址对此进行测试.我收到“无法交付"的 Error . 该消息表明无法联系到收件人，并建议稍后尝试发送电子邮件. Sub CreateEmail() Dim OlApp As Object Dim OlMail As Object Dim ToRecipient As Variant Dim
..
如何设置对共享收件箱文件夹的引用?
我在另一个搜索中找到了此代码，但是当我运行它时，出现"No Such Folder"错误. 我想计算一个共享收件箱文件夹中的电子邮件.谁能提供有关如何更改此代码以实现此目标的建议? Sub HowManyEmails() Dim objOutlook As Object, objnSpace As Object, objFolder As MAPIFolder Dim
..
如何保存附件并重命名
我的代码无法正常工作.这是我第一次运行VBA脚本.我有大量来自传真机的电子邮件，我希望能够下载附件，将文件重命名为主题行，然后将其存储在我的计算机上. 我的第一次尝试是尝试编写一个宏，以便可以手动进行操作，但是在进行了一些研究之后，我感到自己想使规则生效. 这是我第一次尝试VBA，所以我什至不确定我是否在正确运行宏或规则脚本，但是我感觉我只是在代码中遗漏了一些东西.有什么想法吗?
..
搜索已发送的邮件并将多封邮件移至文件夹
我尝试在SentMail文件夹中搜索“收件人"结尾的邮件，让我们说.cn并将其移至个人文件夹. 代码可以工作，但不能移动所有邮件，因为每次运行它都需要多发送一些邮件. 如果我有24个以.cn结尾的邮件，则需要13、6、3、2，因此最终它会找到所有邮件，但不会同时运行. 有人有什么主意吗? Sub Search_SentMail() Dim myOlApp As New O
..
如何使用“在此对话中始终移动消息"从MS Outlook中的VBA的功能?
我正在尝试在MS Outlook中实现搜索和移动功能.搜索可以，它就像魅力一样工作.但是，我只能找到将消息移动到Outlook文件夹中的“移动"功能. 我手动使用“此对话中的始终移动消息"功能.现在，我想从宏中使用它.是否可以通过VBA使用此功能? 这是当前的实现，但它使用了简单的“移动"功能: Private Sub btn_Click() Dim currentMai
..
在VBA中的Outlook邮件中读取Excel表
我正在尝试读取邮件正文中的表并将其保存在csv文件中(我在下面附加了一个HTML示例，代表我的邮件内容).我关注了一篇相关的文章:如何阅读表格使用vba粘贴到Outlook消息正文中吗?，但问题是它通过表的单元格而不是行来界定表，因此，如果不获取17行和一个标题，我将获得18 x 5 = 90个数组元素.我试图将split选项中的定界符从"vbCrLf"更改为"vbLf"，"vbCr"，Char(
..
在CreateItemTemplate之后删除签名
我正在使用下面的代码为新模板找到，但是我想删除签名. 在下面的代码之后，我需要代码来删除签名，或者需要一个全新的代码来打开新电子邮件，清除正文，然后插入模板. Sub NewTemplate() Set objMsg = Application.CreateItemFromTemplate("S:\filepath.oft") Set newItem = Nothing With ob
..
将Outlook邮件从一个邮箱收件箱移动到同一邮箱中的其他文件夹
我有几个邮箱，可以在Outlook配置文件中看到它们.其中一个邮箱，我们称其为"Mailbox-HUR"不断接收消息.目前，我的团队中的一个每天都进入此邮箱的收件箱，如果邮件已存在24小时以上，则将邮件移动(拖放)到收件箱的子文件夹中(称为“存档"(我们很有想像力！)). 可以通过任何方式设置宏来执行此任务吗?我知道我使用VBA的简单方法，但是从未在Outlook中使用它，也无法弄清楚名称空
..
如何在收件箱和子文件夹中搜索Outlook邮件
我创建了一个宏，该宏接收最新邮件并发送所有回复. 现在如何搜索“收件箱"和“子文件夹"并选择最新的文件夹. 我的代码仅从收件箱中选择邮件. Option Explicit Public Sub TESTRUN() Dim olApp As Outlook.Application Set olApp = New Outlook.Application Dim olNs As Ou
..