.Outlook VBA 中的正文没有收到纯文本电子邮件的文本

Question

.Mailitem 的正文没有返回任何内容

我正在使用 entryID 访问入站电子邮件并使用 Application.Session.GetItemFromID 设置对象

strID = olitem.EntryID
Set olitem = Application.Session.GetItemFromID(strID)

一旦我设置了 olitem
Set olitem = Application.Session.GetItemFromID(strID) 它显示电子邮件已被访问，但是当 sText = oliitem.Body 运行时，stext 最终为空。

这是从 Outlook 规则触发的整个代码。

Sub ParseEPDMRequest(olitem As Outlook.MailItem)


Dim arr() As String
Dim ECONum As String
Dim ReqID As String

Dim sText As String
Dim strID As String

strID = olitem.EntryID
Set olitem = Application.Session.GetItemFromID(strID)

sText = olitem.Body
arr = Split(olitem.Body, ":")
arr = Split(arr(15), " ")
ECONum = GetECONum(arr(8))
sText = olitem.Subject
ReqID = GetReqId(sText)

Call TEAMtoEPDMPush(ECONum & ".xml", ReqID)

End Sub

Answer 1

在某些情况下，消息可以没有纯文本正文。您必须检查正文的格式（see BodyFormat property）：

strID = olitem.EntryID
Set olitem = Application.Session.GetItemFromID(strID)
If olitem.BodyFormat=OlBodyFormat.olFormatPlain Then
   sText = olitem.Body
   ...
ElseIf  olitem.BodyFormat=OlBodyFormat.olFormatHTML Then 
   ...