%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% if Request.Form("enviaemail") = "yes" then%>
<%
'cria o objeto para o envio de e-mail
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
'cria o objeto para configuraçao do SMTP
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
'SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
'porta do SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25
'porta do CDO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'timeout
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
objCDOSYSCon.Fields.update
'atualiza a configuraçao do CDOSYS para o envio do e-mail
Set objCDOSYSMail.Configuration = objCDOSYSCon
'e-mail do remetente
objCDOSYSMail.From = "arte@wgdesign.com.br"
'e-mail do destinatário
objCDOSYSMail.To = "arte@wgdesign.com.br"
objCDOSYSMail.bcc = "wesleygomides@hotmail.com"
'assunto da mensagem
objCDOSYSMail.Subject = "Contato"
'conteúdo da mensagem
'para envio da mensagem no formato html altere o TextBody para HtmlBody
objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "Contato - Contato AD&A AVELLAR DOURTMOUD ADVOGADOS
"
objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "Nome: " & request("nome") &"
"
objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody &"email: " & request("email") &"
"
objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody &"Telefone:(" & request("ddd") &") " & request("telefone") &"
"
objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody &"Mensagem: " & request("mensagem") &"
"
objCDOSYSMail.Send
'destrói os objetos
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
%>
<%
response.Redirect("contato_conf.asp")
end if
%>
|