Hi All,

I got this bit of code, trying to send mail using an
application i created.

 ========================================
================
Dim mailMsg As New CDO.Message
Dim mailConfig
Set mailConfig = CreateObject("CDO.Configuration")

mailConfig.Fields(cdoSMTPServer) = "localhost"
mailConfig.Fields(cdoSendUsingMethod) =
cdoSendUsingPort
mailConfig.Fields.Update

mailMsg.Configuration = mailConfig
mailMsg.To = i_strTo
mailMsg.From = i_strFrom

mailMsg.Subject = i_strSubject
mailMsg.HTMLBody = i_strBody
If Not i_strAttachment = "" Then

mailMsg.AddAttachment (i_strAttachment)
End If
mailMsg.Send

SendEmail = 1

 ========================================
================

But Exchange won't allow to reply my mail back to my LAN,
I am trying to send email from one computer on our LAN and
hosted to Exchange 2000 to another computer on the LAN.

I have allow email relay on our Exchange to the particular
computer that i use to run my application through the SMTP
Connector/Virtual Server.  But i got an error message
saying that Exchange has refuse to send the email.

Anyone, any ideas?

Thanks

Ken

[ Post a follow-up to this message ]