send mail from macro

[Gatos]

Dit werkt helaas niet weet iemand waarom ?

Set out=WScript.CreateObject("Outlook.Application")
Set mapi=out.GetNameSpace("MAPI")
Set email=out.CreateItem(0)
email.Recipients.Add("Chris.jjjj@ccccc.com")
email.Subject = "Test"
email.Body = "Test"
email.Send
Set email = Nothing
Set mapi = Nothing
Set Out = Nothing

 

[jpvs]

Deze site verteld er alles over maar wel in het Engels?

http://www.rondebruin.nl/sendmail.htm