Section 9.18. Messaging

9.18. Messaging

Messaging services (email) can be accessed using CDO (Collaborative Data Objects). This COM object contains a large and powerful selection of objects.

CDO is a powerful but complex object model. The web site, CDO Live, at http://www.cdolive.com, is an excellent resource to get you started working with CDO.

The following example will log on to your default messaging profile and send a message. This assumes you are using an Exchange or Outlook client that has been set up to send Internet email. This will not work with Outlook Express.

 Dim objSession, objMessage, WshShell, sPrf, objRecipient Set WshShell = CreateObject("WScript.Shell") 'create a MAPI session Set objSession = CreateObject("MAPI.Session") 'check if the OS string contains NT 'set the profile string. This will read your default setting sPrf = "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging         Subsystem\Profiles\DefaultProfile" 'log on using the default profile name objSession.Logon WshShell.RegRead(sPrf) 'create a new message, setting the subject to Hello There Set objMessage = _         objSession.Outbox.Messages.Add("Hello There") objMessage.Text = "This is the body of the message" 'send to Joe Blow Set objRecipient = objMessage.Recipients.Add("Joe Blow", _         "SMTP:[e-mail]") objRecipient.Resolve 'resolve the address 'send the message objMessage.Send objSession.Logoff