Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
oSession = CreateObject("MAPI.Session")
oSession.Logon() && This will bring up the profile chooser
oNewMessage=oSession.Outbox.messages.add()
oNewMessage.Subject = "This is an e-mail using CDO"
oNewMessage.Text = "Welcome to the world of CDO"
oNewMessage.DeliveryReceipt = .T. &&Optional, forces a receipt send back
oRecipient = oNewMessage.Recipients.Add()
oRecipient.Name = "John Doe" && This name must appear in your address book.
oRecipient.Resolve && If name does not appear this will cause an error.
oNewMessage.Update()
oNewMessage.Send(1,0,0) && The 1 will save a copy of the message in your sent items folder of Outlook.
oSession.Logoff()
oShell = CreateObject('WScript.Shell')
oShell.Run('Control.exe "C:\Program Files\Common Files\SYSTEM\MSMAPI\1033\mlcfg32.cpl",,1')