Public Function sendEmailSF(emailTo As String, emailSubject As String, emailBody As String, file As String, Optional VarDebug As Boolean) As Integer

Dim oMSG As Object
Dim oConfig As Object
Dim CFields As Object
Dim strBody As String

Set oMSG = CreateObject("CDO.Message")
Set oConfig = CreateObject("CDO.Configuration")
Set CFields = oConfig.Fields
Set oMSG.Configuration = oConfig

CFields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
CFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "****"
CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'CFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "***" 'Login
CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "***" 'password
CFields("urn:schemas:mailheader:content-language") = "windows-1251"
CFields.Update

oMSG.To = emailTo
oMSG.From = "*******"
oMSG.Subject = emailSubject
oMSG.BodyPart.Charset = "windows-1251"
oMSG.AddAttachment file
oMSG.HTMLBody = emailBody
oMSG.Send

End Function