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
主要是列舉值與byte值 and那一段,列舉值與Int值判斷那一段,怎么轉?謝謝
uj5u.com熱心網友回復:
在陳述句里把enum強制轉成int就可以了uj5u.com熱心網友回復:
主要是列舉值是&H1,這種對應C#是0x1吧,還有就是byte與列舉值那一塊的代碼怎么轉uj5u.com熱心網友回復:
樓主試一下這個http://converter.telerik.com/,一般的都能轉換。
uj5u.com熱心網友回復:
有個網站可以試試uj5u.com熱心網友回復:
有個網站http://converter.telerik.com/這個可以試試轉載請註明出處,本文鏈接:https://www.uj5u.com/net/135124.html
標籤:VB.NET
上一篇:學習.net,c#開發
