I am using the following code to generate email from within a program using
standard CDO.
I am in australiia, and while the SMTP server is set to
'smtp.optusnet.com.au' (for Optus ) it
works perfectly. But when I set the SMTP server to 'smtp.iprimus.com.au'
(for Iprimus) the emailing fails.
I have confirmed that both the addresses are returning replies to Ping.

Please advise how I can make it work with Iprimus.

Warm Regards
Somnath


*******Start Code
loConfig = CREATEOBJECT('CDO.Configuration')
loCdoMessage = CREATEOBJECT("CDO.Message")
loCdoMessage.Configuration = loConfig
loCdoMessage.From = m.emailfrom
loCdoMessage.To = ALLTRIM(sendmail.emailto)
loCdoMessage.subject = ALLTRIM(sendmail.subject)
loCdoMessage.TextBody = sendmail.textbody
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")
= 2
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= 'smtp.iprimus.com.au'
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
= 1
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")
= ALLTRIM(m.emailuser)
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")
= ALLTRIM(m.emailpasswd)
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl")
= .F.
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
= 60
loConfig.Fields.Update
loCdoMessage.Send()
******end code

Re: CDO programming for email works for one SMTP server but does not work with other by Josh

Josh
Sat Apr 19 16:40:30 CDT 2008

On Sat, 19 Apr 2008 22:02:52 +1000, "Somnath Gupta" <somnath@optusnet.com.au>
wrote:

>I am using the following code to generate email from within a program using
>standard CDO.
>I am in australiia, and while the SMTP server is set to
>'smtp.optusnet.com.au' (for Optus ) it
>works perfectly. But when I set the SMTP server to 'smtp.iprimus.com.au'
>(for Iprimus) the emailing fails.

might help i fyou tell us the error when it fails.
It might be an issue of iprimus not allowing you to relay mail...

>I have confirmed that both the addresses are returning replies to Ping.

ping does not mean that the system is performing mail tasks.

>
>Please advise how I can make it work with Iprimus.
>
>Warm Regards
>Somnath
>
>
>*******Start Code
> loConfig = CREATEOBJECT('CDO.Configuration')
> loCdoMessage = CREATEOBJECT("CDO.Message")
> loCdoMessage.Configuration = loConfig
> loCdoMessage.From = m.emailfrom
> loCdoMessage.To = ALLTRIM(sendmail.emailto)
> loCdoMessage.subject = ALLTRIM(sendmail.subject)
> loCdoMessage.TextBody = sendmail.textbody
> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")
>= 2
> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
>= 'smtp.iprimus.com.au'
> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
>= 25
> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
>= 1
> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")
>= ALLTRIM(m.emailuser)
> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")
>= ALLTRIM(m.emailpasswd)
> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl")
>= .F.
> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
>= 60
> loConfig.Fields.Update
> loCdoMessage.Send()
>******end code


Re: CDO programming for email works for one SMTP server but does not work with other by Somnath

Somnath
Sat Apr 19 22:05:12 CDT 2008

Josh,

The error message is

'OLE IDispatch exception code () from CDO.Message.1: The transport failed
to connect to the server. '

Points to Note: I am using a valid username/password for authentication .
Even
optus does not support unauthenticated relay, but with a valid
username/password
optus SMTP operates correctly with the below code.

I only used Ping to find out if the server is alive and it is, not for
peforming mail task.
Also lower level code to connect with iprimus by using 'wsock32.dll' is
unable to connect to the iprimus SMTP server
while optus SMTP returns information.
Maybe something to check with Iprimus tech support ?

Warm Regards
Somnath




"Josh Assing" <XjoshX@jAssing.com> wrote in message
news:6kpk0499b8puq2de4q5aea6ijcvu27qem6@4ax.com...
> On Sat, 19 Apr 2008 22:02:52 +1000, "Somnath Gupta"
> <somnath@optusnet.com.au>
> wrote:
>
>>I am using the following code to generate email from within a program
>>using
>>standard CDO.
>>I am in australiia, and while the SMTP server is set to
>>'smtp.optusnet.com.au' (for Optus ) it
>>works perfectly. But when I set the SMTP server to 'smtp.iprimus.com.au'
>>(for Iprimus) the emailing fails.
>
> might help i fyou tell us the error when it fails.
> It might be an issue of iprimus not allowing you to relay mail...
>
>>I have confirmed that both the addresses are returning replies to Ping.
>
> ping does not mean that the system is performing mail tasks.
>
>>
>>Please advise how I can make it work with Iprimus.
>>
>>Warm Regards
>>Somnath
>>
>>
>>*******Start Code
>> loConfig = CREATEOBJECT('CDO.Configuration')
>> loCdoMessage = CREATEOBJECT("CDO.Message")
>> loCdoMessage.Configuration = loConfig
>> loCdoMessage.From = m.emailfrom
>> loCdoMessage.To = ALLTRIM(sendmail.emailto)
>> loCdoMessage.subject = ALLTRIM(sendmail.subject)
>> loCdoMessage.TextBody = sendmail.textbody
>>
>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")
>>= 2
>>
>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
>>= 'smtp.iprimus.com.au'
>>
>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
>>= 25
>>
>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
>>= 1
>>
>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")
>>= ALLTRIM(m.emailuser)
>>
>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")
>>= ALLTRIM(m.emailpasswd)
>>
>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl")
>>= .F.
>>
>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
>>= 60
>> loConfig.Fields.Update
>> loCdoMessage.Send()
>>******end code
>


Re: CDO programming for email works for one SMTP server but does not work with other by Josh

Josh
Sat Apr 19 23:34:57 CDT 2008

Can you telnet to smtp.iprimus.com.au port 25 and issue any commands?

On Sun, 20 Apr 2008 13:05:12 +1000, "Somnath Gupta" <somnath@optusnet.com.au>
wrote:

>Josh,
>
>The error message is
>
>'OLE IDispatch exception code () from CDO.Message.1: The transport failed
>to connect to the server. '
>
>Points to Note: I am using a valid username/password for authentication .
>Even
>optus does not support unauthenticated relay, but with a valid
>username/password
>optus SMTP operates correctly with the below code.
>
>I only used Ping to find out if the server is alive and it is, not for
>peforming mail task.
>Also lower level code to connect with iprimus by using 'wsock32.dll' is
>unable to connect to the iprimus SMTP server
>while optus SMTP returns information.
>Maybe something to check with Iprimus tech support ?
>
>Warm Regards
>Somnath
>
>
>
>
>"Josh Assing" <XjoshX@jAssing.com> wrote in message
>news:6kpk0499b8puq2de4q5aea6ijcvu27qem6@4ax.com...
>> On Sat, 19 Apr 2008 22:02:52 +1000, "Somnath Gupta"
>> <somnath@optusnet.com.au>
>> wrote:
>>
>>>I am using the following code to generate email from within a program
>>>using
>>>standard CDO.
>>>I am in australiia, and while the SMTP server is set to
>>>'smtp.optusnet.com.au' (for Optus ) it
>>>works perfectly. But when I set the SMTP server to 'smtp.iprimus.com.au'
>>>(for Iprimus) the emailing fails.
>>
>> might help i fyou tell us the error when it fails.
>> It might be an issue of iprimus not allowing you to relay mail...
>>
>>>I have confirmed that both the addresses are returning replies to Ping.
>>
>> ping does not mean that the system is performing mail tasks.
>>
>>>
>>>Please advise how I can make it work with Iprimus.
>>>
>>>Warm Regards
>>>Somnath
>>>
>>>
>>>*******Start Code
>>> loConfig = CREATEOBJECT('CDO.Configuration')
>>> loCdoMessage = CREATEOBJECT("CDO.Message")
>>> loCdoMessage.Configuration = loConfig
>>> loCdoMessage.From = m.emailfrom
>>> loCdoMessage.To = ALLTRIM(sendmail.emailto)
>>> loCdoMessage.subject = ALLTRIM(sendmail.subject)
>>> loCdoMessage.TextBody = sendmail.textbody
>>>
>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")
>>>= 2
>>>
>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
>>>= 'smtp.iprimus.com.au'
>>>
>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
>>>= 25
>>>
>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
>>>= 1
>>>
>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")
>>>= ALLTRIM(m.emailuser)
>>>
>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")
>>>= ALLTRIM(m.emailpasswd)
>>>
>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl")
>>>= .F.
>>>
>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
>>>= 60
>>> loConfig.Fields.Update
>>> loCdoMessage.Send()
>>>******end code
>>


Re: CDO programming for email works for one SMTP server but does not work with other by Somnath

Somnath
Sun Apr 20 00:25:28 CDT 2008

Josh,

just a blank dos screen and cannot issue any further commands. Kicks me out
after 20-25 secs.
Thanks for all the help that you are extending.

Warm Rgds
Somnath


"Josh Assing" <XjoshX@jAssing.com> wrote in message
news:buhl04d1uu46c4hikfvrk4q6sq4ganeufk@4ax.com...
> Can you telnet to smtp.iprimus.com.au port 25 and issue any commands?
>
> On Sun, 20 Apr 2008 13:05:12 +1000, "Somnath Gupta"
> <somnath@optusnet.com.au>
> wrote:
>
>>Josh,
>>
>>The error message is
>>
>>'OLE IDispatch exception code () from CDO.Message.1: The transport failed
>>to connect to the server. '
>>
>>Points to Note: I am using a valid username/password for authentication .
>>Even
>>optus does not support unauthenticated relay, but with a valid
>>username/password
>>optus SMTP operates correctly with the below code.
>>
>>I only used Ping to find out if the server is alive and it is, not for
>>peforming mail task.
>>Also lower level code to connect with iprimus by using 'wsock32.dll' is
>>unable to connect to the iprimus SMTP server
>>while optus SMTP returns information.
>>Maybe something to check with Iprimus tech support ?
>>
>>Warm Regards
>>Somnath
>>
>>
>>
>>
>>"Josh Assing" <XjoshX@jAssing.com> wrote in message
>>news:6kpk0499b8puq2de4q5aea6ijcvu27qem6@4ax.com...
>>> On Sat, 19 Apr 2008 22:02:52 +1000, "Somnath Gupta"
>>> <somnath@optusnet.com.au>
>>> wrote:
>>>
>>>>I am using the following code to generate email from within a program
>>>>using
>>>>standard CDO.
>>>>I am in australiia, and while the SMTP server is set to
>>>>'smtp.optusnet.com.au' (for Optus ) it
>>>>works perfectly. But when I set the SMTP server to 'smtp.iprimus.com.au'
>>>>(for Iprimus) the emailing fails.
>>>
>>> might help i fyou tell us the error when it fails.
>>> It might be an issue of iprimus not allowing you to relay mail...
>>>
>>>>I have confirmed that both the addresses are returning replies to Ping.
>>>
>>> ping does not mean that the system is performing mail tasks.
>>>
>>>>
>>>>Please advise how I can make it work with Iprimus.
>>>>
>>>>Warm Regards
>>>>Somnath
>>>>
>>>>
>>>>*******Start Code
>>>> loConfig = CREATEOBJECT('CDO.Configuration')
>>>> loCdoMessage = CREATEOBJECT("CDO.Message")
>>>> loCdoMessage.Configuration = loConfig
>>>> loCdoMessage.From = m.emailfrom
>>>> loCdoMessage.To = ALLTRIM(sendmail.emailto)
>>>> loCdoMessage.subject = ALLTRIM(sendmail.subject)
>>>> loCdoMessage.TextBody = sendmail.textbody
>>>>
>>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")
>>>>= 2
>>>>
>>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
>>>>= 'smtp.iprimus.com.au'
>>>>
>>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
>>>>= 25
>>>>
>>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
>>>>= 1
>>>>
>>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")
>>>>= ALLTRIM(m.emailuser)
>>>>
>>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")
>>>>= ALLTRIM(m.emailpasswd)
>>>>
>>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl")
>>>>= .F.
>>>>
>>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
>>>>= 60
>>>> loConfig.Fields.Update
>>>> loCdoMessage.Send()
>>>>******end code
>>>
>


Re: CDO programming for email works for one SMTP server but does not work with other by Josh

Josh
Sun Apr 20 14:24:05 CDT 2008

If you cannot telnet to it; then it is blocking you at the firewall level.
You should see something like:

220 smtp06.syd.iprimus.net.au ESMTP

and you can issue commands like
HELP (they don't support it tho) but you get 'feedback like:

530 Authentication required

-josh
btw: that's the actual text I got when I telnet'd - so it's erroring out becuase
you can't make a valid connection to the server.

-josh


On Sun, 20 Apr 2008 15:25:28 +1000, "Somnath Gupta" <somnath@optusnet.com.au>
wrote:

>Josh,
>
>just a blank dos screen and cannot issue any further commands. Kicks me out
>after 20-25 secs.
>Thanks for all the help that you are extending.
>
>Warm Rgds
>Somnath
>
>
>"Josh Assing" <XjoshX@jAssing.com> wrote in message
>news:buhl04d1uu46c4hikfvrk4q6sq4ganeufk@4ax.com...
>> Can you telnet to smtp.iprimus.com.au port 25 and issue any commands?
>>
>> On Sun, 20 Apr 2008 13:05:12 +1000, "Somnath Gupta"
>> <somnath@optusnet.com.au>
>> wrote:
>>
>>>Josh,
>>>
>>>The error message is
>>>
>>>'OLE IDispatch exception code () from CDO.Message.1: The transport failed
>>>to connect to the server. '
>>>
>>>Points to Note: I am using a valid username/password for authentication .
>>>Even
>>>optus does not support unauthenticated relay, but with a valid
>>>username/password
>>>optus SMTP operates correctly with the below code.
>>>
>>>I only used Ping to find out if the server is alive and it is, not for
>>>peforming mail task.
>>>Also lower level code to connect with iprimus by using 'wsock32.dll' is
>>>unable to connect to the iprimus SMTP server
>>>while optus SMTP returns information.
>>>Maybe something to check with Iprimus tech support ?
>>>
>>>Warm Regards
>>>Somnath
>>>
>>>
>>>
>>>
>>>"Josh Assing" <XjoshX@jAssing.com> wrote in message
>>>news:6kpk0499b8puq2de4q5aea6ijcvu27qem6@4ax.com...
>>>> On Sat, 19 Apr 2008 22:02:52 +1000, "Somnath Gupta"
>>>> <somnath@optusnet.com.au>
>>>> wrote:
>>>>
>>>>>I am using the following code to generate email from within a program
>>>>>using
>>>>>standard CDO.
>>>>>I am in australiia, and while the SMTP server is set to
>>>>>'smtp.optusnet.com.au' (for Optus ) it
>>>>>works perfectly. But when I set the SMTP server to 'smtp.iprimus.com.au'
>>>>>(for Iprimus) the emailing fails.
>>>>
>>>> might help i fyou tell us the error when it fails.
>>>> It might be an issue of iprimus not allowing you to relay mail...
>>>>
>>>>>I have confirmed that both the addresses are returning replies to Ping.
>>>>
>>>> ping does not mean that the system is performing mail tasks.
>>>>
>>>>>
>>>>>Please advise how I can make it work with Iprimus.
>>>>>
>>>>>Warm Regards
>>>>>Somnath
>>>>>
>>>>>
>>>>>*******Start Code
>>>>> loConfig = CREATEOBJECT('CDO.Configuration')
>>>>> loCdoMessage = CREATEOBJECT("CDO.Message")
>>>>> loCdoMessage.Configuration = loConfig
>>>>> loCdoMessage.From = m.emailfrom
>>>>> loCdoMessage.To = ALLTRIM(sendmail.emailto)
>>>>> loCdoMessage.subject = ALLTRIM(sendmail.subject)
>>>>> loCdoMessage.TextBody = sendmail.textbody
>>>>>
>>>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")
>>>>>= 2
>>>>>
>>>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
>>>>>= 'smtp.iprimus.com.au'
>>>>>
>>>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
>>>>>= 25
>>>>>
>>>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
>>>>>= 1
>>>>>
>>>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")
>>>>>= ALLTRIM(m.emailuser)
>>>>>
>>>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")
>>>>>= ALLTRIM(m.emailpasswd)
>>>>>
>>>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl")
>>>>>= .F.
>>>>>
>>>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
>>>>>= 60
>>>>> loConfig.Fields.Update
>>>>> loCdoMessage.Send()
>>>>>******end code
>>>>
>>


Re: CDO programming for email works for one SMTP server but does not by somnat

somnat
Sun Apr 20 20:34:09 CDT 2008

Josh,

Josh,

now the mystery has been solved, no firewall involvement in here,
iprimus email service was having problems during the weekend here, and
unluckily (??) I was trying that code during that time.

I can now connect to it and telnet works happily.

Thanks for your help again.

Warm Regards
Somnath

On 21 Apr, 05:24, Josh Assing <Xjo...@jAssing.com> wrote:
> If you cannot telnet to it; then it is blocking you at the firewall level.=

> You should see something like:
>
> 220 smtp06.syd.iprimus.net.au ESMTP
>
> and you can issue commands like
> HELP (they don't support it tho) but you get 'feedback like:
>
> 530 Authentication required
>
> -josh
> btw: that's the actual text I got when I telnet'd - so it's erroring out b=
ecuase
> you can't make a valid connection to the server.
>
> -josh
>
> On Sun, 20 Apr 2008 15:25:28 +1000, "Somnath =A0Gupta" <somn...@optusnet.c=
om.au>
> wrote:
>
>
>
> >Josh,
>
> >just a blank dos screen and cannot issue any further commands. Kicks me o=
ut
> >after 20-25 secs.
> >Thanks for all the help that you are extending.
>
> >Warm Rgds
> >Somnath
>
> >"Josh Assing" <Xjo...@jAssing.com> wrote in message
> >news:buhl04d1uu46c4hikfvrk4q6sq4ganeufk@4ax.com...
> >> Can you telnet to smtp.iprimus.com.au port 25 and issue any commands?
>
> >> On Sun, 20 Apr 2008 13:05:12 +1000, "Somnath =A0Gupta"
> >> <somn...@optusnet.com.au>
> >> wrote:
>
> >>>Josh,
>
> >>>The error message is
>
> >>>'OLE IDispatch exception code () from CDO.Message.1: The transport fail=
ed
> >>>to connect to the server. '
>
> >>>Points to Note: I am using a valid username/password for authentication=
.
> >>>Even
> >>>optus does not support unauthenticated relay, but with a valid
> >>>username/password
> >>>optus SMTP operates correctly with the below code.
>
> >>>I only used Ping to find out if the server is alive and it is, not for
> >>>peforming mail task.
> >>>Also lower level code to connect with iprimus by using =A0'wsock32.dll'=
is
> >>>unable to connect to the iprimus SMTP server
> >>>while optus SMTP returns information.
> >>>Maybe something to check with Iprimus tech support ?
>
> >>>Warm Regards
> >>>Somnath
>
> >>>"Josh Assing" <Xjo...@jAssing.com> wrote in message
> >>>news:6kpk0499b8puq2de4q5aea6ijcvu27qem6@4ax.com...
> >>>> On Sat, 19 Apr 2008 22:02:52 +1000, "Somnath =A0Gupta"
> >>>> <somn...@optusnet.com.au>
> >>>> wrote:
>
> >>>>>I am using the following code to generate email from within a program=

> >>>>>using
> >>>>>standard CDO.
> >>>>>I am in australiia, and while the SMTP server is set to
> >>>>>'smtp.optusnet.com.au' (for Optus ) it
> >>>>>works perfectly. But when I set the SMTP server to 'smtp.iprimus.com.=
au'
> >>>>>(for Iprimus) the emailing fails.
>
> >>>> might help i fyou tell us the error when it fails.
> >>>> It might be an issue of iprimus not allowing you to relay mail...
>
> >>>>>I have confirmed that both the addresses are returning replies to Pin=
g.
>
> >>>> ping does not mean that the system is performing mail tasks.
>
> >>>>>Please advise how I can make it work with Iprimus.
>
> >>>>>Warm Regards
> >>>>>Somnath
>
> >>>>>*******Start Code
> >>>>> =A0 loConfig =3D CREATEOBJECT('CDO.Configuration')
> >>>>> =A0 loCdoMessage =3D CREATEOBJECT("CDO.Message")
> >>>>> =A0 loCdoMessage.Configuration =3D loConfig
> >>>>> =A0 loCdoMessage.From =3D m.emailfrom
> >>>>> =A0 loCdoMessage.To =3D ALLTRIM(sendmail.emailto)
> >>>>> =A0 loCdoMessage.subject =3D ALLTRIM(sendmail.subject)
> >>>>> =A0 loCdoMessage.TextBody =3D sendmail.textbody
>
> >>>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration=
/sendusing")
> >>>>>=3D 2
>
> >>>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration=
/smtpserver")
> >>>>>=3D 'smtp.iprimus.com.au'
>
> >>>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration=
/smtpserverport")
> >>>>>=3D 25
>
> >>>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration=
/smtpauthenticate")
> >>>>>=3D 1
>
> >>>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration=
/sendusername")
> >>>>>=3D ALLTRIM(m.emailuser)
>
> >>>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration=
/sendpassword")
> >>>>>=3D ALLTRIM(m.emailpasswd)
>
> >>>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration=
/smtpusessl")
> >>>>>=3D .F.
>
> >>>>> loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration=
/smtpconnectiontimeout")
> >>>>>=3D 60
> >>>>> =A0 loConfig.Fields.Update
> >>>>> =A0 loCdoMessage.Send()
> >>>>>******end code- Hide quoted text -
>
> - Show quoted text -