|
Summary
Obtain message body or attachment file contents as binary.
Description
The OnDataB event occurs in response to calling the CreateMessage. During the create
message process, the OnDataB event will be fired one or more times to deliver the created
message to the application if no destination filename was given in the call to
CreateMessage.
This event will also occur if the ExtractX or CreateX methods are called. However these
methods have been deprecated and the ExtractMessageStart, ExtractMessageData,
ExtractMessageEnd and CreateMessage methods should be used instead. In case of the
ExtractX message extraction process the OnDataB event will be fired to deliver the body of
the message as well as the attachments, it will be fired after each OnExtract event. The
UseVariant property must be set to True. If the UseVariant property is False, then the
OnData event will be received instead. The Byte argument passed to this event indicates
the maximum number of bytes of data can be obtained at this moment.
The MIME ActiveX control will first fire the OnDataB event to send the body of the
message. During the OnDataB event, call the DataB method to obtain the data.
To abort the current process, set the Action property to ACTION_ABORT (or call the
Abort method) during this event. The action in progress will be canceled and no further
such events will occur.
Example
Sub Mime_OnDataB (Bytes As Long)
Dim Buffer(1 to 1000) As Byte
Dim Siz As Long
Dim i As Integer
Siz = Mime.DataB (Buffer, Bytes)
If Siz > 0 Then
Open "c:\abc.exe" For Binary Access Write As #1
For i = 1 To Siz
Put #1, i, Buffer (i)
Next i
Close #1
Else
MsgBox "Cannot retrieve binary data", 64, "Sample Program"
End If
End Sub
| 
