[AccessD] Error Sending Emails Through Exchange

I had a similar  problem on Monday - trying to email through the wrong server :(

-- 
Stuart
 
On 25 Mar 2014 at 14:48, David Emerson wrote:

> Finally found the solution.  Combination of setting the values for
> variables (cdoBasic) and the IT guy giving me the correct smtp server
> address to use.
> 
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David
> Emerson Sent: Tuesday, 25 March 2014 11:03 a.m. To: 'Access Developers
> discussion and problem solving' Subject: Re: [AccessD] Error Sending
> Emails Through Exchange
> 
> Have finally managed to get the IT guy to add the user's IP address to
> allowed to relay list.  He has also confirmed that the AV software is
> not blocking communication between workstations and Exchange in the
> local network.
> 
> Tried Item(cdoSMTPAuthenticate) = cdoBasic and used windows user and
> password but still no luck.
> 
> Any other thoughts?
> 
> Regards
> 
> David Emerson
> Dalyn Software Ltd
> Wellington, New Zealand
> 
> 
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart
> McLachlan Sent: Tuesday, 18 March 2014 3:38 p.m. To: Access Developers
> discussion and problem solving Subject: Re: [AccessD] Error Sending
> Emails Through Exchange
> 
> It depends on how the network and Exchange Server are configured.
> 
> There are lots of possibilities.  You need to talk to whoever set up
> the mail server and find out what authentication they require.
> 
> 
> 
> On 18 Mar 2014 at 14:20, David Emerson wrote:
> 
> > I thought as much Stuart but not sure what I should use.
> > 
> > I have the following in the code below which I tried:
> > 
> >  '                .Item(cdoSMTPAuthenticate) = cdoBasic
> >  '                .Item(cdoSendUserName) = "username"
> >  '                .Item(cdoSendPassword) = "password"
> > 
> > I used the Windows username and password but I suspect that it
> > should have been the Exchange credentials.  Can anyone clear this up
> > for me before I go back to the client and do some testing?
> > 
> > Regards
> > 
> > David
> > 
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart
> > McLachlan Sent: Tuesday, 18 March 2014 11:11 a.m. To: Access
> > Developers discussion and problem solving Subject: Re: [AccessD]
> > Error Sending Emails Through Exchange
> > 
> > I don't use CDO ( I role my own email code), but I'd strongly
> > suspect this line:
> > 
> >                 .Item(cdoSMTPAuthenticate) = cdoAnonymous
> > 
> > You will need an authenticated connection to the Exchange server
> > before it will accept email for an outside address.
> > 
> > 
> > On 18 Mar 2014 at 9:53, David Emerson wrote:
> > 
> > > Hi Listers,
> > > 
> > > Below is the error message my Access database is getting when I
> > > try to send out an email using cdosys.dll:
> > > 
> > > Error Number : -2147220977
> > > Error Msg: The server rejected one or more recipient addresses. 
> > > The server response was: 550 5.7.1 Unable to relay.
> > > 
> > > The VBA code I am using is below:
> > > 
> > >     Dim msg As Message, strSMTPServer As String,
> > >     intSMTPConnectionTimeout
> > As Integer, intSMTPServerPort As Integer
> > >     Dim strOrganisation As String, strFrom As String, strSubject
> > >     As
> > String, strBody As String, strHeader As String
> > > 
> > >     strSMTPServer = DLookup("EmailSMTPServer", "tlkpVariable",
> > "VariableID = > 1")
> > >     intSMTPConnectionTimeout =
> > >     DLookup("EmailSMTPConnectionTimeout",
> > "tlkpVariable", "VariableID = 1")
> > >     intSMTPServerPort = DLookup("EmailSMTPServerPort",
> > >     "tlkpVariable",
> > "VariableID = 1")
> > >     strOrganisation = DLookup("EmailOrganisation", "tlkpVariable",
> > "VariableID = 1")
> > >     strFrom = DLookup("EmailSender", "tlkpVariable", "VariableID =
> > >     1") strSubject = DLookup("EmailSubject", "tlkpVariable",
> > >     "VariableID = 1") strBody = DLookup("EmailBody",
> > >     "tlkpVariable", "VariableID = 1")
> > > 
> > >         Set msg = CreateObject("CDO.Message")
> > >         With msg
> > >             With .Configuration.Fields
> > >                 .Item(cdoSMTPAuthenticate) = cdoAnonymous
> > > '                .Item(cdoSMTPAuthenticate) = cdoBasic
> > > '                .Item(cdoSendUserName) = "username"
> > > '                .Item(cdoSendPassword) = "password"
> > >                 .Item(cdoSendUsingMethod) = cdoSendUsingPort
> > >                 .Item(cdoSMTPServer) = strSMTPServer
> > >                 .Item(cdoSMTPConnectionTimeout) =
> > intSMTPConnectionTimeout
> > >                 .Item(cdoSMTPServerPort) = intSMTPServerPort
> > >                 .Update
> > >             End With
> > >             .Organization = strOrganisation
> > >             .To = strTo
> > >             .Subject = Nz(strSubject, " ")
> > >             .TextBody = Nz(strBody, " ")
> > >             .From = strFrom
> > >             .Send
> > >         End With
> > >         Set msg = Nothing
> > > 
> > > The lines remmed out above have also been tried using the users
> > > windows logon and password but the same message appeared (not sure
> > > if this was the correct data for these properties though).
> > > 
> > > The code has worked fine for other clients but they have not used
> > > Microsoft Exchange for their emails.
> > > 
> > > It also works if the recipient address has the same domain as the
> > > server.
> > > 
> > > Any help would be appreciated.
> > > 
> > > Regards
> > > 
> > > David Emerson
> > > Dalyn Software Ltd
> > > Wellington, New Zealand
> 
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>