Salve a tutti, vorrei soppoporvi un altro problema che mi piacerebbe risolvere. Ho una area di download di un catalogo dove vorrei mettere un pulsante di scelta, in modo che l'utente possa scegliere il file da scaricare o in pdf o in zip. (page dwn.asp).
In questo momento funziona cosi:
L'utente compila un campo dove mette la sua email e non scarica il file ma mi invia una richiesta via email e in automatico (fatto_dwl.asp) arriva all'utenteil catalogo con la mia risposta.
La pagina che invece lancia il download (fatto_dwl) contiene il codice per mandare la email.
<%
Dim iMsg, iConf, Flds
'Crea l'oggetto email
Set iMsg = CreateObject("CDO.Message")
'Crea l'oggetto configurazione
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/") = True
'Spedizione: mittente, destinatario, oggetto, messaggio
mittente = "[email protected]"
destinatario = Request.Form("email_usa")
oggetto = "Grazia x avere scaricato il catalogo"
messaggio = "ecco il catalogo in formato zip"
With iMsg
'Assegnazione delle configurazioni
Set .Configuration = iConf
.From = mittente
.To = destinatario
.Subject = oggetto
'Formato HTML
'.HTMLBody = messaggio
'Formato testo (scegliere)
.TextBody = messaggio
'Invio con allegato
.AddAttachment server.mappath("cat2010.zip")
'Invia l'email
.Send()
end with
set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
%>
Ora
se io voglio collegare il pulsante di scelta ad addattachment
dovro impostare 2 addattachemnt uno con il file .zip e l'altro .pdf?
E ogni tipo di file potra avere una email diversa?
grazie
In questo momento funziona cosi:
L'utente compila un campo dove mette la sua email e non scarica il file ma mi invia una richiesta via email e in automatico (fatto_dwl.asp) arriva all'utenteil catalogo con la mia risposta.
La pagina che invece lancia il download (fatto_dwl) contiene il codice per mandare la email.
<%
Dim iMsg, iConf, Flds
'Crea l'oggetto email
Set iMsg = CreateObject("CDO.Message")
'Crea l'oggetto configurazione
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/") = True
'Spedizione: mittente, destinatario, oggetto, messaggio
mittente = "[email protected]"
destinatario = Request.Form("email_usa")
oggetto = "Grazia x avere scaricato il catalogo"
messaggio = "ecco il catalogo in formato zip"
With iMsg
'Assegnazione delle configurazioni
Set .Configuration = iConf
.From = mittente
.To = destinatario
.Subject = oggetto
'Formato HTML
'.HTMLBody = messaggio
'Formato testo (scegliere)
.TextBody = messaggio
'Invio con allegato
.AddAttachment server.mappath("cat2010.zip")
'Invia l'email
.Send()
end with
set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
%>
Ora
se io voglio collegare il pulsante di scelta ad addattachment
dovro impostare 2 addattachemnt uno con il file .zip e l'altro .pdf?
E ogni tipo di file potra avere una email diversa?
grazie