vba outlook在邮件正文后面插入表单

在VBA Outlook中，要在邮件正文中插入表单，你需要使用Outlook的对象模型，特别是MailItem和Form classes。以下是一个简单的步骤示例：

1. 首先，确保你已经创建了一个Excel工作簿并保存为表单。你可以通过将工作簿另存为.xlsm文件来包含宏和控件。

2. 使用`Application.GetActiveObject`函数获取Excel应用实例，然后加载你的表单：

   Dim xlApp As Excel.Application
   Set xlApp = Application.GetActiveObject("Excel.Application")
   If xlApp Is Nothing Then
       Set xlApp = New Excel.Application
   End If
   Dim xlBook As Excel.Workbook
   Set xlBook = xlApp.Workbooks.Open("<your_form_file_path>")

3. 创建一个新的邮件，并添加表单到其HTML正文：

   Dim olMail As MailItem
   Set olMail = Application.CreateItem(olMailItem)
   
   ' 将Excel表单转换为HTML格式，然后添加到邮件正文中
   Dim html As String
   With xlBook.Sheets(1) '<假设表单只有一个sheet
       .Activate
       html = .ToHtml '<将工作表转换为HTML
   End With
   
   olMail.Body = olMail.Body & "<br>" & html '<在邮件末尾添加HTML内容

4. 发送邮件之前记得关闭Excel应用和保存邮件：

   olMail.Send
   xlBook.Close SaveChanges:=True
   xlApp.Quit
   Set xlBook = Nothing
   Set xlApp = Nothing