none
Utilizando CDOSYS e a porta 587 do Office 365 RRS feed

  • Pergunta

  • Olá.

    Criei uma página simples em ASP Clássico para testar o uso do SMTP do Office 365 no envio de emails.

    Porém, não consigo utilizar a porta 587.

    Segue meu código

        mail_host = "smtp.office365.com"
        email_from = "Nome Remetente"
        email_from_address = "emailremetente@dominio.com.br"
        email_from_senha = "senha"
    
        sch = "http://schemas.microsoft.com/cdo/configuration/"
        Set cdoConfig = Server.CreateObject("CDO.Configuration")
        cdoConfig.Fields.Item(sch & "sendusing") = 2
        cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
        cdoConfig.Fields.Item(sch & "smtpusessl") = true
        cdoConfig.Fields.Item(sch & "smtpserver") = mail_host
        cdoConfig.Fields.Item(sch & "smtpserverport") = 587
        cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30
        cdoConfig.Fields.Item(sch & "sendusername") = email_from_address
        cdoConfig.Fields.Item(sch & "sendpassword") = email_from_senha
        cdoConfig.fields.update
    
        Set cdoMessage = Server.CreateObject("CDO.Message")
        Set cdoMessage.Configuration = cdoConfig
        Set cdoConfig = Nothing
    
        cdoMessage.BodyPart.Charset = "iso-8859-1"
    
        cdoMessage.From = email_from & "<" & email_from_address & ">"
        cdoMessage.To = "Nome Destinatário" & "<emaildestinatario@dominio.com>"
    
        cdoMessage.Subject = "Teste Exchenage " & now()
        cdoMessage.HTMLBody = "<b>TESTANDO</b>"
    
        cdoMessage.Send

    Recebo o erro:

    CDO.Message.1 error '80040213'

    The transport failed to connect to the server.

    Na linha do cdoMessage.Send

    Se eu uso a porta 25, funciona sem problemas (com autenticação de login e senha), mas não sei se é uma limitação do CDOSYS, alguma configuração errada que estou fazendo, meu site de teste não ter conexão SSL...

    Alguém poderia me auxiliar?

    Grato.

    segunda-feira, 7 de outubro de 2013 15:10