从Outlook中的特定文件夹导入电子邮件
我当前在Excel中使用以下代码访问除我自己以外的无人值守邮箱中的文件夹. 但是，有一种方法可以在代码中设置文件夹，而不是使用文件夹选择器. Sub Launch_Pad() Dim olApp As Outlook.Application Dim olNS As Outlook.Namespace Dim olFolder As Outlook.MAPIFolder Set
..
outlook-vba相关内容
根据发件人，主题和今天的日期搜索Outlook电子邮件
我应该每天都收到来自"BobSmith@company.com"的主题为"Testing Protocol"的电子邮件. 有没有一种方法可以搜索我的Outlook收件箱，以确定当天是否有涉及该主题和该发件人的电子邮件?如果今天已收到或尚未收到，则希望在“控件"的单元格A1中放置一个简单的“是"或“否". 下面是我尝试使用以前的问题，没有运气独自提出的内容. 任何帮助将不胜感激.
..
宏以删除电子邮件
我创建了一个宏，一旦单击按钮，该宏会将电子邮件转发给收件人.但是，我希望宏也删除电子邮件(将其发送到回收站). 这是当前代码.当前可以正常工作并转发电子邮件. Sub forwardEmail() Dim oExplorer As Outlook.Explorer Dim oMail As Outlook.MailItem Dim oOldMail As Outlook.MailIt
..
从Outlook中的宏打开后，如何防止Excel打开用户窗体?
我正在尝试在Outlook中创建一个宏，该宏在excel中打开一个文件并从该文件运行一个过程.这段代码做的很漂亮... Dim ExApp As Excel.Application Dim ExWbk As Workbook Set ExApp = New Excel.Application Set ExWbk = ExApp.Workbooks.Open("D:\Control Verif
..
使用Excel VBA创建具有特定值的行的Outlook电子邮件正文
我已经使用一个示例来创建代码，以使用“按钮"(文件中的红色)从Excel(使用Outlook)发送电子邮件. 该代码有效.有一个预先选择的行[B1:K20]范围，借助 Application.InputBox 函数，可以手动对其进行修改. Sub MAIL() Dim rng As Range Dim OutApp As Object Dim OutMail As Object Di
..
填充组合框VBA
我有这个VBA代码: Sub sendByCustomForm() Dim olItem As Outlook.MailItem Dim sText As String If Application.ActiveExplorer.Selection.Count = 0 Then MsgBox "No Items selected!", vbCritical, "Error"
..
Outlook VBscript转发文件夹中的电子邮件
我有一个特定的用户，他真的希望能够将任何电子邮件重定向到其部门中的其他人，以便当该人回复电子邮件时，该电子邮件将返回给最初发送该电子邮件的人. 我们不能授予他们所有人发送的权限，因为不是所有用户都是内部用户，因此我试图使VBScript在Outlook中运行，以便在指定的文件夹中转发所有电子邮件，但更改回复地址，以便他们不必每次都手动将其放入. 我是VB脚本的新手，所以我可能缺少一些基
..
使用Excel VBA计算跟进电子邮件
我正在使用Office 2013，并且试图在我的一个电子邮件文件夹中获取后续项目的计数，并且此值将被写入单元格中. 因此，在添加Outlook对象库参考之后，我将使用以下代码: Dim Folder As Outlook.MAPIFolder Dim objOL As Outlook.Application Set objOL = New Outlook.Application M
..
Outlook到Excel的超链接问题
希望您可以帮助我了解我在这里做错的事情. 作为Outlook宏的一部分，我希望使用指向文档的超链接来更新excel中的单元格. '~~> Excel variables Dim oXLApp As Object, oXLwb As Object, oXLws As Object '~~> Establish an EXCEL application object On Err
..
如何在Outlook中打开草稿时自动运行宏? (添加密件抄送)
我正在尝试自动实现此工作流程: 何时用户在Outlook中打开邮件草稿( 如果主题与字符串匹配(不可变，事先已知，我无法更改；类似于xyžřy，请注意非ASCII字符): 然后将电子邮件添加到“密件抄送"字段(不可变，事先已知，有效的电子邮件地址；假设它为baz@example.com) 我已经知道最后一部分-如何添加密件抄送给邮件，并且我使用InStr进行匹配: Sub ad
..
将数据从Excel导出到Outlook
我已经在Excel中起草了一封电子邮件，其中填充了数据表中的信息. 单元格A1到A4包含“嗨，希望您一切顺利"和消息.... etc .. A5至H10的表格中包含该信息，而A11至A30的电子邮件内容如“期待您的答复". 我只想复制A1:A4和A11:A30的值，但希望A5:H10出现在表格中. 这段代码来自罗恩·德布鲁因(Ron De Bruin). 下面的代码将
..
在Outlook中设置特定文本的格式
我需要格式化从Outlook中的Excel获取的特定String值. 一旦Excel提供了该值，宏就会将该值附加到电子邮件中. 我尝试测试并将其值设置为BOLD，但是消息的所有内容都变为BOLD.如何使用我喜欢的字体类型，大小和颜色来设置值的格式? obj.HTMLBody = "" & StrAgnt & vbCrLf & obj.HTMLBody 解决方案 请参见
..
我怎么知道规则何时完成处理?
在Outlook规则处理结束时，我试图找到一种方法来一次触发VBA子.我当前正在使用SyncEnd events，但是在首次启动Outlook时似乎无法正常工作(SyncEnd在规则在整个收件箱上运行之前触发，并且邮件所在的文件夹中尚不存在邮件项希望他们是.) 是否可以捕获“规则处理完成"事件? 解决方案 所有Outlook事件都在VBE中有详细记录.只需按F2进入“对象浏览器"，然
..
仅将对话中的最新回复复制到剪贴板
我有以下Outlook VBA代码，它将所选电子邮件的正文复制到Windows剪贴板: Sub CopyMailToClipboard() On Error GoTo HandleErr 'Copies the selected message to the Clipboard Dim M As MailItem Set M = ActiveExplorer().Selec
..
无法设置子文件夹
我是Outlook VBA的新手，并且很难弄清楚如何在下面的代码中设置子文件夹.我整天都在拍摄时遇到麻烦.不知道我在想什么. Sub DeleteOlderThan6months() Dim oFolder As Folder Dim Date6months As Date Dim ItemsOverMonths As Outlook.Items Dim DateToCheck As S
..
Outlook-根据收件人插入文本
我需要根据收件人自动将文本插入待发电子邮件中.我在另一个看起来很有希望的问题(归功于76Mel)的答案中找到了一些代码.看来我可以将代码附加到ThisOutlookSession中的ItemSend Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) If Item.MessageClass
..
使用VBA在Outlook中访问另一个maibox
我的Outlook中有两个邮箱. 一个是我的，当我登录到我的电脑时它会自动使我登录，而另一个我是用于邮件退回的. 我确实需要访问邮件帐户的收件箱，但似乎无法执行操作. 而且我无法使邮件帐户的邮箱成为我的默认邮箱 这是我到目前为止的代码: Public Sub GetMails() Dim ns As NameSpace Dim myRecipient
..
错误440“数组索引越界"?
我正在尝试下载带有主题关键字的Excel附件. 我设法创建了一个代码，但是有时它给出了错误440 "Array Index out of Bounds". 代码被卡在这部分中. If Items(i).Class = Outlook.OlObjectClass.OlMail Then 这是代码 Sub Attachment() Dim N1 As Strin
..
有没有办法防止在Outlook中自动解析?
我正在通过自动从excel中发送Outlook来发送电子邮件，并设法绕过了有关使用sendkey进行的有关病毒的讨厌警告消息(检查器在调用sendkey之前就已激活). 现在，我有时会收到有关允许访问联系人的消息. 我有收件人的电子邮件地址，不需要访问联系人，但是将启动Outlook自动解析，然后出现一个弹出窗口，提示允许访问联系人.这没有5秒的延迟，但是仍然阻止了系统的完全自动化. 我试图
..
如何设置带有动态日期的电子邮件模板，或者创建一个宏以插入日期?
我有一个每周发送的报告的模板，在四个不同的位置(正文中的三个，主题行中的一个)是对应于上周星期一的日期. (基本上，这是我要报告的一周的“星期"日期，通常是前一周.) 我想在光标所在的位置添加一个日期. (如果我能以某种方式在模板中为我想要添加日期的位置设置书签，那会更好.)我已经对插入文本进行了很多研究，而我在示例中也遇到了同样的两个问题已经发现: 我可以编写一个宏，该宏将打开一条新
..