• User Newbie

    Un gradito aiuto....

    nel mio sito ho incluso in una pagina il seguente comando:

    Set Mailer = Server.CreateObject("CDONTS.NewMail")

    il server che usa il sito ha installato windows 2003 server

    Lo scopo è quello di creare delle email e inviarle in maniera automatica dal sito (Tipo eccomers)

    il comado non viene riconosciuto (l'oggetto non viene creato)

    Mi è stato detto che con questo tipo di SO è necessario usare CDOSYS ma non so come fare. (non uso ASPnet ma il vecchio buon ASP)

    Qualcuno può aiutarmi????
    Grazie


  • Moderatore

    Ciao ecco il codice

    
    Dim IConf
    Dim Flds
    'Configurazione
    Set iConf = Server.CreateObject ("CDO.Configuration")
    'Campi
    Set Flds   = IConf.Fields 
    Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
    Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp, ad esempio smtp.miosito.ext"
    Flds.Update
    
    Set ObjNewMail = Server.CreateObject("CDO.Message")
    Set ObjNewMail.Configuration = iConf
    
    ObjNewMail.To      = "e-mail destinatario"
    ObjNewMail.From  = "e-mail mittente"
    ObjNewMail.Subject = "oggetto"
    ObjNewMail.HtmlBody = "Testo per email in html"
    'Se vuoi usare il testo normale:
    'ObjNewMail.TextBody = "Testo per email non html"
    On Error Resume Next
    ObjNewMail.Send
    
    

    Ciao
    :ciauz: :ciauz:


  • User Newbie

    Ti ringrazio molto per l'aiuto.
    Lo proverò subito


  • User Newbie

    HGo provato il codice, non mi da errori ma l'email non arriva.
    Potresti per favore commentarmi le seguenti linee di codice?

    Set iConf = Server.CreateObject ("CDO.Configuration")
    'Campi
    Set Flds = IConf.Fields
    Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
    Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp, ad esempio smtp.miosito.ext"

    in particolare la configurazione di iConf

    grazie.


  • Moderatore

    Praticamente iConf viene usata per cofigurare il server smtp altrimenti non funziona niente, nello specifico

    
    Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort 
    
    

    Server per la porta Cdo, mentre

    
    Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "qui ci va l'smtp del tuo sito" 
    
    

    Serve a dichiarare l'smtp in uscita, normalmente "smtp.nomesito.ext"
    Tra l'altro puoi anche aggiungere questa riga:

    
    Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    
    

    Che indica la porta smtp

    comunque togli "on error resume next" che sta prima dell'invio della mail, aggiungi l'smtp del tuo sito e lascia le altre cose invariate, poi dimmi che errore ti da.
    Ps se posti anche il codice gli do un'occhiata
    Ciao

    :ciauz:


  • User Newbie

    Ho provato il codice e tutto funziona correttamente.
    Ti ringrazio molto per l'aiuto sei stato veramente grande.
    ciao a presto.