Persits.MailSender.4 error '800a0004' Software caused connect

[augustoclaro 2]

Olá, eu tenho o seguinte código:

 

<%
trabalho = request.form("Vartrabalho")
categoria = request.form("Varcategoria")
restrab = request.form("VarResumo")
descricao = request.form("VarResumo2")
autor = request.form("VarNome4")
endereco = request.form("Varendereco")
bairro = request.form("Varbairro")
cidade = request.form("Varcidade")
estado = request.form("VarEstado")
cep = request.form("Varcep")
pais = request.form("Varpais")
telefone = request.form("Vartelefone")
celular = request.form("Varcelular")
email = request.form("Varemail")






str = ""




str = str & "Titulo do Trabalho: "&trabalho&"<br>"
str = str & "Categoria: "&categoria&"<br>"
str = str & "Resumo do Trabalho: "&restrab&"<br>"
str = str & "Descrição do Trabalho que deverá ser publicado no guia do evento:"&descricao&"<br>"
str = str & "Autor:"&autor&"<br>"
str = str & "Endereço: "&endereco&"<br>"
str = str & "Bairro: "&bairro&"<br>"
str = str & "Cidade: "&cidade&"<br>"
str = str & "Estado: "&estado&"<br>"
str = str & "CEP: "&cep&"<br>"
str = str & "País: "&pais&"<br>"
str = str & "Telefone com DDD: "&telefone&"<br>"
str = str & "Celular: "&celular&"<br>"
str = str & "E-Mail: "&email&"<br>"

Set Mail = Server.CreateObject("Persits.MailSender")


'Propriedades do ASPMAIL
Mail.Host = "smtp.contaf.com.br"
Mail.Port = 25 ' Valor opcional. 25 é a porta de erro
Mail.FromName = "CONTAF"
'Mail.FromName = email ' Opcional
Mail.Subject = "FICHA DE INSCRIÇÃO PARA TRABALHOS TÉCNICOS"
Mail.Body = str
Mail.IsHTML = True
'pascoal@pascoalmassas.com.br
Mail.AddAddress "pascoal@pascoalmassas.com.br"



Mail.Send
response.redirect "index.html"


%>

e recebo este erro:

 

Persits.MailSender.4 error '800a0004'

 

Software caused connect abort.

 

/cadastro.asp, line 58

 

o que eu faço? :P

[Ted k' 126]

Você tem o Componente instalado? Creio que seja isso, manda exatamente a linha do erro ai!

 

Veja seu host tbm, se está certo o SMTP

[xanburzum 169]

você esta rodando no localhost ou em algum host ??

e no parâmetro .AddAddress, coloque o nome do email do destinatário dentro de aspas.

Ex: objEmail.AddAddress ("myUser@hotmail.com")

e verifique se o Mail.Host é válido