VB6からメール送信を行いたいのですが認証で弾かれているようで下記のエラーが出ます。
どこを調べれば良いのでしょうか？

エラー： -2147220977
?T?[?o?[?E?a?A?A 1 ?A?U???I?!?”?I?o?M?O?A?h???X?a?‘”U?3?e?U?μ???B?T?[?o?[?c?c?I‰?“??I???I?A?¨?e?A?・?B553 5.7.1 <アドレス>: Sender address rejected: not logged in

コードに書いた認証情報やポート番号などをコピペでOutlookのアカウント情報に入力した場合
何の問題もなく使えるので、情報自体は正しいです。
コードは以下の通りです。

    Dim objEmail    As New CDO.Message

    Dim strTextBody As String

    strTextBody = "テスト"

    

    With objEmail

        .To = 宛先

        .From = 送信元

        .Subject = "テストメール"

        .TextBody = strTextBody                    



        .AddAttachment (ファイルパス)





        'SMTP設定 

        With .Configuration.Fields

            'サーバー、ポート設定 

            .Item(cdoSendUsingMethod) = cdoSendUsingPort

            .Item(cdoSMTPServer) = SMTPサーバIPアドレス

            .Item(cdoSMTPServerPort) = 587         ' ポート№ 

            

            '認証情報 

            .Item(cdoSMTPAuthenticate) = cdoAnonymous 'cdoBasic 'cdoNTLM　どれを使えば？ 

            .Item(cdoSendUserName) =ユーザー名

            .Item(cdoSendPassword) =パスワード

            

            .Item(cdoSMTPConnectionTimeout) = 60 

            .Item(cdoSMTPAuthenticate) = 0

            .Update

        End With

     

       .Send

    End With