Ir para conteúdo

POWERED BY:

Arquivado

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

Jow Xavier

[Resolvido] Ñ estou conseguindo enviar email

Por , em ASP Clássico

Recommended Posts

Jow Xavier    0

Jow Xavier
Postado

Olá galera, estou tentando enviar um email através desse formulário ... e ñ estou conseguindo solucionar o erro

O formulário abaixo ...

<form method="post" action="informar_grafica.asp" name="form">
		<div align="left"> 
		  <table border="0" width="100%">
			<tr> 
			<td width="6%" valign="top" class="titulo1">Cliente:</span></td>
			</tr>
			<tr> 
			<td><input type="text" name="cliente" value="<%=tab("cliente")%>">
			</td>
				  </tr>
				  <tr> 
			  <td colspan="3"> <p> 
				  <input name="enviar" type="submit" class="formulario" value="Informa Gráfica"></td>
							  
			</tr>
		  </table>
		</div>
	  </form>

A página de envio

<%

 'endereço de email do destinatrio
strP="email@email.com.br"

'titulo=request.form("titulo")
'obs=request.form("obs")

ArrP=split( strP , "," ) 'No caso coloquei virgula, pois o separador  este, caso seja outro basta mudara para o desejado.

'Faz o loop para enviar at que dispare todos os selecionados.
for i = 0 to UBound(ArrP)
Set objmail = Server.CreateObject("CDONTS.NewMail") 

email = Session("email")
objMail.From = email   
objMail.To = ArrP(i)
objMail.Cc = ""
objMail.Bcc = "" 'caso queira cpia oculta

objMail.Subject = "Envio para Grafica" 'titulo da mensagem
sHTML = sHTML & "<html><meta http-equiv=""content-type"" content=""text/html; charset=utf-8"">"
sHTML = sHTML & "<head>"
sHTML = sHTML & "<title>Thatto Interativa</title>" 
sHTML = sHTML & "</head>"
sHTML = sHTML & "<body leftmargin=""0"" topmargin=""0"" rightmargin=""0"" bottommargin=""0"" bgcolor="""">"
sHTML = sHTML & request.form("cliente") 'corpo da mensagem do formulario
sHTML = sHTML & "</body>"
sHTML = sHTML & "</html>"

objMail.MailFormat = 0 
objMail.BodyFormat = 0 
objMail.body = sHTML

objMail.Send
sHTML = ""

On Error Resume Next
set objMail = Nothing

if Err <> 0 Then
Response.Write "Foi encontrado um erro (" & Err.Description & ")."
Response.End
End if

'Fim loop.
next

'Gera alerta de envio ao fim do código.
response.Write("<font face='verdana' size='1'><br>E-mail enviado para a Gráfica!</font><br>")
response.Write("<font face='verdana' size='1'>Para: "&strP&".</font>")


%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Remove a linha On Error Resume Next e poste a mensagem de erro.

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Mesmo removendo a linha?

 

Veja então se não está na Caixa de Spam...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

Mesmo removendo a linha?

 

Veja então se não está na Caixa de Spam...

Verifiquei e nã está enviando o campo do formulario está com o nome OK e ñ tá indo muito estranho ...

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Acho melhor trocar de componente e utilizar um componente com SMTP. Sugiro o CDOSYS.

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Bacana fi.

 

Abraço.

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