Help with sending Email using CDO: Server rejected sender address

[richie82]

I tried writing a macro in sending out email using CDO via Excel VBA. I am getting the below error:
"The server rejected the sender address. The server response was 530 5.7.1. Client was not authenticated."

Below is my code:

Function SendHTMLMail()
 
Dim iCfg As Object 
Dim iMsg As Object ' 
 
Set iMsg = CreateObject("CDO.Message")
Set iCfg = CreateObject("CDO.Configuration")
 
 iCfg.Load -1    ' CDO Source Defaults
        Set Flds = iCfg.Fields
        With Flds
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
                           = "smtp.xxx.com" 'i did put in the correct smtp and connected without issue.
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
            .Update
        End With
 
With iMsg
Set .Configuration = iCfg
.From = "[e-mail]"
.Sender = "[e-mail]"
.Subject = "Testing Email"
.HTMLBody = Test Email"
.To = "[e-mail]"
.Send
End With
 
Set iMsg = Nothing
Set iCfg = Nothing
 
End Function

[Rabbit]

I don't use cdo much but the error sounds like you need to authenticate with the server before trying to send the e-mail.

[richie82]

I've tried putting the username and password, but i'm getting the same result

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[e-mail]"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxx"

[NeoPa]

Is there a {Sender Address} (or similar) property within iCfg.Fields? That's what the error message seems to be complaining about. Is "[e-mail]" (.Sender from line #23) a valid and recognised address?

NB. Please remember to use the CODE tags when posting code. Your posts have been fixed twice for you already.