Come aggiungere una citazione ad una email tramite formail

[gelova]

Come aggiungere una citazione ad una email tramite formail

Utilizzando questo script per inviare email dal mio sito

Set objMail.Configuration = objConfig
objMail.From = "[email protected]" ' Mittente
objMail.To = Request.Form("email") ' Destinatario
objMail.Subject = Request.Form("oggetto") ' Oggetto
objMail.HTMLBody = Request.Form("messaggio") ' Messaggio
objMail.Send()
Set objMail = Nothing
vorrei fare in modo che il destinatario oltre all'email riceva anche una citazione del tipo:
grazie di aver visitato il mio sito www....., oppure continua a visitare il sito...ecc...in poche parole qualche frase da aggiungere alla fine dell'email !

[legolas]

Dim citazione = vbcrlf & "grazie ecc......"
objMail.HTMLBody = Request.Form("messaggio")  & citazione 

[gelova]

Ho provato legolas....mi esce fuori questo errore:
Microsoft VBScript compilation error '800a0401'
Expected end of statement
/form_mail/email_2.asp, line 8
Dim citazione = vbcrlf & "Grazie di aver visitato...."

[gelova]

Ho provato legolas....mi esce fuori questo errore:

Microsoft VBScript compilation error '800a0401'
Expected end of statement
/form_mail/email_2.asp, line 8
Dim citazione = vbcrlf & "Grazie di aver visitato...."

Forse non riconosce "vbcrlf" ?

[legolas]

Dim citazione
citazione = vbcrlf & "grazie ecc......"
objMail.HTMLBody = Request.Form("messaggio")  & citazione 

```:ciauz:

[gelova]

Ora l'email la manda regolarmente ma la citazione non appare !
:bho:

[legolas]

posta le righe incriminate

[gelova]

<%
if Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then

Dim objMail, objConfig
' Crea l'oggetto email
Set objMail = CreateObject("CDO.Message")
' Dimensiona l'oggetto configurazione
Set objConfig = Server.CreateObject ("CDO.Configuration")

' Imposta le configurazioni
With objConfig

' Server SMTP di uscita
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"
' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update
End With

' Assegna le configurazioni
Set objMail.Configuration = objConfig

' Assegna all'oggetto le proprietà necessarie
objMail.From = "[email protected]" ' Mittente
objMail.To = Request.Form("email") ' Destinatario
objMail.Subject = Request.Form("oggetto") ' Oggetto
objMail.HTMLBody = Request.Form("messaggio") ' Messaggio
' Invia l'email
objMail.Send()
Set objMail = Nothing
Response.Write("Email inviata correttamente ")
Response.Write("all'indirizzo ")
Response.Write(Request.Form("email"))else %>

[legolas]

per fortuna che avevo detto le righe incriminate...

comunque non ti invia la citazione semplicemente perchè non c'è....

objMail.HTMLBody = Request.Form("messaggio") ' Messaggio

????

[gelova]

Scusami Legolas il codice sopra è quello originale,
quello con le modifiche suggerite da te diventerebbe:

<%
if Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then

Dim objMail, objConfig
Dim citazione
citazione = vbcrlf & "grazie ecc......"
' Crea l'oggetto email
Set objMail = CreateObject("CDO.Message")
' Dimensiona l'oggetto configurazione
Set objConfig = Server.CreateObject ("CDO.Configuration")
......
..........
Set objMail.Configuration = objConfig

' Assegna all'oggetto le proprietà necessarie
objMail.From = "[email protected]" ' Mittente
objMail.To = Request.Form("email") ' Destinatario
objMail.Subject = Request.Form("oggetto") ' Oggetto
objMail.HTMLBody = Request.Form("messaggio") & citazione
' Invia l'email
objMail.Send()
Set objMail = Nothing
Response.Write("Email inviata correttamente ")
Response.Write("all'indirizzo ")
Response.Write(Request.Form("email"))else %>
Ma anche questo pur inviando l'emai non fa apparire la citazione !:x

[gelova]

Dove sei Legolas

[legolas]

prova a cambiare questa stringa
citazione = vbcrlf & "grazie ecc......"

con questa

citazione = " grazie ecc......"

[gelova]

Mi dispiace deluderti Legolas ma la citazione continua a non apparire !
x:x

[legolas]

prima di inviare la mail fai un response.write Request.Form("messaggio") & citazione e guarda cosa ti scrive

[gelova]

Ho scritto come dici tu e mi appare sempre la scritta:
"Email inviata correttamente all'indirizzo.....ecc"
Inviandomi l'email.
Non ci sto capendo un tuboooooo x:x

[gelova]

[tonyx]

i consigli che ti ha dato legolas ed il codice che vedo sembra essere tutto corretto. La cosa è strana!
Prova magari una cosa, a non dichiarare la variabile citazione, ovvero elimina "Dim citazione" anche se non dovrebbe cambiare assolutamente nulla.

Curiosità, vedo che nel codice usi sia request.querystring che request.form, questo funziona solo se usi come metodo di invio dati il metodo POST e come action del form qualcosa come pagina.asp?invia=true. Hai impostato così la tua pagina?

Facci sapere.

[gelova]

Si è impostata proprio così "email.asp?invia=true"

[gelova]

Ci rinuncio ?

[legolas]

ma se scirvi:

Dim citazione
citazione = "ciao ciao ciao"
Request.Form("messaggio")  & citazione

Ti scrive la citazione?