查找对象库VBA的VBIDE.Reference.Name
我找到了如何使用VBA编程添加参考， 这说明了如何使用库的名称以编程方式添加对象引用， 并带有示例“ VBScript_RefExp_55”。 我的问题是如何找到在此代码中用于不同对象库的引用名称？ 例如PowerPoint库？ 解决方案 我用它来获取我的参考文献信息： 私有子ListProjectReferencesList（） Dim i As Long
..
outlook-vba相关内容
从VBA搜索Outlook电子邮件
给定的代码成功运行。它在Outlook“已发送邮件”文件夹中搜索电子邮件主题。搜索基于特定时间段内的特定日期进行。例如，下面的代码查找2018年7月20日12:00 AM至11:59 PM之间发送的电子邮件标题``星期五发送的电子邮件''。 除了现有的搜索条件外，如何过滤发送给特定用户的电子邮件。我要检查[收件人]字段。如果[收件人]有收件人x @ email.com，y @ email.c
..
VBA是否包含注释块语法？
在VBA中，有一种简短的方法可以注释掉一段代码，就像Java使用 /*...*/ 一样？ 解决方案 尽管没有语法，但仍可以使用内置的块注释按钮来关闭： 如果尚未查看“编辑”工具栏，请右键单击该工具栏并启用“编辑”工具栏： 然后，选择一个代码块，然后点击“评论栏”按钮；或已被注释掉，请使用“取消注释块”按钮： 快速简便！
..
将项目保存在草稿文件夹中还会创建一个空白的发件箱项目
我有一个C＃控制台应用程序，可动态创建一堆电子邮件并将其保存到Outlook 2013中的“草稿”文件夹中。但是，我遇到了一个问题，即我创建的项目不仅在“草稿”文件夹中创建，但是在发件箱文件夹中也会创建一个空白项目（为每个草稿项目填充一个空白的发件箱项目）。 为了比较，当我尝试创建一个使用用户界面起草电子邮件，它可以按预期工作。我创建了一封新电子邮件，单击“保存”，该项目仅出现在“草稿”文件
..
如何向可能重定向到登录页面的页面发出POST请求
我正在Outlook VBA中使用宏通过POST将文件提交到URL: Set http = New WinHttp.WinHttpRequest http.Open "POST", UrlToPostTo, False 'True ' http.setRequestHeader "User-Agent",
..
如何在代码中添加图片?
Sub SendBirthdayMessage() Dim olkContacts As Outlook.Items, _ olkContact As Object, _ olkMsg As Outlook.MailItem Set olkContacts = Session.GetDefaultFolder(olFolderContacts).It
..
仅通过VBA代码发送那些带有附件的电子邮件
我刚刚开始处理宏，到目前为止，已经取得了相当不错的进步. 但是，我被困在一个地方，找不到答案. 我正在使用宏通过Outlook向特定的收件人发送电子邮件.我要发送多个excel&每封电子邮件中的pdf附件. 该代码非常棒！尽管如此，我仍然需要添加一个条件，其中不会发送没有任何EXCEL附件的电子邮件，并且针对此特定情况的Outlook创建邮件项目只会自动关闭. 对于具有ex
..
使用Outlook宏通过电子邮件发送文件
使用宏代码将文件夹的所有文件附加到Microsoft Outlook电子邮件中 Dim fldName As String Sub SendFilesbuEmail() ' From slipstick.me/njpnx Dim sFName As String i = 0 fldName = "C:\Users\" sFName = Dir(f
..
收到具有相同主题的新电子邮件时如何删除旧电子邮件
我无法删除主题行相同的电子邮件，但将新收到的电子邮件保留在Outlook-vba上 有人对此有任何想法吗? 解决方案 您可以使用 VBA中的词典 是一个收集对象: 您可以在其中存储各种内容:数字，文本，日期，数组，范围，变量和对象，字典中的每个项目都有自己的唯一键， 使用该键，您可以直接访问该项目(读/写). 现在要使过程自动化-尝试使用 应用程序.Startup Eve
..
使用Outlook VBA将邮件类别数据发送到Excel
我按类别统计Outlook中的电子邮件数量. 我在MsgBox中获取输出. 我想要Excel中的输出. 示例- 电子邮件类别 物料(蓝色)42 供应商(绿色)5 宏的用法如下 Sub CategoriesEmails() Dim oFolder As MAPIFolder Dim oDict As Object Dim sStartDate As Stri
..
获取“发件人"和“电子邮件正文"特性
背景 我扫描Outlook中的收件箱，然后根据电子邮件标题将结果报告给Excel电子表格.我将使用与Microsoft Office关键字相同的示例，并说"Office". IE:Office:笔记本电脑问题. 我需要获取发送邮件的用户名或电子邮件地址，以及电子邮件本身中的一些关键字. 我找到了仅通过使用表和行来迭代具有此关键字的项目的方法. 问题 我无法找到将表中的row.it
..
在电子邮件主题行中搜索电话号码
从 http:处的示例开始: //msdn.microsoft.com/zh-CN/library/office/aa209973(v=office.11).aspx ，我能够创建以下代码块，用于搜索Outlook收件箱中的电子邮件主题行以"ci_startswith"开头的特定电话号码"555-5555". Public blnSearchComp As Boolean Privat
..
每小时统计收件箱中的电子邮件并保存到文本文件
我正在尝试在Outlook中编写一些VBA，以每小时计数收件箱文件夹中的电子邮件(未读和已读)，并在每次发生时将以下内容转储到文本文件中: 28/02/2018 01:00-1,320 我已经看过各种代码片段，但是我不确定如何实现.有人可以帮忙吗? 解决方案 做到这一点应该很简单- 示例 Option Explicit Public Sub example()
..
自动在电子邮件中打开链接的Outlook脚本
我在PC上使用的是Windows 10，大多数时候都使用chrome进行Outlook.我正在尝试获取一个脚本，该脚本会自动打开电子邮件中收到的链接.我发现了VBA脚本，但它们不起作用，我一直收到错误消息.你们中的任何一个可以帮助我吗? 解决方案 您可以使用MailItem类的HTMLBody属性在此处查找所有超链接.然后，您可以使用以下方法通过找到的链接运行Chrome: Sub
..
将突出显示的电子邮件转发给特定收件人
如何将突出显示的电子邮件转发给特定收件人? 是否可以将其链接到CTRL-ALT-快捷方式? 我使用的是Windows 7，Outlook 2010 解决方案 将突出显示的电子邮件转发给特定收件人 返回当前突出显示的电子邮件: GetCurrentItem会将当前选择或打开的电子邮件返回给呼叫过程. Function GetCurrentItem() As
..
Outlook VBA丢失具有替换功能和.HTMLBody的格式将不起作用
我随意搜索了站点的Outlook VBA堆栈溢出部分，但找不到与此问题相关的任何内容.我有一个创建的模板.当我打开模板时，格式已经是我想要的格式，并且签名自动填充在消息末尾.我创建了一个宏，提示您输入以下信息，然后用在“输入框"中输入的信息替换消息中的标签. 使用Google(很多)后，我尝试在我的替换函数中使用myItem.Body.当我这样做时宏可以工作，但我会丢失所有模板和签名格式.然
..
VBA用于从具有多个帐户的电子邮件中保存附件(基于定义的标准)
情况:我有一个代码，在输入了发件人电子邮件的情况下，将从Outlook电子邮件中下载所有附件(如果发件人是指定的发件人，则会保存.xls附件). /p> 问题1:在我看来，我可以使用2个帐户(分别是个人帐户和公共帐户).我希望能够从这些帐户中选择代码应下载的附件. 问题1:是否可以进行这种选择?从以前的研究中，我能够找到有关附件类型的标准，还有更多，但是对于多个收件箱却找不到. 问题
..
用于下载附件的Outlook脚本停止工作
我在下面有一个小脚本，该脚本用于从包含主题中特定单词的电子邮件中下载附件. 它工作了一段时间，但是最近我遇到了间歇性的问题，因为它没有下载附件. 我开始认为规则是问题所在，而不是脚本. Sub saveAttachtoDisk(itm As Outlook.MailItem) Dim objAtt As Outlook.Attachment Dim saveFolder As S
..
Application_ItemSend中缺少Outlook MailItem属性
我有下面的代码，其中SenderName MailItem属性显示为空白. Private Sub Application_ItemSend(ByVal MyItem As Object, Cancel As Boolean) Dim res As Integer ' The "Class" MailItem property is found If MyItem.
..
Outlook宏高级搜索
我想创建一个宏来对任务主题以及任务主体执行“高级搜索".例如搜索"@Cris" 我已经从一个Excel示例复制并修改了此代码，但是它没有运行.运行时错误.感谢任何帮助 Sub AdvancedSearchComplete() Dim rsts As Outlook.Results Dim i As Integer Dim strF As String D
..