Print Page | Close Window

Send mail change

Printed From: Web Wiz Forums
Category: Web Wiz Web App Support Forums
Forum Name: Web Wiz Forums
Forum Description: Support forum for Web Wiz Forums application.
URL: https://forums.webwiz.net/forum_posts.asp?TID=7500
Printed Date: 06 April 2026 at 11:59am
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com


Topic: Send mail change
Posted By: Manbos
Subject: Send mail change
Date Posted: 22 November 2003 at 1:24pm

My domain is on Windows Server 2003 and I have had to make changes to the code of CDOSYS so that work according to me has indicated my technical support:

They first said the following thing to me:

I asked to them:

- The data of my forum are:

- SmtpServerPort = 25

- SendUsing = 2

- I must change the SmtpServerPort to 2500?

And its answer was:

- Yes the relay port have to be changed to 2500.  It is to make possible for Microsoft SMTP Server to work together with Mailenable SMTP (which uses the default port 25). 

When changing this port followed without working, so in the end I had to change the code:

Original code in functions_send_mail.asp:

'-------------------------------------------
'       With objCDOSYSCon
'           'Out going SMTP server
'           .Fields(" http://schemas.microsoft.com/cdo/configuration/smtpserver - http://schemas.microsoft.com/cdo/configuration/smtpserver ") = strIncomingMailServer
'           'SMTP port
'           '.Fields(" http://schemas.microsoft.com/cdo/configuration/smtpserverport - http://schemas.microsoft.com/cdo/configuration/smtpserverpor t ")  = 25
'           'CDO Port
'           .Fields(" http://schemas.microsoft.com/cdo/configuration/sendusing - http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2
'           'Timeout
'           .Fields(" http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout - http://schemas.microsoft.com/cdo/configuration/smtpconnectio ntimeout ") = 60
'           .Fields.Update
'          End With
'-----------------------------------------

New code:

     With objCDOSYSCon.Fields
     .Item("sendusing") = 2
     .Item("smtpserver") = strIncomingMailServer
     .Item("smtpport") = "2500"
     .Update
     End With
'-----------------------------------------------

And now send mail work fine.

Commentary ?

Manbos

http://www.manbos.com - http://www.manbos.com

 




Print Page | Close Window

Forum Software by Web Wiz Forums® version 12.08 - https://www.webwizforums.com
Copyright ©2001-2026 Web Wiz Ltd. - https://www.webwiz.net