Ir para conteúdo

POWERED BY:

Arquivado

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

Fadweb

Enviar em email usando remetente hotmail ou etc

Por , em ASP Clássico

Recommended Posts

Fadweb    0

Fadweb
Postado

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>

Compartilhar este post

Link para o post
Compartilhar em outros sites

dark0    0

dark0
Postado

posso estar enganado.. mas quando você determina qual é o servidor SMTP que está enviando a mensagem, no seu componente.. geralmente o remetente precisa ser um e-mail deste domínio especificado no servidor smtp..

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito