Sempre que tento rodar os meus sistemas de e-mails a partir de minha própria máquina, tenho problemas. Primeiro com o CDONTS, depois com outras ferramentas.
Considerando que todos os componentes estejam devidamente instalados e funcionando, gostaria de saber o que há de errado, já que os meus códigos não funcionam ou o resultado não é como esperado.
Alternativa 1 - CDONTS :
<%
Set objmail = Server.CreateObject("CDONTS.NewMail")
objmail.from = "contato@merdas.com"
objmail.to = "renatojandere@gmail.com"
objmail.subject = "Merdas de E-mail"
objmail.body = "Esses sistemas são mesmo uma xxxxxx!"
objmail.send
Response.Write "Email enviado!!!!!"
set objmail = nothing
%>
O sistema roda, mas o e-mail não sai da máquina... ele fica na pasta "queue", do mailroot.
Alternativa 2 - CDOSYS :
<%sch = "http://schemas.micro...configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.ig.com.br"
'cdoConfig.Fields.Item(sch & "sendusername") = "renatojandere@ig.com.br"
'cdoConfig.Fields.Item(sch & "sendpassword") = "minhasenha"
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.From = "renatojandere@bol.com.br"
cdoMessage.To = "t_bjack@hotmail.com"
cdoMessage.Subject = "E-mail no CDOSYS ASP"
cdoMessage.HTMLBody = "TESTE"
cdoMessage.AutoGenerateTextBody = false
cdoMessage.Send
Set cdoMessage = Nothing
Set cdoConfig = Nothing
response.write "Sua mensagem fora enviada com sucesso!"
%>
Erro que dá :
Tipo de erro:
(0x8004020F)
A classe de evento dessa assinatura está em uma partição inválida
/conteudo_asp/email/cdosys.asp, line 41
Alternativa 3 : ASPEmail
<%
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.ig.com.br"
Mail.From = "renatojandere@bol.com.br"
Mail.FromName = "Renato"
Mail.AddAddress "renatojandere@hotmail.com"
Mail.Subject = "Este é o titulo da mensagem"
Mail.Body = "Teste que naum funciona!!!"
on error resume next
Mail.Send
mensagem_erro = ""
if err <> 0 then
mensagem_erro = "Ocorreu o seguinte erro durante o envio do e-mail: " & Err.description
end if
Set Mail = Nothing
on error goto 0
response.write "Mensagem enviada com sucesso!!!"
%>
No caso do aspemail ele roda normalmente e dá a mensagem de sucesso... mas o e-mail simplesmente não chega ao destino.
Portanto, eu questiono :
Esses componentes rodam localmente no iis da nossa máquina se estiverem devidamente instalados?! Os e-mails são de fato enviados e recebidos como se a página estivesse na web ou, para fazer esses códigos funcionarem e os e-mails chegarem eu terei de me cadastrar em um servidor asp pago que dê suporte a essas tecnologias?!
Peço sinceramente que alguém responda a minha questão... pois tenho essa dúvida há tempos e até agora não consegui, mesmo com a ajuda de livros, compreender se essas porcarias de componentes rodam e funcionam localmente ou não...
Desde já, agradecido!
Renato
PS - Eu postei uma mensagem parecida em um tópico aberto por outro usuário que tinha problemas com o CDONTS, mas como muita gente não viu, então, eu resolvi abrir um tópico meu com essas considerações, já que faz muito tempo que tenho problemas com sistemas de e-mail em ASP e nunca consegui solução válida.
