|
Summary
Send message body or attachment file name. This event has been deprecated. The
OnSetBody event will be fired to set the message body and attachments.
Description
The OnBody event occurs in response to setting the Action property to ACTION_CREATE.
During the create message process, the OnBody event will be fired to obtain the body of
the message as well as the attachments.
The MIME ActiveX control will first fire the OnBody event to obtain the body of the
message. Assign the body to Buffer and set Length to the length of Buffer.
The IsFile parameter should be set to 0. Once the MIME control builds the main
header and body of the message, it will fire the OnHeader and OnBody events to obtain
information for the attachments.
To send the attachment, simply set the complete path and name of the file to the Buffer
parameter and Length to the length of the buffer string. The IsFile
parameter should be set to 1.
To indicate the end of the message body or attachment set Buffer to an empty
string and Length to 0.
In some environments, such as Visual J++, the new value assigned to the Buffer
and IsFile parameters can not be successfully retrieved by the control. In these
cases set UseProperty to True, and assign data to the SendData property instead of the Buffer
parameter, and the BodyAsFile property can be used in place of the IsFile
parameter. In this case the UseProperty property must be set to True before attempting to
create a message. In this case treat the SendData property exactly as you would the Buffer
parameter, and the BodyAsFile property exactly as you would the IsFile parameter.
If UseProperty is True the Length parameter will be ignored.
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_OnBody (Buffer As String, Length As Integer, IsFile
As Integer)
' send message body
If MsgBodyDone = False Then
Buffer = Message
Length = Len(Message)
IsFile = 0 ' message body
MsgBodyDone = True
Exit Sub
End If
' send attachment filename
If AttachDone = False And HeaderIndex <> 0 Then
Buffer = HeaderInfo(Indx).FilePath
Length = Len(HeaderInfo(Indx).FilePath)
IsFile = 1 ' attachment
AttachDone = True
Else
Buffer = "" ' end of body or attachment
Length = 0
IsFile = 0
End If
End Sub
| 
