<% 'informações dos campos do formulário strNome = Request.Form("nome") strEmail = Request.Form("email") strNomeAmigo = Request.Form("nomeAmigo") strEmailAmigo = Request.Form("emailAmigo") if strEmail <> "" then 'cria o objeto para configuração do SMTP sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject ("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.belaterraturismo.com.br" cdoConfig.Fields.Item(sch & "smtpserverport") = 25 cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30 cdoConfig.Fields.Item(sch & "sendusername") = "belaterra@belaterraturismo.com.br" 'conta@seu_dominio cdoConfig.Fields.Item(sch & "sendpassword") = "rosana01" cdoConfig.fields.update 'cria o objeto para o envio de e-mail Set objCDOSYSMail = Server.CreateObject("CDO.Message") objCDOSYSMail.configuration = cdoConfig 'e-mail do remetente objCDOSYSMail.From = strEmail 'e-mail do destinatário objCDOSYSMail.To = strEmailAmigo 'assunto da mensagem objCDOSYSMail.Subject = "Algúem lhe indicou acessar este Site" strMensagem = strMensagem & "" strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & "

Alguém lhe indicou acessar este Site

Seu amigo

" & strNome & "
(" & strEmail & ")

Seu nome

" & strNomeAmigo & "
(" & strEmailAmigo & ")

Seu amigo "& strNome &" lhe enviou um convite para acessar este site.>
" strMensagem = strMensagem & " Visite: http://www.SEU_DOMINIO.com.br/

" objCDOSYSMail.HTMLBody = strMensagem objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set cdoConfig = Nothing Response.Write "O convite para acessar o site foi enviado com sucesso!!'" Response.Redirect("indiqueosite.shtm") end if %>

Nome:
Seu email:
Nome Amigo(a)
Email Amigo:(a)