I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
maxfear
maxfear
il 27 ottobre 2002 alle 15:05
9 messaggi dal 11 settembre 2002
www.maxfear.it
ciao a tutti!
volevo chiedervi come potevo permettere ai visitatori di inviare le foto della mia galleria fotografica via email.. senza usare outlook o affini, semplicemente cliccando sulla foto piccola, facendola ingrandire nel popup dove con un semplice pulsante andavano in una pagina dove inserendo email e nome inviano la foto. con realtivo testo..

grazie

max
<<<MaxFearZ>>>
RispondiQuoting
baxeico
baxeico
il 27 ottobre 2002 alle 20:11
181 messaggi dal 06 luglio 2001
Questo dovrebbe fare al caso tuo:
<%
Set objMail = Server.CreateObject("CDONTS.NewMail") 
objMail.AttachURL Server.MapPath("/percorso/immagine.jpg"), "immagine.jpg"
strTxt = "<html><body><img src='immagine.jpg'></body></html>"
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.From = "email@mittente.it"
objMail.Body = strTxt
objMail.To = "email@destinatario.it"
objMail.Subject = "Ti invio un' immagine"
objMail.Send 
set objMail = nothing 
%>
Ciao
Baxeico

-- Sciusciá e sciurbí nu se pö --
RispondiQuoting
maxfear
maxfear
il 27 ottobre 2002 alle 20:41
9 messaggi dal 11 settembre 2002
www.maxfear.it
grande.. qui ho il codice.. il problema che a seconda della foto lo script deve scegliere cosa inviare.. e sarebbe spettacolo poter inserire una casella di scelta sotto la foto in modo tale ke puo scegliere la foto da mandare.. e poi far si ke invii l'url e nn la foto cosi la gente torna a visitare..
immagino ke dopo devo anke creare un form x l'invio!o no? scusa ma nn sono molto esperto!
<<<MaxFearZ>>>
RispondiQuoting
baxeico
baxeico
il 27 ottobre 2002 alle 23:41
181 messaggi dal 06 luglio 2001
Beh... puoi passare la foto in maniera dinamica con un form o piu' semplicemente dalla barra degli indirizzi, ad esempio richiami lo script con un semplice link (diverso per ogni foto):

pagina.asp?foto=cane.jpg

per ogni foto ovviamente cambi quello che viene dopo "foto=" con il nome della foto in questione. A quel punto lo script diventa:
<%
strpath = "/percorso/" & request.querystring("foto")
Set objMail = Server.CreateObject("CDONTS.NewMail") 
objMail.AttachURL Server.MapPath(strpath), "immagine.jpg"
strTxt = "<html><body><img src='immagine.jpg'></body></html>"
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.From = "email@mittente.it"
objMail.Body = strTxt
objMail.To = "email@destinatario.it"
objMail.Subject = "Ti invio l' immagine di nome: " & request.querystring("foto")
objMail.Send 
set objMail = nothing 
%>

Altrimenti se non vuoi mandare la foto vera e propria in allegato, ma un'url ti basta scrivere:
<%
strpath = "http://www.tuodominio.it/percorso/" & request.querystring("foto")
Set objMail = Server.CreateObject("CDONTS.NewMail") 
strTxt = "Per vedere la foto vai all'URL:" &vbcrlf & vbcrlf
strTxt = strTxt & strpath
objMail.From = "email@mittente.it"
objMail.Body = strTxt
objMail.To = "email@destinatario.it"
objMail.Subject = "Ti invio l'URL dell' immagine di nome: " & request.querystring("foto")
objMail.Send 
set objMail = nothing 
%>

Di solito le webmail e i programmi di posta elettronica rendono cliccabili gli URL che iniziano con http://ecc... quindi puoi mandare l'email in formato testo puro.
Ciao
Baxeico

-- Sciusciá e sciurbí nu se pö --
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.