CDO to Send messages

[ggrewe]

Hello,

I have an application running MS VFP 7.0 on a W2K server, trying to send e-mail through an Exchange 2000 (SP3) server that resides internally on another W2K server. I am trying to use CDO to send a simple SMTP message to a customer. This works well to any internal address, but I cannot make it send a message outside. Originally I was getting a relay error, so I added the code to do smtp authentication. Now it will not work at all. ANy help is greatly appreciated.

LPARAMETERS lc_FileName, lc_FirstName, lc_LastName, lc_Email

LOCAL lc_Body, lo, lo_Item
LOCAL objMail, objConfig, objFields

lc_Body = 'Dear ' + ALLTRIM(lc_FirstName) + ' ' + ALLTRIM(lc_LastName) + ';' + CHR(13) + CHR(13) + ...

objMail = CreateObject("CDO.Message&quot
objConfig = CreateObject("CDO.Configuration&quot
objFields = objConfig.Fields

WITH objFields
.Item("

http://schemas.microsoft.com/cdo/configuration/sendusing")=

2 &&& SMTP/POP Server
.Item("

http://schemas.microsoft.com/cdo/configuration/smtpserver")=

"mailserver"
.Item("

http://schemas.microsoft.com/cdo/configuration/smtpserverport")=

25
.Item("

http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")

= 10
.Item("

http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")

= 1
.Item("

http://schemas.microsoft.com/cdo/configuration/user")

= "id"
.Item("

http://schemas.microsoft.com/cdo/configuration/password")

= "password"
.Update
ENDWITH

WITH objMail
.Configuration = objConfig
.From = "sales@gorb.net"
.To = lc_email
.Subject = "Home Comfort System Proposal from Recker and Boerger"
.TextBody = lc_Body
.AddAttachment(lc_FileName + ".PDF&quot
.Send
ENDWITH

RELEASE objMail, objConfig, objFields

RETURN