我试图更新所有传入的电子邮件。 当电子邮件进入时，代码触发，但是，它更新当时选择的邮件项目，而不是新邮件。 “运行脚本”选项不可用，我们的IT尚未准备好更改注册表。 Private Sub Application_NewMail()
Call InsertNum
End Sub
Sub InsertNum()
Dim Mail As Outlook.MailItem
Set Mail
我创建了一个代码，显示与我共享日历的人员的打开时间段。在单元格中输入日期将显示雇员，开始时间，结束时间格式的列表框中的所有打开时间段。 该代码仅适用于本月15日及以后的代码。列表框的前15天显示上午9点至下午5点，不拉开空位。 Option Explicit
Dim objOL As New Outlook.Application ' Outlook
Dim objNS As Namespa
我从用户那里获得交换在线地址，但我想转换或以某种方式获取它们的SMTP地址。 我不知道如何从Email1Address获取SMTP地址。 Set objOL = CreateObject("Outlook.Application")
Set objNS = objOL.GetNamespace("MAPI")
Set objContactsFolder = objNS.GetDefaultFo
有没有办法让Outlook加载项使用全局范围？我希望能够随时启动加载项，但不一定要将其与特定的电子邮件相关联。根据the documentation I found，最接近的是将它显示为一个模块，但它只能在桌面版本（而不是网页）上运行，并且不允许您在电子邮件旁边查看它。如果这可以在屏幕上运行，那么这将是理想的，类似于Skype在Web版本的Outlook上运行的桌面和网页版本。 Skype是一种特
我正在开发一个脚本来格式化Outlook模板并通过单击按钮发送它。 主要目标是在间距之后/之前使用单行距离和0pt，并将模板上的所有内容控件（例如ComboBoxes）转换为文本/字符串。 Sub FormatAndSend()
Dim CurrentMessage As Outlook.MailItem
If TypeName(Application.ActiveWindo