I think that you can use CDO and avoid outlook entirely and use the below macro:
Code:
Dim iMsg As Object
Dim iConf As Object
Dim Flds As Variant
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.yourserverhere.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' usually 25
.Update
End With
With iMsg
Set .Configuration = iConf
.To = "receiver@whereever.com"
.CC = ""
.BCC = ""
.From = "you@whereever.com"
.Subject = ""
.TextBody = ""
.Send
End With
Bookmarks