2017-03-08 183 views
1

我希望創建插入日期到電子郵件體當前打開進行編輯,在發送之前宏將文本插入到Outlook電子郵件編輯器。如何使用VBA

我使用Outlook 2013在Windows 7機器上。

期望中的工作流程:

  • 點擊回覆電子郵件
  • 在電子郵件編輯器,將郵件正文中的文本光標所需的位置插入文本
  • 執行宏(通過點擊電子郵件編輯器窗口快速訪問工具欄中的圖標)。宏將插入日期。

(假設日期已經存儲爲一個字符串變量,即宏只是簡單地插入一個變量到電子郵件正文在所需的位置)。

我發現的用於將文本插入到電子郵件正文中的所有Outlook VBA示例都涉及將活動電子郵件的HTMLBody存儲爲字符串,將所需文本附加到該字符串,然後創建全新電子郵件,然後重新填充到, cc,密件抄送,主題和htmlbody。我希望避免這種情況,因爲它看起來非常笨重。

非常感謝您的幫助。

回答

2

InsertBefore MethodInsertAfter Method

Inspector.WordEditor Property (Outlook)

Application.ActiveInspector Method (Outlook)

Option Explicit 
Public Sub Example() 
    Dim Inspector As Outlook.Inspector 
    Dim wdDoc As Word.Document 
    Dim Selection As Word.Selection 


    Set Inspector = Application.ActiveInspector() 
    Set wdDoc = Inspector.WordEditor 
    Set Selection = wdDoc.Application.Selection 
     Selection.InsertBefore Format(Now, "DD/MM/YYYY") 


    Set Inspector = Nothing 
    Set wdDoc = Nothing 
    Set Selection = Nothing 
End Sub 

enter image description here


參考到Microsoft Word XX.X對象庫


進入Outlook VBA編輯EIT她按"Alt + F11"鍵或在「開發」絲帶點擊"Visual Basic"按鈕。

  • 1.在VBA編輯器窗口中,單擊菜單欄中的 「工具」 按鈕。

  • 2.然後,從下拉列表中,選擇 「參考」 選項。

enter image description here

  • 3.在該對話框中,你可以拉動滾動條,直到您找到你想要的東西,如 「Microsoft Word中XX.X對象庫」 。

enter image description here