轉發電子郵件在身體中的表

-1

我想知道如果有是寫一個腳本，可以做以下運行時，它可以將電子郵件轉發到特定地址，把一個空白表在體內具有4行4列

方式

任何幫助將非常感激感謝

2017-05-10 alii

嗨，歡迎來到Stack Overflow，你通常會期待解決這個問題的一些努力，而且「我真的很新」通常是代碼字「我不知道傑克，請給我答案「，這是非常糟糕的形式，也違背了禮儀。您應該對您的問題有一個基本的瞭解（至少），並提供您已嘗試的代碼，並且如果可能，請提供[MCVE]（http://stackoverflow.com/help/mcve）以及您的具體問題或錯誤。 –

如果您不知道如何做某事，請先[google it]（https://www.google.com/search?q=outlook+vba+insert+table&oq=Outlook+VBA+add+Table&aqs=chrome .1.69i57j0.4744j0j4＆sourceid = chrome＆ie = UTF-8），然後如果您遇到問題或者您的代碼存在錯誤，那麼現在是提出問題以尋求幫助和疑難解答的好時機。 –

與Tables.Add Method (Word)其返回表示一個新的空白表添加到文檔的表對象工作。

確保電子郵件是HTML格式

語法

expression .Add(Range, NumRows, NumColumns, DefaultTableBehavior, AutoFitBehavior)

您的Outlook代碼示例將

Option Explicit 
Public Sub Example() 
    Dim Item As Outlook.mailitem 
    Dim Forward As Outlook.mailitem 
    Dim Recip As Recipient 
    Dim Inspector As Outlook.Inspector 
    Dim wdDoc As Word.Document 
    Dim Selection As Word.Selection 

' // Select the Item you would like to forward  
    Set Item = Application.ActiveExplorer.Selection.Item(1) 
    Set Forward = Item.Forward 
    Set Recip = Forward.Recipients.Add("[email protected]") 
     Recip.Type = olTo 
     Forward.Display 

    Set Inspector = Application.ActiveInspector() 
    Set wdDoc = Inspector.WordEditor 
    Set Selection = wdDoc.Application.Selection 

     Selection.Tables.Add Range:=Selection.Range, _ 
          NumRows:=4, NumColumns:=4, _ 
          DefaultTableBehavior:=wdWord9TableBehavior, _ 
          AutoFitBehavior:=wdAutoFitFixed 


'  // Uncomment to send 
'  Forward.Sent 

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

電子郵件正文實例

Remember to add reference to word xx object library

1.從工具菜單，選擇引用以顯示引用對話框。

2.引用對話框顯示在操作系統中註冊的所有對象庫。滾動瀏覽要引用其對象庫的應用程序的列表。如果未列出應用程序，則可以使用瀏覽按鈕來搜索對象庫（ .olb和.tlb）或可執行文件（在Windows上的.exe和.dll。）。其複選框已被選中的引用被您的項目使用;那些沒有被檢查的不被使用，但可以被添加。

來源

2017-05-11 00:32:45 0m3r

爲了提醒我去詞中的工具？ – alii

@alli不，您從Outlook中轉到Visual Basic窗口中的工具>參考。 –

轉發電子郵件在身體中的表

回答

相關問題