通过VBA将模板表（在表工具->；设计中）插入outlook mail

我尝试使用VBA在outlook电子邮件中创建表。我知道我们可以使用Htmlbody和table选项卡来创建表。类似下面的代码

Sub Test  
    Set oolApp = CreateObject("Outlook.Application")
    Set Email = oolApp.CreateItem(0)

    Dim MailBody As String
    MailBody = "<table border=1>"
    MailBody = MailBody & "<tr><td>" & "aaa" & "</td>" & "<td>" & "bbb" & "</td>" & "<td>" & "bbb" & "</td></tr>"
    MailBody = MailBody & "<tr><td>" & "123" & "</td>" & "<td>" & "456" & "</td>" & "<td>" & "789" & "</td></tr>"
    MailBody = MailBody & "</table>"

    Email.HTMLBody = MailBody

    Email.display   

End Sub

子测试
设置oolApp=CreateObject（“Outlook.Application”）
设置Email=oolApp.CreateItem（0）
将邮件正文设置为字符串
MailBody=“”
邮件正文=邮件正文&“aaa”&“bbb”&“bbb”&“bbb”&“bbb”&”
邮件正文=邮件正文&“123”&“456”&“789”&”
MailBody=MailBody&“”
Email.HTMLBody=邮件正文
电子邮件显示
端接头

但我想在表格工具->设计中使用模板表格，使表格更漂亮。是否有任何方法可以使用VBA代码执行此操作

---

您可以手动创建表并另存为.oft文件

Option Explicit

Sub ThreeColumnGreenStripeTable

    Dim Email as mailitem
    Set Email = CreateItemFromTemplate("path to ThreeColumnGreenStripeTable.oft")
    Email.display   

End Sub

---

您可以改为手动创建表并另存为.oft文件

Option Explicit

Sub ThreeColumnGreenStripeTable

    Dim Email as mailitem
    Set Email = CreateItemFromTemplate("path to ThreeColumnGreenStripeTable.oft")
    Email.display   

End Sub

---

那听起来是个好主意。但是谢谢你的回答。我最终决定使用html来创建表。因为我可以用它为我的桌子做更多的事情。然而，你的想法仍然是一个很好的实现方式，非常感谢你的帮助，这听起来是个好主意。但是谢谢你的回答。我最终决定使用html来创建表。因为我可以用它为我的桌子做更多的事情。然而，你的想法仍然是一个很好的实现方式，非常感谢你的帮助