16,553
社区成员
发帖
与我相关
我的任务
分享
Private Function IsAttachmentEmbeddedViaPropertyAccessor(ByVal att As Outlook.Attachment) As Boolean
Dim result As Boolean = False
Dim conversionResult As Boolean = False
Dim result As Boolean = False
Dim temp As Object = Nothing
Dim PR_ATTACH_FLAGS_value As Byte = 0
temp = "1"
If (PR_ATTACH_FLAGS_value And PrAttachFlags_ENUM.attRenderedInBody) = MAPI.PrAttachFlags_ENUM.attRenderedInBody Then
result = True
End If
Dim PR_ATTACH_METHOD_value As Integer = 0
temp = "1"
conversionResult = Int32.TryParse(temp.ToString(), PR_ATTACH_METHOD_value)
If PR_ATTACH_METHOD_value = PrAttachMethod_ENUM.afStorage Then
result = True
End If
Return result
End Function
<System.Flags()> _
Enum PrAttachFlags_ENUM
None = &H0
attInvisibleInHtml = &H1
attInvisibleInRtf = &H2
attRenderedInBody = &H4
End Enum
Enum PrAttachMethod_ENUM
afNone = &H0
afByValue = &H1
afByReference = &H2
afByReferenceOnly = &H4
afEmbeddedMessage = &H5
afStorage = &H6
End Enum