Cannot access CDO.Message Revisited 3.0.8

Last post 01-25-2005 8:02 PM by rclarke7717. 0 replies.

Sort Posts:

  • Cannot access CDO.Message Revisited 3.0.8

    01-25-2005, 6:19 PM
    • Member
      190 point Member
    • rclarke7717
    • Member since 03-05-2003, 11:55 AM
    • Posts 38
    I was getting this message generated from my pprtal when I tried to send an email and I thought it was due to my ISP blocking port 25. So I asked my ISP to not block this port for my account and I still received the same message. I looked at the source code in globals.vb responsible for sending email via SMTP and changed the code as follows:


    If SmtpUsername <> "" And SmtpPassword <> "" Then
    objMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", 1)
    objMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", SmtpUsername)
    objMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", SmtpPassword)
    'objMail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    'objMail.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = SmtpUsername
    'objMail.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = SmtpPassword
    End If

    The commented lines represent the original code. This eliminated the error message and the email was indeed sent to me through my ISP account.

    Core team: Please consider changing the code in 3.0.9 accordingly, it seems to work where the original code did not.

    Thanks,

    Ron Clarke
Page 1 of 1 (1 items)