Отправить Hotmail Live электронной почты с Excel VBA

Question

Я хотел бы отправить электронное письмо с VBA.Мой провайдер: Hotmail Live.В настройках почты имя SMTP-сервера: smtp.office365.com с портом: 587.

Sub SendEmailLive()

    Dim mail As New Message

    Dim Config As Configuration
    Set Config = mail.Configuration

    Config(cdoSendUsingMethod) = cdoSendUsingPort
    Config(cdoSMTPServer) = "smtp.office365.com"
    Config(cdoSMTPServerPort) = 587
    Config(cdoSMTPAuthenticate) = cdoBasic
    Config(cdoSMTPUseSSL) = True
    Config(cdoSendUserName) = "mymail@live.it"
    Config(cdoSendPassword) = "mailpassword"
    Config.Fields.Update

    mail.Configuration = Config

    mail.To = "to_mail@gmail.com"
    mail.From = "mymail@live.it"
    mail.Subject = "Mail test"
    mail.HTMLBody = "This is a text"

    mail.Send
    MsgBox "Sent"

End Sub

Ошибка: транспорт не смог подключиться к серверу

И отладка останавливается на mail.Send