|
| 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
|
|