Exchange won't let me send mail using CDO.
From: Ken (anonymous_at_discussions.microsoft.com)
Date: 08/19/04
- Next message: Kristofer Gafvert: "Re: iLopia and CDO"
- Previous message: Ken Schaefer: "Re: Event 4007 Warnings"
- Messages sorted by: [ date ] [ thread ]
Date: Wed, 18 Aug 2004 23:09:14 -0700
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
- Next message: Kristofer Gafvert: "Re: iLopia and CDO"
- Previous message: Ken Schaefer: "Re: Event 4007 Warnings"
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|
|