|
Summary
Send message body or attachment file name as binary. This event has been deprecated.
The OnSetBodyB event will be fired to set the message body and any attachments as binary
data.
Description
The OnBodyB event occurs in response to setting the Action property to ACTION_CREATE.
During the create message process, the OnBodyB event will be fired to obtain the body of
the message as well as the attachments. The UseVariant property must be set to True. If
the UseVariant property is False, then the OnBody event will be received instead. The Byte
argument passed to this event indicates the maximum number of bytes of data can be sent at
this moment.
The MIME ActiveX control will first fire the OnBodyB event to obtain the body of the
message. During the OnBodyB event, call the BodyB method. Pass the body as the Buffer
parameter, pass the length of the body as the Bytes parameter and pass 0 as the IsFile
parameter. Once the MIME control builds the main header and body of the message, it will
fire the OnHeader and OnBodyB events to obtain information for the attachments.
To send the attachment, simply pass the complete path and name of the file to the
Buffer parameter and the length of the Buffer as the Bytes parameter. The IsFile parameter
should be set to 1.
To indicate the end of the message body or attachment pass 0 as the Bytes parameter of
the BodyB method.
To abort the create message, 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
' HeaderInfo is a structure for the attachment name, encoding used and the
content type
' see the MIME sample for the definition
Sub Mime_OnBodyB (Bytes As Long)
' send message body
If MsgBodyDone = False Then
Result = BodyB (Buffer, BufferLength, 0) ' message body
MsgBodyDone = True
Exit Sub
End If
' send attachment filename
If AttachDone = False And HeaderIndex <> 0 Then
Result = BodyB (HeaderInfo(Indx).Buffer, BufferLength, 1) ' attachment
AttachDone = True
Else
Result = BodyB (Buffer, 0, 0) ' end of body or attachment
End If
End Sub
| 
