|
Summary
Fired in response to a Fetch or UidFetch method, this sets the MIME header properties.
Description
When a message is fetched by calling the Fetch or UidFetch method with the DataItem parameter specified as IMAP_BODY_STRUCTURE or IMAP_BODY_STRUCTURE_EXT then the Distinct IMAP ActiveX
control will fire the OnMimeHeader event to deliver entire unparsed reply from the server and to notify the application on which MIME fields have been set.
The MsgNum parameter contains the sequential message number and the MsgUid parameter contains the Uid of the message. The MsgUid parameter will only be valid if the
UidFetch method was called.
If the DataItem contained the flag IMAP_BODYSTRUCT following properties may be set by this event: MimeType, MimeSubtype, MimeCharset, MimeFilename, MimeId, MimeDescription, MimeLines, MimeSize,
MimePartNumber, MimeServer, MimeDirectory, MimeSite, MimeAccessType and MimeEncoding.
If the DataItem contained the flag IMAP_BODYSTRUCT_EXT then in addition to the properties listed above the following MIME properties may also be set: MimeBoundary, MimeBodyLanguage and MimeMd5.
The Mask parameter specifies which MIME fields are valid for the message. The Mask can be one or more of the following values.
| IMAP_TYPE_VALID |
The MimeType property is valid |
| IMAP_SUBTYPE_VALID |
The MimeSubtype property is valid |
| IMAP_CHARSET_VALID |
The MimeCharset property is valid |
| IMAP_FILENAME_VALID |
The MimeFilename property is valid |
| IMAP_ID_VALID |
The MimeId property is valid |
| IMAP_BOUNDARY_VALID |
The MimeBoundary property is valid |
| IMAP_DESP_VALID |
The MimeDescription property is valid |
| IMAP_MD_VALID |
The MimeMd5 property is valid |
| IMAP_BODYLANG_FIELD |
The MimeBodyLanguage property is valid |
| IMAP_ENCODE_FIELD |
The MimeEncoding property is valid |
| IMAP_SERVER_VALID |
The MimeServer property is valid |
| IMAP_DIRECTORY_VALID |
The MimeDirectory is valid |
| IMAP_ACCESS_VALID |
The MimeAccessType property is valid |
| IMAP_SITE_VALID |
The MimeSite property is valid |
| IMAP_PARTNUM_VALID |
The MimePartNumber property is valid |
| IMAP_SIZE_VALID |
The MimeSize property is valid |
| IMAP_LINES_VALID |
The MimeLines property is valid |
The Buffer contains the entire unparsed reply from the server and the Length parameter contains the length of the buffer.
Example
Private Sub Imap_OnMimeHeader(MsgNum As Long, MsgUid As Long, Mask As Long, Buffer As String, Length As Long)
'Deliver fetched Message number and reply buffer
'Notifies of Mime properties set
Message = "Fetched attributes from message " " & MsgNum + Chr(13) + Chr (10)
If (Mask And IMAP_TYPE_VALID) Then
Message = Message + "Mime Type : " + Imap.MimeType
End If
.
.
List.Text = List.Text + Chr(13) + Chr(10) + Message
End Sub
| 
