我試圖更新所有傳入的電子郵件。 當電子郵件進入時，代碼觸發，但是，它更新當時選擇的郵件項目，而不是新郵件。 「運行腳本」選項不可用，我們的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