Vba 转发正文中有表格的电子邮件

我对在Outlook中使用vba非常陌生

我想知道是否有一种方法可以编写一个脚本，它可以完成以下任务 运行时，它可以将电子邮件转发到特定的地址，并在正文中放置一个4行4列的空白表

任何帮助都将不胜感激 感谢使用返回一个表对象，该表对象表示添加到文档中的新空白表

确保电子邮件为HTML格式

语法

您的Outlook代码示例如下

---

电子邮件正文示例

---

一,。从“工具”菜单中，选择“参照”以显示“参照”对话框

二,。“引用”对话框显示在操作系统中注册的所有对象库。滚动要引用其对象库的应用程序的列表。如果未列出应用程序，则可以使用“浏览”按钮搜索对象库（.olb和.tlb）或可执行文件（.exe和.dll（在Windows上）。复选框被选中的引用将被项目使用；未选中的不使用，但可以添加

---

为了参考word中的工具吗？@alli No，您可以从Outlook转到Visual Basic窗口中的工具>参考。您好&欢迎使用Stack Overflow，通常希望您在解决问题方面做出一些努力，而“我真的很新”通常是“我不认识jack，请给我答案”的代号，这是非常糟糕的形式，也违反了这里的礼仪。你需要对你的问题有一个基本的了解（至少），并提供你尝试过的代码，如果可能的话，还需要提供你的特定问题或错误的解释。如果你不知道如何做一些事情，请先做，如果你的代码卡住或有错误，这是一个询问问题以寻求帮助和故障排除的好时机。

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

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