Microsoft Access 掲示板

AccessのVBAからメールを送る方法について思案しております。

ネットで調査し、コードを書いて実行しましたが「転送においてサーバーに接続できませんでした」と表示され送信できません。
なにか良いサンプルなどありましたらご享受いただけると助かります。

環境：Windows 10
バージョン：Access 2016

概略：メールを送信するだけの簡単な関数を作成し、それを呼び出しているだけの動作テストプログラムです。コード的なエラーは無いのですが送信結果がエラーとなります。
設定しているメール情報は、メールソフトでは問題なく使用できている情報を設定しています。

Function SendMail() As Boolean

    Dim objCDO As New CDO.Message
    
    Dim txtアドレス As String
    Dim txtパスワード As String
    
    txtアドレス = "sample@dummy.co.jp"
    txtパスワード = "passpasspasspass"

On Error GoTo Err_Exit
    
    '戻り値の初期化
    SendMail= False

    With objCDO
        With .Configuration.Fields
          .Item(cdoSMTPServer) = "mail.dummy.co.jp"
          .Item(cdoSendUsingMethod) = cdoSendUsingPort
          .Item(cdoSMTPServerPort) = 587
          .Item(cdoSMTPConnectionTimeout) = 60
          .Item(cdoSMTPAuthenticate) = cdoBasic
          .Item(cdoSMTPUseSSL) = True
          .Item(cdoSendUserName) = txtアドレス
          .Item(cdoSendPassword) = txtパスワード
          .Item(cdoLanguageCode) = CdoCharset.cdoShift_JIS
          .Update
        End With

        .BodyPart.Charset = "文字コード"
        .From = txtアドレス
        .To = "jyusinnsaki@dummy.co.jp"
        .Subject = "送信テスト件名「テストメール送信」"
        .TextBody = "送信テスト本文「テストメール送信」"
        .Send
    End With
    
    MsgBox "メールを送信しました。", vbOKOnly + vbInformation, "送信完了"
    
    '正常終了
    SendMail= True
    Set objCDO = Nothing
    
    Exit Function
    
Err_Exit:
    MsgBox Err.Number & ":" & Err.Description, vbOKOnly + vbCritical, "SendMail()"

End Function