Try this to send email without having to automate outlook.

Set iMsg = CreateObject("CDO.Message")

Set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

strSchema = "http://schemas.microsoft.com/cdo/configuration/"

Flds.Item(strSchema & "sendusing") = 2

Flds.Item(strSchema & "smtpserver") = "smtp.yourdomain.com"

Flds.Item(strSchema &...