T
Tim::..
Can someone please help!!
This is driving me nuts...
I keep getting the following error when I run the send mail script below. I think it might be because I don't have the smtp server configurered properly or because I have to make a change on our exchange server???
We are running IIS 5 on Win2K server and using Microsoft Exchange Server 5.5 can someone please tell me how I solve this!
Thanks
Error:
Email send failed: The server rejected one or more recipient addresses. The server response was: 550 5.7.1 Unable to relay for (e-mail address removed)
<%
mailComp = "CDOSYS"
smtpServer = "SMTP01"
fromAddr = "(e-mail address removed)"
if mailComp = "CDOSYS" then
set cdoMessage = Server.CreateObject("CDO.Message")
set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer
cdoConfig.Fields.Update
set cdoMessage.Configuration = cdoConfig
cdoMessage.From = fromAddr
cdoMessage.ReplyTo = replyTo
cdoMessage.To = recipients
cdoMessage.Subject = subject
cdoMessage.HtmlBody = body
on error resume next
cdoMessage.Send
if Err.Number <> 0 then
SendMail = "Email send failed: " & Err.Description & "."
end if
set cdoMessage = Nothing
set cdoConfig = Nothing
exit function
end if
%>
This is driving me nuts...
I keep getting the following error when I run the send mail script below. I think it might be because I don't have the smtp server configurered properly or because I have to make a change on our exchange server???
We are running IIS 5 on Win2K server and using Microsoft Exchange Server 5.5 can someone please tell me how I solve this!
Thanks
Error:
Email send failed: The server rejected one or more recipient addresses. The server response was: 550 5.7.1 Unable to relay for (e-mail address removed)
<%
mailComp = "CDOSYS"
smtpServer = "SMTP01"
fromAddr = "(e-mail address removed)"
if mailComp = "CDOSYS" then
set cdoMessage = Server.CreateObject("CDO.Message")
set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer
cdoConfig.Fields.Update
set cdoMessage.Configuration = cdoConfig
cdoMessage.From = fromAddr
cdoMessage.ReplyTo = replyTo
cdoMessage.To = recipients
cdoMessage.Subject = subject
cdoMessage.HtmlBody = body
on error resume next
cdoMessage.Send
if Err.Number <> 0 then
SendMail = "Email send failed: " & Err.Description & "."
end if
set cdoMessage = Nothing
set cdoConfig = Nothing
exit function
end if
%>