Network and Classroom Management Thread, Liberum Setup with Email hosted remotley in Technical; Good morning, trying to get email to work for liberum using CDOSYS with the following code. The email is hosted ...
-
17th January 2011, 12:18 PM #1
- Rep Power
- 11
Liberum Setup with Email hosted remotley
Good morning, trying to get email to work for liberum using CDOSYS with the following code. The email is hosted externally on a exchange box (lancsngfl) when ever i test the mail i receive this error
Application Error
Number: -2147220978 (0x8004020E)
Source:
Description: The server rejected the sender address. The server response was: 550 5.7.1 Client does not have permissions to send as this sender
--------------------------------------------------------------------------------
The code is as follows
Case 5 ' CDOSYS
DIM strIncomingMailServer, objCDOSYSMail, objCDOSYSCon
'Create the e-mail server object
strIncomingMailServer = Cfg(cnnDB, "SMTPServer")
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
'Set and update fields properties
With objCDOSYSCon
'Out going SMTP server
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "outlook.lancsngfl.ac.uk"
'SMTP port
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'CDO Port
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="user@domain.ac.uk"
.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="password"
.Fields.Update
End With
'Update the CDOSYS Configuration
Set objCDOSYSMail.Configuration = objCDOSYSCon
With objCDOSYSMail
.From = Cfg(cnnDB, "HDName") & " <" & Cfg(cnnDB, "HDReply") & ">"
.To = strToAddr
.Subject = strSubject
'.HTMLBody = strBody 'Set the e-mail body format (HTMLBody=HTML TextBody=Plain)
.TextBody = strBody
'Send the e-mail
If NOT strIncomingMailServer = "" Then .Send
End with
'Close the server mail object
Set objCDOSYSMail = Nothing
End Select
Please could some one help i have liberum installed on a 2003 box and just wondering if i am missing something or if a port is blocked.
-
-
IDG Tech News
-
18th January 2011, 09:27 PM #2
- Rep Power
- 11
problem solved thnaks any way
-
-
18th January 2011, 09:33 PM #3 SMTP port wrong and authentication wrong I take it?
-
-
18th January 2011, 10:45 PM #4
- Rep Power
- 11
they were correct i had doubled checked it turns out that the smtp server was wrong our LEA has two and i didnt realise, i checked others servers that mail us with updates and spoted that sophos was using a different one and that one worked. Learn something new everyday at least im more up to speed now with asp coding for differnt mail options had tried them all in the end and then found this out
-
SHARE:
Similar Threads
-
By Gonk in forum Web Development
Replies: 10
Last Post: 9th October 2010, 11:04 AM
-
By AdamGent in forum How do you do....it?
Replies: 12
Last Post: 14th July 2009, 10:33 PM
-
By kennysarmy in forum Virtual Learning Platforms
Replies: 2
Last Post: 19th March 2009, 11:06 AM
-
By russdev in forum Educational Software
Replies: 4
Last Post: 8th October 2008, 12:09 PM
-
By Deaks in forum Windows
Replies: 0
Last Post: 25th April 2008, 09:25 AM
Thread Information
Users Browsing this Thread
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules