Visualizzazione dei risultati da 1 a 5 su 5
  1. #1
    Utente di HTML.it
    Registrato dal
    Jul 2002
    Messaggi
    156

    Problemi con Cdonts mi aiutate ???

    NON MI FUNZIONA L'INVIO DELL'EMAIL.
    Dove sbaglio ???


    Ho questi 2 dati presi dal form che uso per fare l'inserimento di un nuovo record

    <input type="hidden" name="DataInserimento" value="<%= DataFile%>">
    <input type="hidden" name="IdFile" value="<%=(GestFile_total)+1%>">

    Poi creo l'email con Cdonts per confermare al cliente che ha inviato il file.

    L'email e il nome del cliente sono presi dal Recordset RsLogin

    emailCliente = Request(rsLogin.Fields.Item("Email").Value)
    NomeCliente = Request(rsLogin.Fields.Item("Cliente").Value)

    Poi creo l'email con Cdonts per confermare al cliente che ha inviato il file.

    ' Email per il Cliente
    Dim objCDO

    Set objCDO = Server.CreateObject("CDONTS.NewMail")
    objCDO.From = "XXXXX@XXXXXXX.net"
    objCDO.To = emailCliente
    objCDO.Subject = " Conferna Invio Lavoro a: xxxxxxx.net "
    objCDO.Body = " Grazie " & NomeCliente & " per esserti rivolto a noi" & ", " & VbCrLf &_
    " Data dell'invio: " & Request("DataFile") & " " & VbCrLf &_
    " Identificativo Invio: " & Request("IdFile") & " "
    objCDO.Send()
    Set objCDO = Nothing

  2. #2
    ti da qulche errore?

  3. #3
    Utente di HTML.it
    Registrato dal
    Jul 2002
    Messaggi
    156
    L'errore è il seguente (ho messo anche i numeri di riga del debug):

    Microsoft VBScript runtime error '800a01a8'

    Object required: ''

    /inviofile/inviofile.asp, line 153


    152 Dim objCDO
    153 emailCliente = Request((rsLogin.Fields.Item("Email").Value))
    154 NomeCliente = Request((rsLogin.Fields.Item("Cliente").Value))
    154 Set objCDO = Server.CreateObject("CDONTS.NewMail")
    156 objCDO.From = "xxxxxxxx.net"
    157 objCDO.To = "xxxxxxxxxx@tiscali.it"
    158 objCDO.Subject = " Conferna Invio Lavoro a: xxxxxxxxx.net "
    159 objCDO.Body = " Grazie " & NomeCliente & " per esserti rivolto a 160 noi" & ", " & VbCrLf &_
    161 " Data dell'invio: " & Request("DataFile") & " " & VbCrLf &_
    162 " Identificativo Invio: " & Request("IdFile") & " "
    163 objCDO.Send()
    164 Set objCDO = Nothing

  4. #4
    prova e mettere emailcliente in una variabile
    a=Request((rsLogin.Fields.Item("Email").Value))
    Response.write a
    potrebbe essere il campo vuoto

    153 emailCliente = Request((rsLogin.Fields.Item("Email").Value))

  5. #5
    Utente di HTML.it
    Registrato dal
    Jul 2002
    Messaggi
    156
    Grazie per le tue risposte, intanto ho trovato il primo inghippo:

    In pratica, essendo il codice quello creto da Dreamweaver, non mi ero accorto che tali istruzioni (Cdonts)create da me, le avevo messe prima dell'apertura del recordset rsLogin. Ora sto scazzottando con la data e l'idfile.
    Se non riesco lo posto.
    GRAZIE ANCORA !!!

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 © 2025 vBulletin Solutions, Inc. All rights reserved.