Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

leoferraz

Enviar para um amigo

Recommended Posts

Caros amigos,Estou fazendo um site e gostaria de ter um serviço onde o visitante ao visualizar uma foto, possa enviar a mesma para um amigo.Será q alguem pode me ajudar?Abç

Compartilhar este post


Link para o post
Compartilhar em outros sites

Eu tenho este para enviar a url, pode ser que sirva de alguma coisa===============================================Dim remet, e_remet, amigo, e_amigo, urlurl_men, urleremturlremt=Trim(Request.Form("url"))remet=Trim(Request.Form("seunome"))e_remet=Trim(Request.Form("seuemail"))amigo=Trim(Request.Form("nomeamigo"))e_amigo=Trim(Request.Form("emailamigo"))urlmensgm=Trim(Request.Form("m_mensagem"))'Enviando o email com resultado para o destinarioDim objemail, url_men Set objemail=CreateObject("CDONTS.NewMail") url_men = "<html><head><title>Dica de Enderço</title></head>" url_men = url_men&"<body topmargin='0' leftmargin='0' bgcolor='#ffffff'>" url_men = url_men&"<table width='590' border='0'>" url_men = url_men&"<tr><td><img src='http://www.valeuboi.com.br/jpgs/logo.jpg' border='0'><img src='http://www.valeuboi.com.br/jpgs/topo.jpg' border='0'></td></tr>" url_men = url_men&"<tr><td height='8'></td></tr>" url_men = url_men&"<tr><td bgcolor='#ffffff'>Olá "&amigo&".<BR><BR>"&remet&" envio para você a mensagem: "&urlmensgm&", com uma dica de url do nosso site.<br> para visitar basta clicar no link abaixo.<BR><BR></td></tr>" url_men = url_men&"<tr></tr><tr></tr></font> " url_men = url_men&"<td><a href='http://www.valeuboi.com.br"&urlremt&"'>http://www.valeuboi.com.br"&urlremt&"</a></td>" url_men = url_men&"</table></body>" Objemail.From = e_remet 'remetente Objemail.To = e_amigo 'destinatario Objemail.Subject = "Dica de URL" 'titulo da url_men Objemail.BodyFormat = 0 'formato do corpo da url_men Objemail.MailFormat = 0 'formato da url_men Objemail.Body = url_men 'texto da url_men Objemail.Send 'O PROBLEMA ESTÁ NESTA LINHA DE COMANDOS, ESPERAR A RESPOSTA DO EMAIL DO HOSTNET If err.number > 0 then response.write "O email não foi enviado aguarde que logo que possível será enviado"&err.description else response.write "Email enviado com sucesso" end if Set Objemail=Nothing

Compartilhar este post


Link para o post
Compartilhar em outros sites

Primeiramente, obrigado a todos !Gastão: o link q você me passou nao funcionou.Penna: Valeu, se você puder mendar para leoferraz@ajato.com.br, eu agradeço.Asp.net: Obrigado, com certeza vai me servir.Abç galera

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.