Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Alguem ja conseguiu enviar e-mail autenticado com uma conta do Hotmail, utilizando o CDOSYS Apps, tenho um exemplo para conta do Gmail, mas nao está funcionando com contas do Hotmail.
Alguem poderia me ajudar.
<%
'CRIA A INSTANCIA COM O OBJETO CDOSYS
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
'CRIA A INSTANCIA DO OBJETO PARA CONFIGURAÇÃO DO SMTP
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
'SERVIDOR DE SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
'PORTA PARA COMUNICAÇÃO COM O SERVIÇO DE SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
'PORTA DO CDO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Utilização de SSl
objCDOSYSCon.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
'ATIVAR RECURSO DE SMTP AUTENTICADO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'USU?RIO PARA SMTP AUTENTICADO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "usuario@dominio.com"
'SENHA DO USU?RIO PARA SMTP AUTENTICADO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha"
'TEMPO DE TIMEOUT (EM SEGUNDOS)
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
'ATUALIZA A CONFIGURAÇÃO DO CDOSYS PARA ENVIO DO E-MAIL
objCDOSYSCon.Fields.update
Set objCDOSYSMail.Configuration = objCDOSYSCon
'NOME DO REMETENTE, E-MAIL DO REMETENTE
objCDOSYSMail.From = "Remetente <usuário@dominio.com>"
'NOME DO DESINATARIO, E-MAIL DO DESINATÁRIO
objCDOSYSMail.To = "NOME <destino@dominio.com>"
'objCDOSYSMail.cc = "Copia <copia@dominio.com>"
'objCDOSYSMail.bcc = "Copia Oculta <copiaoculta@dominio.com>"
'ASSUNTO DA MENSAGEM
objCDOSYSMail.Subject = " Envio autenticado - CDOSYS Apps"
'CONTEÚDO DA MENSAGEM
objCDOSYSMail.TextBody = "Teste do componente CDOSYS - Texto sem HTML"
'PARA ENVIO DA MENSAGEM NO FORMATO HTML, ALTERE O TextBody PARA HtmlBody
'objCDOSYSMail.HtmlBody = "<html> <head><meta http-equiv=""Content-Type"" content=""text/html;charset=utf-8""></head><body></body></html>"
'ENVIA A MENSAGEM
objCDOSYSMail.Send
'DESTR?I OS OBJETOS
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
response.write "Email enviado com sucesso"
'Response.Redirect "Enviado.asp"
%>
Carregando comentários...
