群发邮件调用的是outlook，邮件内容源自word文档（带有格式），运行后邮件正文为纯文本，并不满足要求，请问如何使邮件正文保留word格式？
在VBA中群发邮件时，可以使用邮件对象的HTMLBody属性来保留邮件正文的原格式。
当你创建邮件对象时，可以通过设置邮件对象的BodyFormat属性为olFormatHTML来指定邮件的格式为HTML格式。然后，你可以将邮件的正文内容以HTML格式传递给HTMLBody属性。
以下是一个示例代码片段：
```html
Dim OutlookApp As Object
Dim MailItem As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set MailItem = OutlookApp.CreateItem(0)
With MailItem
.Subject = "邮件主题"
.HTMLBody = "<html><body><p>这是一段带有格式的邮件正文内容。</p><p>可以使用HTML标签来设置文字的格式和样式。</p></body></html>"
' 这里的文本内容可以包含HTML标记来设置格式
' 利用HTML标记，可以设置换行、段落、字体样式、颜色等
' 通过HTMLBody属性，可以保留原格式
.BodyFormat = olFormatHTML
.Recipients.Add "recipient@example.com"
' 添加更多收件人...
.Send
End With
Set MailItem = Nothing
Set OutlookApp = Nothing
```