Folowing is my code. 1) How do 1 handle unknown email type ? It gives
'Object does not support method' error. Any
-
Any pitfall as it sometimes hangs at 'doc.GetFirstItem
(“Body”) ’ but ok at doc.GetFirstItem(“Subject”)
session.ConvertMime = True
’ get subject
Set itemSubject = doc.GetFirstItem(“Subject”)
If Not itemSubject Is Nothing Then
strSubject = itemSubject.Text
End If
'get body content
if doc.HasItem(“Body”) then
Set itemBody = doc.GetFirstItem("Body") -- sometimes
hangs here
itType = itemBody.Type
If (itType = RICHTEXT Or itType = MIME_PART)
strBodyText = itemBody.Text
else ’ UNKNOWN TYPE
strBodyText = itemBody.Text --- give object does not
support method