Add Method (CDONTS Messages Collection)
Add Method (CDONTS Messages Collection)
The Add method creates and returns a new Message object in the Messages collection.
Syntax
Set
objMessage = collMessages.Add( [subject] [, text] [, importance] )
objMessage
On successful return, represents the new Message object added to the collection.
collMessages
Required. The Messages collection object.
subject
Optional. String. The subject line for the message.
text
Optional. IStream object or String. The text of the message.
importance
Optional. Long. The importance associated with the message.
Remarks
The subject, text, and importance parameters correspond to the Subject, Text, and Importance properties on the Message object.
You must create all new messages in the Outbox folder.
Only C/C++ and Java programs can use an IStream object for the text parameter. They should pass an IUnknown object that returns an IStream interface in response to QueryInterface. Microsoft® Visual Basic® supports the IDispatch interface and not IUnknown, so it cannot use an IStream object.
Example
This code fragment replies to an original message:
' from the sample function Util_ReplyToConversation
Set objOutbox = objSession.GetDefaultFolder(CdoDefaultFolderOutbox)
Set objNewMsg = objOutbox.Messages.Add
' verify objNewMsg created successfully ... then supply properties
Set objSenderAE = objOriginalMsg.Sender ' sender as AddressEntry
With objNewMsg
.Text = "Here is a reply to your message." ' new text
.Subject = objOriginalMsg.Subject ' copy original properties
Set objRecip = .Recipients.Add(name:=objsenderAE.Name, _
type:=CdoTo, _
address:=objSenderAE.Type & ":" & objSenderAE.Address)
' ** the preceding line is not strictly necessary with CDO for NTS,
' ** but it allows this code to run with CDO for Exchange, where
' ** Recipient.Address requires a FULL address concatenated from
' ** AddressEntry.Type, ":", and AddressEntry.Address
.Send
End With