Print Page | Close Window

HELP sending email...

Printed From: Web Wiz Forums
Category: General Discussion
Forum Name: Classic ASP Discussion
Forum Description: Discussion on Active Server Pages (Classic ASP).
URL: https://forums.webwiz.net/forum_posts.asp?TID=14268
Printed Date: 28 March 2026 at 2:20pm
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com


Topic: HELP sending email...
Posted By: 1111
Subject: HELP sending email...
Date Posted: 16 March 2005 at 7:53am
I tried to send email in my site it didnt work, with no error on page?!
and I realy don't know why!! grrrrr
The only script that did work was this forum sending email.
so I need the lines to send email for CDONTS (NT4/WIN2K)
plzz Confused



Replies:
Posted By: Scotty32
Date Posted: 16 March 2005 at 10:44am
http://www.webwiz.net/asp/tutorials/email_using_cdonts_tutorial.asp

check this page for a CDONTS tutorial writen by the creator of the WebWizForum


-------------
S2H.co.uk - http://www.s2h.co.uk/wwf/" rel="nofollow - WebWiz Mods and Skins

For support on my mods + skins, please use http://www.s2h.co.uk/forum/" rel="nofollow - my forum .


Posted By: 1111
Date Posted: 17 March 2005 at 2:51pm
I already downloaded that and checked it but it didnt work!
the only mail that did work was from this forum that installes on my server and users can send email throue it to other users on the forum.
I don't know what you did in the code there but my email settings on the forum is CDONTS (NT4/WIN2K).
I realy don't know why it's not working.
please help meeeeeee plzzzzzzzzzzzz


Posted By: 1111
Date Posted: 17 March 2005 at 4:09pm
I even tried to do something like that...
[code]
<%
'Function to send an e-mail
Function SendMail(ByVal strEmailBodyMessage, ByVal strRecipientName, ByVal strRecipientEmailAddress, ByVal strFromEmailName, ByVal strFromEmailAddress, ByVal strSubject, strMailComponent, blnHTML)
 'Dimension variables
 Dim objCDOSYSMail  'Holds the CDOSYS mail object
 Dim objCDOMail   'Holds the CDONTS mail object
 Dim objJMail   'Holds the Jmail object
 Dim objAspEmail   'Holds the Persits AspEmail email object
 Dim objAspMail   'Holds the Server Objects AspMail email object
 Dim strEmailBodyAppendMessage 'Holds the appended email message

 'Check the email body doesn't already have Web Wiz Forums
 If blnLCode = True Then
  'If HTML format then make an HTML link
  If blnHTML = True Then
   strEmailBodyAppendMessage = "<br /><br /><br /><hr />Software provided by <a href=""Web'>http://www.webwizforums.com"">Web Wiz Forums</a> version " & strVersion & " - http://www.webwizforums.com - http://www.webwizforums.com<br />Free ASP Bulletin Board System - Download your <strong>free</strong> copy today!"
  'Else do a text link
  Else
   strEmailBodyAppendMessage = VbCrLf & VbCrLf & "---------------------------------------------------------------------------------------"
   strEmailBodyAppendMessage = strEmailBodyAppendMessage & VbCrLf & "Software provided by Web Wiz Forums version " & strVersion & " - http://www.webwizforums.com - http://www.webwizforums.com "
   strEmailBodyAppendMessage = strEmailBodyAppendMessage & VbCrLf & "Free ASP Bulletin Board System - Download your free copy today!"
  End If
 End If
 
 '******************************************
 '***         Mail components        ****
 '******************************************
 'Select which email component to use
 Select Case strMailComponent
 
  '******************************************
  '***   MS CDOSYS mail component     ****
  '******************************************
  'CDOSYS mail component
  Case "CDOSYS"
   response.write strMailComponent
   'Dimension variables
   Dim objCDOSYSCon
   'Create the e-mail server object
   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 - http://schemas.microsoft.com/cdo/configuration/smtpserver ") = strOutgoingMailServer
           'SMTP port
           .Fields(" http://schemas.microsoft.com/cdo/configuration/smtpserverport - http://schemas.microsoft.com/cdo/configuration/smtpserverport ")  = 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/smtpconnectiontimeout ") = 60
           .Fields.Update
          End With
    'Update the CDOSYS Configuration
    Set objCDOSYSMail.Configuration = objCDOSYSCon
   With objCDOSYSMail
    'Who the e-mail is from
    .From = strFromEmailName & " <" & strFromEmailAddress & ">"
    'Who the e-mail is sent to
    .To = strRecipientName & " <" & strRecipientEmailAddress & ">"
    'The subject of the e-mail
    .Subject = strSubject
    'Set the e-mail body format (HTMLBody=HTML TextBody=Plain)
    If blnHTML = True Then
      .HTMLBody = strEmailBodyMessage & strEmailBodyAppendMessage
    Else
     .TextBody = strEmailBodyMessage & strEmailBodyAppendMessage
    End If
    'Send the e-mail
    If NOT strOutgoingMailServer = "" Then .Send
   End with
   'Close the server mail object
   Set objCDOSYSMail = Nothing
 

  '******************************************
  '***     MS CDONTS mail component     ****
  '******************************************
  'CDONTS mail component
  Case "CDONTS"
   response.write strMailComponent
   'Create the e-mail server object
   Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
   With objCDOMail
    'Who the e-mail is from
    .From = strFromEmailName & " <" & strFromEmailAddress & ">"
    'Who the e-mail is sent to
    .To = strRecipientName & " <" & strRecipientEmailAddress & ">"
    'The subject of the e-mail
    .Subject = strSubject
    'The main body of the e-amil
    .Body = strEmailBodyMessage & strEmailBodyAppendMessage
    'Set the e-mail body format (0=HTML 1=Text)
    If blnHTML = True Then
     .BodyFormat = 0
    Else
     .BodyFormat = 1
    End If
    'Set the mail format (0=MIME 1=Text)
    .MailFormat = 0
    'Importance of the e-mail (0=Low, 1=Normal, 2=High)
    .Importance = 1
    'Send the e-mail
    .Send
   End With
   'Close the server mail object
   Set objCDOMail = Nothing


Posted By: Tgard
Date Posted: 27 March 2005 at 4:23am

what OS r u using....cdonts wont work unless u usind winnt and i dont think ur ...so use this insted and JMail_web_based_email_tutorial_v1.0.zip

but u need the email comonent...jmail to use it,,,
it worked for me....
good luck
Tgard


Posted By: dpyers
Date Posted: 27 March 2005 at 1:39pm
Typically the situation where you can send to local email address but not to a remote one is because you need to authenticate to the mail server - e.g. use a valid "From" mail account and password.
 
You're not getting any error message because the send is working out of your server, but failing at the mail server which is not rteturning the error to you.
 
Your host can advise you regarding the mail components and authentication methods to use with their set-up.


-------------

Lead me not into temptation... I know the short cut, follow me.



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