How To Performing OLE Automation with Visual Basic Script 1.0

MORE INFORMATION

WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this code "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose.

The following example demonstrates how the HTML object tag and Visual Basic Scripting can be used to send a message with the OLE Messaging Automation Object.

NOTE: Replace objOneRecip.Name = "Some Name" with a valid recipient name:

<HTML>
<HEAD>
<TITLE>Sample Script to Send a MessagePage</TITLE>
</HEAD>
<BODY>
   <OBJECT ID="MAPI" WIDTH=10 HEIGHT=10
    CLASSID="CLSID:3FA7DEB3-6438-101B-ACC1-00AA00423326">
  </OBJECT>

<SCRIPT LANGUAGE="VBScript">
Dim oSession, objMessage, objOneRecip
MAPI.Logon
Set objMessage = MAPI.Outbox.Messages.Add
Set objOneRecip = objMessage.Recipients.Add
    objOneRecip.Name = "Some Name"
    objOneRecip.Type = 1
    objOneRecip.Resolve 1
objMessage.subject = "Test MAPI/OLE VB Message w/ole object - explicit"
objMessage.Text = "Like you really wanted this.. Please Delete this
test"
objMessage.Send 0,0,0

</SCRIPT>
</BODY>
</HTML>