转发电子邮件，身体中有一张桌子

Question

我在Outlook中使用vba真的很新。

我想知道是否有办法编写可以执行以下操作的脚本 运行时，它可以将电子邮件转发到特定地址，并在主体中放置一个包含4行和4列的空白表

任何帮助将不胜感激 感谢

Answer 1

使用 Tables.Add Method (Word) 返回一个Table对象，该对象表示添加到文档中的新空白表。

确保电子邮件是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("0m3r@Email.com")
        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）或可执行文件（ .exe和。在Windows上的DLL）。检查复选框的引用将由您的项目使用;那些未经过检查的人不会被使用，但可以添加。