Ir para conteúdo

POWERED BY:

Arquivado

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

TI Alfacomp

Erro no envio de mail com ASPEMAIL

Por , em ASP Clássico

Recommended Posts

TI Alfacomp    0

TI Alfacomp
Postado

Seguinte erro:

Tipo de erro:

Persits.MailSender.4 (0x800A0002)

Winsock error 11004 (0x2AFC) occurred.

/site/formulario_email.asp, line 60

 

Meu código é este:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">

<head>
<meta content="text/html; charset=utf-8" http-equiv="Content-Type" />
<title>formulario</title>
</head>
<body>
<%
if request.form="" then
'nao recebo formulario, entao o mostro
%>
<form action="formulario_email.asp" method="POST">
<div>Nome:	<input type="Text" name="nome" size="12" maxlength="60" style="width: 305px"/></div>
<br>
<div>Email: <input type="Text" name="email" size="12" maxlength="50" style="width: 310px"/></div>
<br>
<div>Telefone Contato: <input type="number" name="telefone" size="12" maxlength="19" style="width: 242px"/></div>
<br>
<input type="submit" value="Enviar"/>
</form>

<%
else
'recebo um formulario, entao o trato
'recolho os dados
nome = request.form("nome")
email = request.form("email")
strSMTP = "189.27.234.247"
'componho o corpo da mensagem
corpo = "Gostaria de trabalhar na empresa" & VBNEWLINE & VBNEWLINE
corpo = corpo & "Nome: " & nome & VBNEWLINE
corpo = corpo & "Email: " & email  

' Cria uma instância do controle de Email
Set aspEmail = Server.CreateObject("Persits.MailSender")
' Endereço do Servidor de SMTP
aspEmail.Host = "mail.alfacomp.ind.br"
' Nome do Remetente
aspEmail.FromName = nome
' E-mail do Remetente
aspEmail.From = email
' E-mail do Destinatário
aspEmail.AddAddress "ti@alfacomp.ind.br"
' Assunto do E-mail
aspEmail.Subject = "Gostaria de trabalhar com vcs"
'aumento tempo de envio
Server.ScriptTimeOut = 5555
' E-mail para autenticação
aspEmail.Username = ""
' Senha do E-mail para autenticação
aspEmail.Password = ""
' Arquivo a ser anexado
aspEmail.AddAttachment "D:\logo_1.jpg"
' E-mail em HTML
aspEmail.IsHTML = True
' Conteúdo do E-mail
aspEmail.Body = "Envio de e-mail autenticado e com anexo através do AspEmail." & corpo
' Envia o Email
aspEmail.Send -->linha 60 do erro


if ("Err >< 0") then
response.write "Erro, não pode completar a operação"
else
response.write "Obrigado por preencher o formulário. Foi enviado corretamente." 
end if
end if%>
</body>
<%
' Tira o objeto da memória
Set aspEmail = Nothing%>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Anézio    0

Anézio
Postado

Opa! Beleza TI Alfacomp.

 

Cara acho que se você colocar o endereço do servidor smtp, vai resolver.

 

Se você deixar com o IP, vai da rolo, principalmente se o servidor não for local, e mesmo sendo ainda você corre o risco de um genio colocar o endereço de IP igual ao do seu servidor, assim cai o serviço.

 

ficararia assim:

 

strSMTP = "smtp.seudominio.com.br"

 

 

 

 

Espero ter ajudado.

 

Achei isso aqui para você caso queira tentar.

[/size][/size][/size]
[size=3][size="3"][size=3]
<table width="40%" border="1" align="left">
<tr>
<td>
<%
Dim Mail	 ' objeto mail 
Dim FromName	 ' nome do remetente
Dim FromEmail	 ' endereço de E-mail do remetente
Dim ToEmail	 ' endereço do destinatario	
Dim Subject, strBody	' corpo da mensagem
Dim ThisPage	 ' o endereco do seu site
Dim RefPage	 ' a referencia URL 
Dim Val_Input	 ' variável Booleana usada na validação 
Dim meusmtp	
Dim minhacontaautenticada
Dim minhasenhaparaenvio

'Abaixo seguem algumas definicoes de variaveis para o envio de seu formulario. Por favor preencha os campos abaixo.

meusmtp = "smtp.seudominio.com" ' Informacoes so seu servidor SMTP
minhacontaautenticada = "conta@dominio.com" ' conta de e-mail utilizada para enviar
minhasenhaparaenvio = "senha" ' senha da conta de e-mail
emaildestino = "e-maildedestino@dominio.com" ' e-mail que vai receber as mensagens do formulario


'Fim da definição manual de parâmetros.

' Retorna o nome do arquivo de script e a url da pagina
ThisPage = Request.ServerVariables("SCRIPT_NAME")
RefPage = Request.ServerVariables("HTTP_REFERER")

strBody = Trim(Request.Form("Message"))
Subject = Trim(Request.Form("Subject"))
ToEmail = emaildestino
FromName = Trim(Request.Form("FromName"))
FromEmail = Trim(Request.Form("FromEmail"))

val_ent = True
val_ent = val_ent And FromName <> ""
val_ent = val_ent And val_email(FromEmail)
val_ent = val_ent And val_email(ToEmail)

If val_ent Then 
Set Mail = Server.CreateObject("Persits.MailSender") 
Mail.Host = meusmtp
Mail.Port = 25
Mail.Username = minhacontaautenticada
Mail.Password = minhasenhaparaenvio
Mail.From = FromEmail
Mail.FromName = FromName
Mail.AddAddress ToEmail 
Mail.Subject = Subject
Mail.Body = "Dados"&Chr(13) & _
"Nome:"& Request("FromName")& Chr(13) & _
"E-Mail:"& Request("FromEmail")& Chr(13) & _
"Assunto:"& Request("Subject")& Chr(13) & _
"Mensagem:"& Request("Message")


Mail.Send
mensagem_erro = ""
if err <> 0 then
mensagem_erro = "Ocorreu o erro: " & Err.description
end if
Mail.CharSet = "ISO 8859-1"
Set Mail = Nothing
on error goto 0
response.write "<P><b>Sua mensagem foi enviada com sucesso!</P></b>"
Else
If "http://" & Request.ServerVariables("HTTP_HOST") & ThisPage = RefPage Then
Response.Write "Verifique os campos por favor!" & "<BR>" & vbCrLf 
End If
Forms_x ThisPage, FromName, FromEmail, Subject, strBody
End If

Function val_email(strEmail)

Dim xVal

xVal = True	

If Len(strEmail) < 5 Then
xVal = False
Else
If Instr(1, strEmail, " ") <> 0 Then
xVal = False
Else
If InStr(1, strEmail, "@", 1) < 2 Then 
xVal = False
Else
If InStrRev(strEmail, ".") < _
InStr(1, strEmail, "@", 1) + 2 Then
xVal = False
End If
End If
End If
End If

val_email = xVal

End Function

Sub Forms_x (strPageName, FromName, FromEmail, Subject, strBody) %>
<html>
<head>
<title>Formulário de Contato</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center">
<p><font face="Arial, Helvetica, sans-serif" size="2"><b><font color="#FF0000" size="4" face="Times New Roman, Times, serif">Formulário de 

Contato</font></b></font></p>
<FORM ACTION="<%=strPageName%>" METHOD="post" name=frmReferral>
<TABLE BORDER="0">
<TR>
<TD VALIGN="top" ALIGN="right">
<STRONG>Nome:</STRONG></TD>
<TD><INPUT TYPE="text" NAME="FromName" VALUE="<%=FromName%>" SIZE="50"></TD>
</TR>
<TR>
<TD VALIGN="top" ALIGN="right">
<STRONG>E-mail:</STRONG></TD>
<TD><INPUT TYPE="text" NAME="FromEmail" VALUE="<%=FromEmail%>" SIZE="50"></TD>
</TR>
<TR>
<TD VALIGN="top" ALIGN="right">
<STRONG>Assunto:</STRONG></TD>
<TD><INPUT TYPE="text" NAME="Subject" VALUE="<%=Subject%>" SIZE="50"></TD>
</TR>
<TR>
<TD VALIGN="top" ALIGN="right">
<STRONG>Mensagem:</STRONG></TD>
<TD><TEXTAREA NAME="Message" COLS="50" ROWS="5" WRAP="virtual" >
<%=strBody%></TEXTAREA>
</TR>
<TR>
<TD></TD>
<TD><INPUT TYPE="submit" VALUE="Enviar" class="botoes" name=rstReferral>  
<INPUT TYPE="reset" VALUE="Limpar" class="botoes" name=subReferral></TD>
</TR>
</TABLE>
</FORM>
</td>
</tr>
</table>
</body>
</html>
<% End Sub %>[/size][/size][/size]
[size=2][size="3"][size=3]

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

O erro parece esta aqui

 

aspEmail.AddAttachment "D:\logo_1.jpg"

Verifique se o arquivo em questão estão no disco D: realmente.

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