用CDO对象如何链接outlook服务器发邮件

伶俐的毛豆

在excel或word   vba中如何调用这个对象链接到outlook服务器，配置参数是怎样搭配，以下是我调试的代码，始终没有成功

Sub SendEmail()
    Dim cdoMessage As Object
    Dim cdoConfig As Object
    Dim schema As String
    Set cdoMessage = CreateObject("CDO.Message")
    Set cdoConfig = CreateObject("CDO.Configuration")
    schema = "http://schemas.microsoft.com/cdo/configuration/"
   
    With cdoConfig.Fields
        .Item(schema & "sendusing") = 2 ' cdoSendUsingPort
        .Item(schema & "smtpserver") = "smtp-mail.outlook.com"  '"smtp.office365.com"
        .Item(schema & "smtpserverport") = 587
        .Item(schema & "smtpauthenticate") = 1 ' cdoBasic
        .Item(schema & "sendusername") = "GuanJieXinkeJi@outlook.com"
        .Item(schema & "sendpassword") = "GJX123456"
        .Item(schema & "smtpusessl") = False
        .Item(schema & "smtpusetls") = True
        .Update
    End With
   
    With cdoMessage
        Set .Configuration = cdoConfig
        .From = "GuanJieXinkeJi@outlook.com"
        .To = "877857232@qq.com"
        
        .Subject = "test_" & Now
        .TextBody = "Hi" & vbCrLf & Space(0) & "FYI."
        .send
    End With
   
    Debug.Print "ok"
End Sub

伶俐的毛豆

高手在哪里啊，高手在哪里？