HOWTO: Windows Script Host Script for Sending E-Mail (197920)

MORE INFORMATION

This example will work in either an Active Server Pages (ASP) page or in Windows Script Host (WSH), as long as there is a valid Outlook User Profile available on the system. This User Profile appears in the from field of the mails generated. It would be possible to set up a Profile that is used solely for sending automated messages.

Use the following steps with WSH:

Save the code listed below into a file with a .vbs extension. To test, double-click on the file in Windows Explorer.

If you are using Windows 95, you need to install Wsh.exe from the following Web site to enable Windows Script Host: Use the following steps with ASP:

Assuming you are saving it on a Web server with Active Server Page Extensions installed, you can just include the code directly into an ASP page, or save it in a file that you include into any ASP page that needs mailing capabilities.

Use the following for both methods:

Don't forget to change the recipient and the logon information. The logon has to be a valid Outlook user profile.

   'Body of email message
   Dim msgBody
   msgBody="A mail from the Windows Script Host!"

   'Call our function with recipient, message and subject
   MySendMail "someone@example.microsoft.com",msgBody,"Automated Message."

   Sub MySendMail(recipient,msg,subject)
       Dim objSession, oInbox, colMessages, oMessage, colRecipients

       Set objSession = CreateObject("MAPI.Session")
       objSession.Logon "A Valid User Profile"

       Set oInbox = objSession.Inbox
       Set colMessages = oInbox.Messages
       Set oMessage = colMessages.Add()
       Set colRecipients = oMessage.Recipients

       colRecipients.Add recipient
       colRecipients.Resolve

       oMessage.Subject = subject
       oMessage.Text = msg
       oMessage.Send

       objSession.Logoff
       Set objSession = nothing

   End Sub
				

NOTE: If you intend to run these scripts from the context of a service, look at article Q177851 in the REFERENCES section below.