Excel 2007 macro enviar correo outlook 365

En mi empresa trabajamos con excel 2007 para recopilar datos, generar informes y enviarlos por outlook con una macro.

A partir del 1 de Noviembre la dirección a decidió que Outlook desparece y usaremos el outlook de office 365.

Necesitaría una macro para enviar a través de office 365

He encontrado esto, pero cuando llega a ".Send" me da error.

Sub CDO_Mail_Small_Text()
    Dim iMsg As Object
    Dim iConf As Object
    Dim strbody As String
    Dim Flds As Variant
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
        iConf.Load -1    ' CDO Source Defaults
        Set Flds = iConf.Fields
        With Flds
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.office365.com "
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "usuario"
            .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Contraseña"
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
            .Update
        End With
    strbody = "Hi there"
    With iMsg
        Set .Configuration = iConf
        .To = "*****************" (correo destinatario)
        .CC = ""
        .BCC = ""
        .From = "******************"  (correo remitente)
        .Subject = "Important message"
        .TextBody = strbody
        .Send
    End With
    Set iMsg = Nothing
    Set iConf = Nothing
    Set Flds = Nothing
End Sub