Private Function IsAttachmentEmbeddedViaPropertyAccessor (ByVal att As Outlook. Attachment) As Boolean 
Dim the result As a Boolean=False 
Dim conversionResult As Boolean=False 
Dim the result As a 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 the 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=https://bbs.csdn.net/topics/PrAttachMethod_ENUM.afStorage Then 
Result=True 
End the If 
Return the result 
End the Function 

Enum PrAttachFlags_ENUM 
None=& amp; H0 
AttInvisibleInHtml=& amp; H1 
AttInvisibleInRtf=& amp; The H2 
AttRenderedInBody=& amp; H4 
End Enum 

Enum PrAttachMethod_ENUM 
AfNone=& amp; H0 
AfByValue=https://bbs.csdn.net/topics/&H1 
AfByReference=& amp; The H2 
AfByReferenceOnly=& amp; H4 
AfEmbeddedMessage=& amp; H5 
AfStorage=& amp; H6 
End Enum 

Mainly enumerated values and the byte value and that a, enumerated values with an Int value judgment, how to go? thank you

CodePudding user response:

Enum forced into an int in the statement

CodePudding user response:

Is mainly enumerated values & amp; H1, this corresponds to the c # 0 x1 is right, and the byte and enumeration values that how to turn a piece of code

CodePudding user response:

refer to the second floor etherealkite response:

is mainly enumerated values & amp; H1, this corresponds to the c # 0 x1 is right, there is a byte and enumeration values that piece of code how to turn

The building Lord try this http://converter.telerik.com/, general can transform,

CodePudding user response:

There is a web site can have a try

CodePudding user response:

There is a website http://converter.telerik.com/this can have a try