我正在寫一個宏，允許我通過附件轉發當前郵件（通過功能區上的按鈕運行宏），然後刪除原始郵件。 但是，當我運行宏消息不會被刪除，我收到一封來自「系統管理員」的電子郵件，消息是un-deliverable。 如果我註釋掉該行.DeleteAfterSubmit = True該消息已發送但未刪除。 Dim objAttachment As Attachment
Dim strAttachment As
早上好 - 我想從訪問Outlook程序是撰寫電子郵件。 我相信我已經想通妥善如何創建電子郵件，但無法理解如何使用用戶的默認郵件字體的字體類型。所有消息都上來了宋體，PT 12 我發現很多關於如何將字體設置爲某種風格的文章，但我想使用用戶的默認的Outlook字體設置。 Sub testHTML()
Dim objOutlook As Outlook.Application
Dim objOu
注意：我對查找工作表的路徑並不感興趣，我打算將該工作表的路徑寫入位於與.OTM文件相同的文件夾中的文本文件中。 我需要將此代碼從硬編碼路徑轉換爲從位於與宏相同文件夾中的文本文件中讀取的路徑。 如何獲得使用宏（vba代碼）本身的宏的路徑？ Public xlApp As Object
Public xlWB As Object
Public xlSheet As Object
Sub Open
我有以下代碼對收到的每個通過Outlook收到的電子郵件執行一些操作。它可以工作，但是如果多個郵件同時到達（即，當Outlook重新查詢服務器時，我的電子郵件地址是基於），它只會在最近收到的代碼上運行下面的代碼。有什麼建議麼？ Private WithEvents Items As Outlook.Items
Private Sub Application_Startup()
Dim
我目前可以使用下面的宏創建一個規則，該規則將所有具有選定發件人地址的電子郵件發送到指定文件夾。 這工作正常。但是，我想要創建規則以將來自該域的所有電子郵件（不管發件人）發送到該文件夾。 這是我目前使用的代碼。 Dim colRules As Outlook.Rules
Dim oRule As Outlook.Rule
Dim colRuleActions As Outlook.Rul
以下Outlook宏完美工作，但是，我希望此MsgBox僅在主題爲LIKE 'Fees Due%'或主題爲LIKE' Status Change%'時纔會顯示。這可能嗎？ Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If MsgBox("Do you want to continue
我有一個VBA腳本，它循環選定的電子郵件並打印所有電子郵件中的PDF附件。 目前，該腳本將PDF文件保存到硬盤驅動器，然後打開並打印它們。 Sub BatchPrintAllAttachmentsinMultipleEmails()
Dim objFileSystem As Object
Dim strTempFolder As String
Dim objSelec