Envio de e-mail - IG Empresas (CDOSys)

Senhores,

Com a finalidade de ajudar que tem problemas ou quem poderá ter futuramente tentando enviar e-mails pelos servidores do IG Empresas, segue o script para envio de e-mail. Sei que o suporte deles não é dos melhores, portanto, a melhor solução é procurar pelos forums da net, como sempre!

ASP

<%                Set ObjMailer = Server.CreateObject("CDO.Message")

ObjMailer.From = "emissor@igempresas.com.br" ' email de que está enviando

ObjMailer.to = "receptor@igempresas.com.br"   'email que receberá a mensagem

ObjMailer.Subject = "Teste de email"             'Assunto do e-mail

                ObjMailer.HTMLBody = "Texto do e-mail em <h1>html</h1>" 'mensagem a ser enviada em html              

                ObjMailer.Send

                set ObjMailer = nothing

%>

Tenham uma boa noite!

Ska!