+ Post New Thread
Results 1 to 4 of 4
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 ...
  1. #1

    Join Date
    Jul 2007
    Location
    Lancs
    Posts
    388
    Thank Post
    45
    Thanked 21 Times in 19 Posts
    Rep Power
    18

    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.

  2. #2

    Join Date
    Jul 2007
    Location
    Lancs
    Posts
    388
    Thank Post
    45
    Thanked 21 Times in 19 Posts
    Rep Power
    18
    problem solved thnaks any way

  3. #3
    ChrisH's Avatar
    Join Date
    Jun 2005
    Location
    East Lancs
    Posts
    5,002
    Thank Post
    120
    Thanked 282 Times in 260 Posts
    Rep Power
    108
    SMTP port wrong and authentication wrong I take it?

  4. #4

    Join Date
    Jul 2007
    Location
    Lancs
    Posts
    388
    Thank Post
    45
    Thanked 21 Times in 19 Posts
    Rep Power
    18
    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:
+ Post New Thread

Similar Threads

  1. Replies: 10
    Last Post: 9th October 2010, 11:04 AM
  2. In house or hosted Email / Web sites
    By AdamGent in forum How do you do....it?
    Replies: 12
    Last Post: 14th July 2009, 10:33 PM
  3. Hosted Moodle..how to setup with Courses etc.
    By kennysarmy in forum Virtual Learning Platforms
    Replies: 2
    Last Post: 19th March 2009, 10:06 AM
  4. Liberum and email
    By russdev in forum Educational Software
    Replies: 4
    Last Post: 8th October 2008, 12:09 PM
  5. 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
  •