Public Const URL_ATTACH_SET_CNTTYPE As Integer = 4 Public Const URL_ATTACH_GENERATE_CID As Integer = 2 Public Const URL_ATTACH_INTO_MIXED As Integer = 1 Private Shared Function SHCreateStreamOnFile(ByVal pszFile As String, ByVal grfMode As Integer, ByRef ppst As .IStream) As HRESULT ![]() OpenFileDialog1.Filter = "EML Files (*.eml)|*.eml"ĭim result As DialogResult = openFileDialog1.ShowDialogĭim pstm As .IStream = Nothingĭim hr As HRESULT = SHCreateStreamOnFile(openFileDialog1.FileName, CInt(STGM_READ), pstm)ĭim CLSID_IMimeMessage As Guid = New Guid("FD853CE3-7F86-11d0-8252-00C04FD85AB4")ĭim MimeMessageType As Type = Type.GetTypeFromCLSID(CLSID_IMimeMessage, True)ĭim MimeMessage As Object = Activator.CreateInstance(MimeMessageType)ĭim pMimeMessage As IMimeMessage = CType(MimeMessage, IMimeMessage)ĭim TextType() As Integer = New Integer(1) eml filesĪ basic sample with IMimeMessage (body, properties, load and save attachments) ![]() If anyone has any code samples on how I would use the standards you mention or IMimeMessage then I can give that a try as well to see what else I can get out of the.
0 Comments
Leave a Reply. |