Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Ola estou fazendo um formulario ele recuperar do form e utiliza para enviar como remetente porem o servidor nao aceita como faco para funcionar
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="strmode.asp"-->
<%
dim strSiteForm, strBody, email
strSiteForm = "" & strTitulo & ""
email = Lcase(Trim(replace("" & request.form("email") & "","'","''")))
'cria o objeto para o envio de e-mail
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
'cria o objeto para configuração do SMTP
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
'SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp-web.uni5.net"
'"mail.fadmarketing.com.br"
'porta do SMTP
'objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
'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ção do CDOSYS para o envio do e-mail
Set objCDOSYSMail.Configuration = objCDOSYSCon
'e-mail do remetente
Dim emailremetente
'emailremetente = "sac@yamamuraonline.com.br"
'objCDOSYSMail.From = emailremetente
objCDOSYSMail.From = email & " <" & email & ">"
'e-mail do destinatrio
'objCDOSYSMail.To = "sac@yamamuraonline.com.br"
objCDOSYSMail.To = "suporte@fadmarketing.com.br"
'objCDOSYSMail.To = strEmail
'copia paRA
'objCDOSYSMail.Cc = "suporte@fadmarketing.com.br"
'objCDOSYSMail.Cc = "cassio@yamamuraonline.com.br"
'Email de resposta
'AddReplyTo = email & " <" & email & ">"
AddReplyTo = "suporte@fadmarketing.com.br"
'assunto da mensagem
objCDOSYSMail.Subject = "orcamento/informacao"
'conteúdo da mensagem
strBody = strBody & "Deseja: " & Request.Form("deseja") & "<br><br>" & vbCrLf & vbCrLf
strBody = strBody & "Produtos: " & Request.Form("produtos") & "<br><br>"& vbCrLf & vbCrLf
strBody = strBody & "Nome: " & Request.Form("nome") & "<br><br>"& vbCrLf & vbCrLf
strBody = strBody & "Endereço: " & Request.Form("endereco") & "<br><br>"& vbCrLf & vbCrLf
strBody = strBody & "Cidade: " & Request.Form("cidade") & "<br><br>"& vbCrLf & vbCrLf
strBody = strBody & "Estado: " & Request.Form("estado") & "<br><br>"& vbCrLf & vbCrLf
strBody = strBody & "Cep: " & Request.Form("cep") & "<br><br>"& vbCrLf & vbCrLf
strBody = strBody & "E-mail: " & Request.Form("email") & "<br><br>"& vbCrLf & vbCrLf
strBody = strBody & "DDD: " & Request.Form("ddd") & "<br><br>"& vbCrLf & vbCrLf
strBody = strBody & "Telefone: " & Request.Form("tel") & "<br><br>"& vbCrLf & vbCrLf
strBody = strBody & "Comentários: " & Request.Form("comentarios") & "<br><br><br>"& vbCrLf & vbCrLf & vbCrLf
strBody = strBody & "IP do Remetente: " & request.ServerVariables("REMOTE_ADDR") & "<br><br>" & vbCrLf & vbCrLf'response.Write (objCDOSYSMail.To)
'response.Write ("<br/>")
'response.Write (objCDOSYSMail.From)
'response.Write ("<br/>")
'response.Write (objCDOSYSMail.Subject)
'response.Write ("<br/>")
'response.Write(strBody)
'response.end()
objCDOSYSMail.HtmlBody = strBody
'para envio da mensagem no formato html altere o TextBody para HtmlBody
objCDOSYSMail.fields.update
'envia o e-mail
objCDOSYSMail.Send
'destri os objetos
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
'response.Redirect "../resposta.htm"
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title><%= strTitulo %></title><!--#include file="stylesheets.asp"-->
</head>
<body <%= strBgliv %>>
<table border="0" width="779" cellpadding="0" cellspacing="0" align="center">
<tr><td height="17" bgcolor="#C6B01E"></td></tr>
<tr><td height="12" bgcolor="#AD9C26"></td></tr>
<tr>
<td valign="top">
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="161" valign="top"><!--#include file="menu_links.asp"-->
</td>
<td width="5"></td>
<td width="613" valign="top">
<table border="0" cellpadding="0" cellspacing="0">
<tr><td height="11"></td></tr>
<tr><td width="20"></td><td><img src="images/top_05.jpg" width="433" height="117" border="0"></td></tr>
</table>
<br><table border="0" width="600" height="210" cellpadding="0" cellspacing="0" align="center">
<tr><td class="doz" valign="top">A Original Tatamis Yamamura agradece o sua mensagem.
<br><br>
Reponderemos o mais breve possível.
<br><br>
<a href="default.asp"><b>Clique aqui</b></a> para retornar à página principal.
</td></tr>
</table><!--#include file="menu_base.asp"-->
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>Carregando comentários...