Article ID: 104624
Article Last Modified on 1/8/2003
' set up a session associated with the message: Const SESSION_SIGNON = 1 mapisession1.Action = SESSION_SIGNON mapimessages1.SessionID = mapisession1.SessionID ' Send the message Const MESSAGE_SEND = 3 mapimessages1.MsgIndex = -1 ' The compose buffer mapimessages1.MsgNoteText = "How's it going?" ' The message text mapimessages1.MsgOrigAddress = "FredBloggs" ' Sender's alias mapimessages1.MsgSubject = "Hi" ' The message title mapimessages1.RecipDisplayName = "JoSmith" ' Recipient's alias mapimessages1.MsgReceiptRequested = True ' Request receipt mapimessages1.Action = MESSAGE_SEND ' Send messageBelow is the example code that traps whether Request Receipt has been set. Place this code at the point where the user reads the message.
If mapimessages1.MsgReceiptRequested Then ' Check Return
receipt
mapimessages1.MsgIndex = -1 ' Compose buffer
mapimessages1.RecipDisplayName = sender$ ' Set sender to
receiver
mapimessages1.MsgSubject = "RECEIVED " + title$ ' Set message title
mapimessages1.Action = MESSAGE_SEND ' Send Return Receipt
End If
The variables sender$ and title$ contain the alias and the message title of
the original message.
Additional query words: 3.00
Keywords: KB104624