Enviar link para amigo

[PRSolucaoWeb 0]

Bom dia pessoal, blz?

Estou montando um site e estou precisando de uma idéia.

Preciso saber como que faço para montar um formulário para enviar o link da página para um amigo.

Exemplo:

O site é de imobiliária e ai tem um formaulário numa determinada página, ai eu envio essa página para um amigo, o link da página.
Como que posso fazer?

 

Muito obrigado

[Fábio BN 17]

Oi.

 

Você vai precisar de um componente de e-mail, primeiro de tudo é identificar qual componente de e-mail o seu servidor trabalha.

Depois você cria uma tela com um ou dois campos de formulário para que a pessoa possa indicar um amigo, você então capta o nome e o e-mail do amigo pelo formulário, depois você recebe os dados na tela de envio do e-mail, e envia o e-mail junto com o HTML que contém o texto do corpo do e-mail.

 

Tela que executa o componente:

<%
sendUrl="http://schemas.microsoft.com/cdo/configuration/sendusing"
smtpUrl="http://schemas.microsoft.com/cdo/configuration/smtpserver"

nome = trim(request.form("nome"))
email = trim(request.form("email"))
hmtl_corpo = "<b>Olá"&nome&"</b><br><br>Texto<br><br><a href='www.site.com.br' target='_parent'>www.site.com.br</a>"

' Set the mail server configuration
Set objConfig=CreateObject("CDO.Configuration")
objConfig.Fields.Item(sendUrl)=2 ' cdoSendUsingPort
objConfig.Fields.Item(smtpUrl)="relay-hosting.secureserver.net"
objConfig.Fields.Update


' Create and send the mail
Set objMail=CreateObject("CDO.Message")
' Use the config object created above
Set objMail.Configuration=objConfig
objMail.From="email_imobiliaria@email_imobiliaria.com.br"
objMail.ReplyTo="email_imobiliaria@email_imobiliaria.com.br"
objMail.To="&email&"
objMail.Subject="Assunto"
objMail.HTMLBody="&hmtl_corpo&"
objMail.Send

set objConfig = nothing
set objMail = nothing
%>

Abraços!

Fábio!