|
Summary
Notifies that the IMAP message properties have been set.
Description
When a message is fetched by calling the Fetch or UidFetch method with the DataItem parameter specified as IMAP_UID, IMAP_FLAGS, IMAP_SIZE, IMAP_DATE then the Distinct IMAP ActiveX control
will fire the OnImapHeader event to deliver entire unparsed reply from the server and to notify the application on which IMAP 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.
The Mask parameter specifies which IMAP fields are valid. The Mask can be one or more of the following values.
| IMAP_DATE_VALID |
The ImapDate property is valid |
| IMAP_SIZE_VALID |
The ImapSize property is valid |
| IMAP_UID_VALID |
The ImapUid property is valid |
| IMAP_FLAGS_VALID |
The ImapFlags 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_OnImapHeader(MsgNum As Long, MsgUid As Long, Mask As Long, Buffer As String, Length As Long)
'Deliver fetched IMAP Mask, Message number and reply buffer
'Notifies of Imap properties set
Message = "Fetched attributes from message " " & MsgNum + Chr(13) + Chr (10)
If (Mask And IMAP_FLAGS_VALID) Then
Message = Message + "Message flags : " + Imap.ImapFlag
End If
.
.
List.Text = List.Text + Chr(13) + Chr(10) + Message
End Sub
| 
