[AccessD] A2203: relaying mail to someserver.com.au is not allowed

I guess more sites are securing against spam and open mail relays.
You must have tripped something or the first time you were validly.
connected to your ISP mail server.

You may have to add both to get through

It may work if your From is a valid mail address on
"mail.bigpond.com"
failing that you will have to validate to the email server.
In my case I am on a cable modem and considered automatically validated
to my ISP mail server as I  am considered inside it's network domain.

If not you may have to add this  to authenticate first to your ISP
Const cdoBasic = 1
objMail.Field.Item(strschema & "smtpauthenticate") = cdoBasic
objMail.Field.Item(strschema & "sendusername") = "yourid"
objMail.Field.Item(strschema & "sendpassword") = "secretpass"



Darren DICK wrote:

>Hi All
> 
>I am using some code I poached from this list (From Marty Connelly - actually)
>to send email via CDO (Code below)
>I am puzzled though - It is for a mail out of about 20 or 30 pdf files
>Not enough to trigger an email spam response I would have thought from the host
>mail server - Anyway...
>I send a whole swag of test ones using the real persons
>firstname at tripledee.com.au (I have a catch all for email to tripledee so I get
>'em all)
> 
>Cool - it worked wonderfully well and I did get 'em all with the sequential
>attachments - excellent - very excited
>I hade the code looping through a recordset of 27 records and had it putting the
>!FirstName and the !EmailAddress into the 
>necessary fields - looping beautifully - excellent
> 
>- but that's it - One recordset loop only it seems - it now refuses to work
>again - though I have made it work once (since) only sending a single email as
>per the code below but now it continues to fail
> 
>the error I am getting is...
> 
>Err.Number = -2147220977
>Err.Description = The server rejected one or more recipient addresses. The
>server response was: 550 relaying mail to tripledee.com.au is not allowed
> 
>But I did send 27 of 'em with attachments to tripledee.com.au this morning? -
>What gives?
> 
>So...Any suggestions?
> 
>Many thanks in advance
> 
>Darren
> 
> 
>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>Sub SendCDO()
>' This example use late binding of CDOSys, you don't have to set a Reference
>' You must be online to net when you run the sub
>' You must be running WinXP or Win2000
> 
>    Dim cdoMessage As Object
>    Dim objCDOMail As Object
>    Dim strschema As String
>    
>    On Error GoTo ErrorHandler ' Enable error-handling routine.
> 
>    Set cdoMessage = CreateObject("CDO.Message")
>    Set objCDOMail = CreateObject("CDO.Configuration")
>    strschema = "http://schemas.microsoft.com/cdo/configuration/"
>    objCDOMail.Load -1
>    
>    DoCmd.Hourglass True
>    
>    With objCDOMail.Fields
>        .Item(strschema & "sendusing") = 2
>        .Item(strschema & "smtpserver") = "mail.bigpond.com"
>        .Item(strschema & "smtpserverport") = 25
>        .Update
>    End With
> 
>    With cdoMessage
>        Set .Configuration = objCDOMail
>        .to = d.dick at tripledee.com.au
>        .From = "Some Dude <SomeWayCoolDude at someCoolServer.com>
>        .CC = ""
>        .BCC = ""
>        .Subject = "Testing testing 1...2...3..."
>        .TextBody = "Is Anybody there? Hello Hello...."        
>        .AddAttachment "C:\10009.pdf"
>        .send
>    End With
> 
>    DoCmd.Hourglass False
>    
>    Set cdoMessage = Nothing
>    Set objCDOMail = Nothing
> 
>    Exit Sub
> 
>ErrorHandler:
>    DoCmd.Hourglass False
>    Debug.Print Err.Number & "-" & Err.Description
>    Set cdoMessage = Nothing
>    Set objCDOMail = Nothing
>    
>    Exit Sub
> 
>End Sub
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada