Cdosys Invio copia email a utente

masieri

Nuovo Utente
23 Ott 2008
10
0
0
Mi servirebbe un piccolo aiuto:
sto utilizzando un form che l'utente (dopo averlo compilato) dal mio sito invia con cdosys, chiedo se è possibile inserire un stringa che faccia in modo che una copia dell'email venga inviata anche all'utente.

Ho fatto diversi tentativi ma proprio non mi riesce, magari è semplice ma
sto studiando da poco asp.
Grazie.
 

masieri

Nuovo Utente
23 Ott 2008
10
0
0
Questo è il cdosys

<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->

<%
DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

invioA = "[email protected]"

invioDa = "[email protected]"

nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")

'*rilevo i campi del form

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT

'* creo gli oggetti cdosys sul server e li gestisco

DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "[email protected]"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = InvioA
.From = InvioDa
.Sender = invioDa
.Subject = "Contatto dal dominio " & nomeDominio
.TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp & " browser e sistema operativo " & browserSistemaOperativo & vbCrLf & corpoMessaggio & ""
.Send
End With
%>
 

masieri

Nuovo Utente
23 Ott 2008
10
0
0
Non funziona

Io ho scritto esattamente:
.To = InvioA
.Cc = "[email protected]"

senza capire cosa sia "[email protected]"

Non funziona.

Qualsiasi cosa ho provato fino ad ora, come
invioA = "[email protected]" & ";" & Request.Form("email")

oppure
.To = invioA
.Cc = Request.Form("email")

oppure
.To = invioA
.BCc = Request.Form("email")

restituisce in tutti casi sempre lo stesso identico errore:
Tipo di errore:
(0x8004020F)
La classe di eventi per questa sottoscrizione si trova in una partizione non valida
form/invio.asp, line 43
la line 43 nel mio script è .Send

Se può essere utile avevo provato a fare delle ricerche su internet e avevo trovato
in un forum un messaggio di uno che aveva inserito la stessa identica richeista e
problema di errore, purtroppo il messaggio successivo era sempre il suo dove diceva:
"ok ragazzi risolto la faccenda era la configurazione della porta"

Saluti.
 

lukeonweb

Utente Attivo
5 Mar 2003
5.175
13
38
45
Napoli
www.lucaruggiero.it
Con calma

Prova cosi:

<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->

<%
DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

invioA = "[email protected]"

invioDa = "[email protected]"

nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")

'*rilevo i campi del form

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT

'* creo gli oggetti cdosys sul server e li gestisco

DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "[email protected]"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = InvioA
.Cc = InvioDa
.From = InvioDa
.Sender = invioDa
.Subject = "Contatto dal dominio " & nomeDominio
.TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp & " browser e sistema operativo " & browserSistemaOperativo & vbCrLf & corpoMessaggio & ""
.Send
End With
%>
 

masieri

Nuovo Utente
23 Ott 2008
10
0
0
Non va

Ha inviato ma di email ne è arrivata sempre una perchè .Cc = InvioDa
è sempre il mio indirizzo uguale a InvioA.

Provo a buttare una stupidata:
non è possibile duplicare With iMsg magari creando Dim InvioCopia

With iMsgDuplicato
Set .Configuration = iConf
.To = InvioCopia
.From = InvioDa
.Sender = invioDa
.Subject = "Contatto dal dominio "
.TextBody = "Questi i dati inseriti "
.Send
 

masieri

Nuovo Utente
23 Ott 2008
10
0
0
Si è giusto

Il mittente compila un form sul mio sito, invia e a me arriva l'email, della stessa email una copia vorrei che andasse anche a lui come riepilogo del form che ha compilato.

Faccio un esempio pratico.
L'utente compila un form sul sito per prenotare un soggiorno in hotel, a me arriva l'email con i suoi dati, vorrei che il riepilogo del form in copia andasse anche a lui in automatico tramite email.

Grazie per la pazienza.
 

lukeonweb

Utente Attivo
5 Mar 2003
5.175
13
38
45
Napoli
www.lucaruggiero.it
Devi considerare i campi To, From e Cc. Il primo deve contenere la tua email, il secondo ed il terzo la mail del mittente. Da qui non si scappa!

Senza il Cc che ti ho suggerito funziona, giusto?

Se aggiungi il Cc e ci metti ma variabile con la mail del mittente, che è quella che sta anche in From, idovrebbe essere tutto ok.

Diversamente, cosa esattamente non funziona, cosa succede o non succede?
 

masieri

Nuovo Utente
23 Ott 2008
10
0
0
Non vuole saperne, invio quello che ho fatto

- Con .Cc

With iMsg
Set .Configuration = iConf
.To = InvioA
.Cc = Request.Form("email")
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Contatto dal dominio "
.TextBody = "Questi i dati inseriti nel modulo "
.Send
End With

- Con .BCc

With iMsg
Set .Configuration = iConf
.To = InvioA
.BCc = Request.Form("email")
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Contatto dal dominio "
.TextBody = "Questi i dati inseriti nel modulo "
.Send
End With

- e ho provato anche questo

With iMsg
Set .Configuration = iConf
.To = InvioA & ";" & Request.Form("email")
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Contatto dal dominio "
.TextBody = "Questi i dati inseriti nel modulo "
.Send
End With

- in tutti e tre i casi restituisce sempre il solito errore

Tipo di errore:
(0x8004020F)
La classe di eventi per questa sottoscrizione si trova in una partizione non valida
formcdosys.asp, line 60

- alla line 60 corrisponde .Send

Quello che volevo chiedere e se a qualcuno che ha provato gli funziona, perchè mi chiedo se ho io dei problemi in locale o sul server, però senza .Cc e altro ha sempre funzionato bene.

Grazie e buona giornata.
 

masieri

Nuovo Utente
23 Ott 2008
10
0
0
non è questo..

non è uguale a quello che ho già fatto?

.To = InvioA & ";" & Request.Form("email")
 

lukeonweb

Utente Attivo
5 Mar 2003
5.175
13
38
45
Napoli
www.lucaruggiero.it
Allora non sto capendo, oppure non ci riusciamo a spiegare tra noi.

Tu devi farti inviare un'email da un utente che nel form mette i suoi dati, compresa l'email, ok?

La mail, oltre ad arrivare a te, deve arrivare al mittente in copia.

Giusto???

Se si, qual'è il problema?

A livello tecnico, CDO (CDOSYS o CDONTS, è indifferente) ha la proprietà TO per raggiungere il destinatario e CC per il secondo destinatario, visibile (nonchè BCC per il destinatario invisibile).

Con TO e CC puoi aggiungere più destinatari diviendoli col "punto e virgola".

Prendi le variabili in cui ci sono le email che devi gestire (la tua e quella del mittente.

Metti la tua in TO, la sua in CC e FROM.

Non può non funzionare!

Stai testando in locale o su un server online?
 

masieri

Nuovo Utente
23 Ott 2008
10
0
0
Tutto giusto

Lo sto provando sia in locale che sul sito.
Se mi autorizzi ti invio per email il form e il file cdosys che uso.
Saluti.
 
Discussioni simili
Autore Titolo Forum Risposte Data
I [Risolto] Problemi invio e-mail con CDOSYS con domini @live.it Classic ASP 4
M il loop per l'invio mail con CDOSYS ad un tratto non funziona più Classic ASP 1
W Form da CDONTS a CDOSYS Classic ASP 7
P Nome del file allegato alla email inviata con CDOSYS Classic ASP 0
D errore 424 da cdonts a cdosys Classic ASP 0
F modificare da cdonts a cdosys Classic ASP 2
L Newsletter con comando cdosys??? Classic ASP 11
I Convertire CDONTS in CDOSYS Classic ASP 7
M configurazione cdosys su server web Web Server 0
A da CDONTS a CDOSYS Classic ASP 9
I problema assurdo con CDOSYS Classic ASP 0
D Usare CDOSYS con il proprio indirizzo Classic ASP 4
M Cdosys aruba e form con allegati Classic ASP 12
I Problema con form ASP-CDOSYS 2: la vendetta Classic ASP 4
C Cdosys Classic ASP 6
I Problema con form ASP-CDOSYS Classic ASP 2
T CDOsys non funziona con le immagini Classic ASP 1
grottafelix da CDONTS a CDOSYS Classic ASP 5
J Cdont-cdosys-cdo Classic ASP 27
P Da cdont a cdosys Classic ASP 1
G form con cdosys al posto di cdonts...come fare Classic ASP 1
R Invio dai tessera sanitaria PHP 1
M telecamera Foscam - mancato invio mail ad account gmail IP Cam e Videosorveglianza 0
G Invio di più valori con la stessa checkbox PHP 4
M Invio dati database via email php PHP 0
K [php]form invio dati PHP 0
G form invio multiplo con checkbox PHP 12
nivaria.achinet Intercettare form solo dopo invio Javascript 1
M Memorizzare i dati nei campi prima dell'invio al db PHP 4
M Unire 2 funzioni per l'invio di un form e con l'apertura di un div Javascript 0
Z PHP.INI - STMP per invio email con PHP Server Dedicati e VPS 0
M Form: come tornare ai campi già compilati dopo invio PHP 1
G Invio form con PHP PHP 3
M Invio di email PHP 0
A invio massivo dati a file php Javascript 4
P Funzione jQuery Ajax invio file a php jQuery 1
Cosina Upload multiplo con invio allegati per email PHP 0
C Mailchimp ritardo invio newsletter subscribers Email Marketing 1
G creazione menu a tendina e invio a pagina php PHP 1
R Invio mail con allegati multipli PHP 0
R Invio mail con allegati da directory PHP 1
Cosina Invio messaggio a mailing list su file txt PHP 9
W Invio Dati ad un altra pagina Classic ASP 1
S Invio email da form PHP 8
psicomia Server e url per invio di file Server Dedicati e VPS 3
max1974 Invio email PHP 12
Daniele_Carrara Problema timeout - invio mail PHP 7
U PHP bottone per invio mail o ritorno al form PHP 15
G Invio mail con php da dati prelevati da un database PHP 9
L [PHP] Invio Immagini PHP 1

Discussioni simili