Candace
Guest
|
Posted:
Fri Nov 04, 2005 5:58 pm Post subject:
CDOSYS error - Sender Denied |
|
|
I am getting the following error message when I try to run the script. What
Exchange configuration changes should I make to correct this?
"The message could not be sent to the SMTP server. The transport error
code was 0x800ccc6f. The server response was 554 5.1.0 Sender Denied"
I made some suggested changes to the code. (See below).
'On Error Resume Next
RCP = "user1@domain.com"
FROM = "user2@domain.com"
SUBJ = "System Restart"
SG = "This system was successfully restarted."
Set NewMail = CreateObject("CDO.Message")
NewMail.Subject = SUBJ
Newmail.Sender = FROM
NewMail.To = RCP
NewMail.TextBody = MSG
NewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")
= 2
NewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
"192.168.1.18"
NewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/authenticate")
= 1
NewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")
"user2"
NewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")
"password"
NewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
= 60
NewMail.Configuration.Fields.Update
NewMail.Send
|
|