Visualizzazione dei risultati da 1 a 3 su 3
  1. #1

    SMTP su CDONTS e CDOSYS

    Buonasera a tutti.
    Ho un problema: ho creato una pagina asp per inviare e-mails alle agenzie che sono iscritte alla nostra newsletter (lavoro in un'agenzia di viaggi). All'inizio funzionava, ma poi ha smesso. Credo che il problema stia nel fatto che nell'indirizzo del mittente metto una casella di posta DIVERSA da quella del server su cui risiede la pagina: infatti se cambio il mittente ed uso l'indirizzo con il dominio del server opsitante, funziona.

    C'è un imput CDONTS che "dica" al server di inviare le mails tramite l'SMTP del dominio del mittente ?

    Grazie a tutti coloro che mi aiuteranno e ciao dall'arroventata Sicilia

  2. #2
    Utente di HTML.it L'avatar di viki1967
    Registrato dal
    Feb 2003
    Messaggi
    1,757
    verifica il componente che invia le email con questo script:

    codice:
    <% @ Language="VBScript" %>
    <% Option Explicit %>
    <%
    
    Dim theComponent(14)													' modified by ninjaweb.it
    Dim theComponentName(14)
    
    ' the components
    theComponent(0) = "SMTPsvg.Mailer"
    theComponent(1) = "Persits.MailSender"
    theComponent(2) = "SMTPsvg.Mailer"
    theComponent(3) = "CDONTS.NewMail"
    theComponent(4) = "CDONTS.NewMail"
    theComponent(5) = "dkQmail.Qmail"
    theComponent(6) = "Geocel.Mailer"
    theComponent(7) = "iismail.iismail.1"
    theComponent(8) = "Jmail.smtpmail"
    theComponent(9) = "SmtpMail.SmtpMail.1"
    theComponent(10)= "CDO.Message"								' modified by ninjaweb.it
    theComponent(11)= "aspSmartMail.SmartMail"		' modified by ninjaweb.it
    theComponent(12)= "ArclabEmailToolBox.Mailer" ' modified by ninjaweb.it
    theComponent(13)= "VSEmail.SMTPSendMailEx" 		' modified by ninjaweb.it
    theComponent(14)= "VSEmail.SMTPSendMail" 			' modified by ninjaweb.it
    
    ' the name of the components
    theComponentName(0) = "ASPMail"
    theComponentName(1) = "ASPEMail"
    theComponentName(2) = "ASPQMail"
    theComponentName(3) = "CDONTS"
    theComponentName(4) = "Chili!Mail"
    theComponentName(5) = "dkQMail"
    theComponentName(6) = "GeoCel"
    theComponentName(7) = "IISMail"
    theComponentName(8) = "JMail"
    theComponentName(9) = "SMTP"
    theComponentName(10)= "CDOSYS"								' modified by ninjaweb.it
    theComponentName(11)= "SmartMail"							' modified by ninjaweb.it
    theComponentName(12)= "Emailtoolbox"					' modified by ninjaweb.it
    theComponentName(13)= "VSEmail2.0"						' modified by ninjaweb.it
    theComponentName(14)= "VSEmail1.0"						' modified by ninjaweb.it
    
    Function IsObjInstalled(strClassString)
    On Error Resume Next
    ' initialize default values
    IsObjInstalled = False
    Err = 0
    ' testing code
    Dim xTestObj
    Set xTestObj = Server.CreateObject(strClassString)
    If 0 = Err Then IsObjInstalled = True
    ' cleanup
    Set xTestObj = Nothing
    Err = 0
    End Function
    %>
    
    <HTML>
    <HEAD>
    <TITLE>EMail Component Test</TITLE>
    </HEAD>
    <BODY bgColor="white" text="midnightblue" link="darkblue" aLink="red" vLink="red">
    <font face="Verdana, Arial, Helvetica">
    <table border=0 cellspacing=0 cellpadding=0 align=center>
      <tr valign="top">
        <td bgcolor="black">
        <table border=0 cellspacing=1 cellpadding=4>
          <tr valign="top">
            <td bgcolor="midnightblue" colspan="2" align="center"><font size="2" color="mintcream">Test
              componenti Email</font></td>
          </tr>
          <tr valign="top">
            <td bgcolor="midnightblue" align="center"><font size="2" color="mintcream">COMPONENTE</font></td>
    				<td bgcolor="midnightblue" align="center"><font size="2" color="mintcream">STATUS</font></td>
          </tr>
            <% Dim i
               For i=0 to UBound(theComponent)
                 Response.Write "<tr><td bgColor=""A0B0E0"" align=""right""><font face=""Verdana, Arial, Helvetica"" size=""2"">" & theComponentName(i) & " </td><td bgColor=""A0B0E0"" align=""center"">"
    	     If Not IsObjInstalled(theComponent(i)) Then
    	       Response.Write "non installato"
    	     Else
    	       Response.Write "installato!"
    	     End If
    	     Response.Write "</td></font></tr>" & vbCrLf
    	   Next %>
        </table>
        </td>
      </tr>
    </table>
        </td>
      </tr>
    </table>
    </font>
    </BODY>
    </HTML>
    A S P : tutto il resto è noia...
    L I N U X : forse mi "converto"...

  3. #3
    CDONTS e CDOSYS sono installati...

    ...e ora?

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2026 vBulletin Solutions, Inc. All rights reserved.