Dim cdoConfig
Dim cdoMessage
Set cdoConfig = CreateObject("CDO.Configuration")
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From ="email"
.To ="email"
.cc = email
.Subject = "text"
.BodyPart.Charset = "windows-874"
' .TextBody ="MailFormat"
.HtmlBody =html
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
Load balance : Server 00
