|
Summary
Fired in response to a Fetch or UidFetch method, this sets the SMTP header properties.
Description
When a message is fetched by calling the Fetch or UidFetch method with the DataItem parameter specified as IMAP_ENVELOPE then the Distinct IMAP ActiveX control will fire the OnSmtpHeader
event to notify which SMTP properties have been set and to deliver the entire unparsed server reply.
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 properties are valid for a fetched message. The Mask can be one or more of the following values.
| IMAP_FROM_VALID |
The SmtpFrom property is valid |
| IMAP_TO_VALID |
The SmtpTo property is valid |
| IMAP_SUB_VALID |
The SmtpSubject property is valid |
| IMAP_DATE_VALID |
| The SmtpDate property is valid |
| IMAP_CC_VALID |
| The SmtpCc property is valid |
| IMAP_BCC_VALID |
| The SmtpBcc property is valid |
| IMAP_SENDER_VALID |
| The SmtpSender property is valid |
| IMAP_MSGID_VALID |
| The SmtpMsgId property is valid |
| IMAP_REPLYTO_VALID |
| The SmtpReplyTo property is valid |
| IMAP_INREPLYTO_VALID |
The SmtpInRepyTo 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_OnSmtpHeader (MsgNum As Long, MsgUid As Long, Mask As Long, Buffer As String, Length As Long)
'Deliver fetched SMTP Mask, Message number and reply buffer
'Notifies of SMTP properties set
Message = "Fetched attributes from message " " & MsgNum + Chr(13) + Chr (10)
If (Mask And IMAP_TO_VALID) Then
Message = Message + "To: " + Imap.SmtpTo
End If
.
.
List.Text = List.Text + Chr(13) + Chr(10) + Message
End Sub
| 
