Sub SendHTMLMail(strTo As String, strSubject As String, strBody As String)
'================================================= ===
'Sends email HTML email directly via exchange server, w/o outlook
'================================================= ===
 
Dim iCfg As CDO.Configuration
Dim iMsg As CDO.Message
 
Set iCfg = New CDO.Configuration
 
With iCfg
.Fields(cdoSMTPServer) = "owa.xx.xxx"
.Fields(cdoSMTPServerPort) = 25 ' typically
.Fields(cdoSendUsingMethod) = cdoSendUsingPort
.Fields(cdoSMTPConnectionTimeout) = 200
.Fields.Update
End With
 
Set iMsg = New CDO.Message
With iMsg
Set .Configuration = iCfg
.From = "ewald.k@xx.xxx"
.Sender = "ewald.k@xx.xxx"
.ReplyTo = ""
.Subject = strSubject
.HTMLBody = strBody
.To = strTo
.Send
End With
 
Set iMsg = Nothing
Set iCfg = Nothing
 
End Sub