Outlook 要求赎回密码 - LogonHostedExchangeMailbox

Question

使用 Redemption Dll 版本 6.3.0.6164

当我尝试从程序发送邮件时，总是会出现 Outlook 的弹出窗口，要求输入密码。 如果我输入密码，他们会一次又一次地问...

这是我使用的代码：

    Dim Sessio As Redemption.RDOSession
    Dim Inbox As Redemption.RDOFolder
    Dim Msg As Redemption.RDOMail
    Dim s As String
    Sessio = New Redemption.RDOSession

    Sessio.LogonHostedExchangeMailbox(Mailuser, Mailuser, Pwd)
    Inbox = Sessio.GetDefaultFolder(Redemption.rdoDefaultFolders.olFolderInbox)
    Msg = Inbox.Items.Add
    Msg.To = "[email protected]"
    Msg.Body = "Test"
    Msg.SenderEmailType = "EX"
    Msg.Subject = "Test"
    Msg.Save()
    Msg.Send()
    Sessio.Logoff()
    Inbox = Nothing
    Sessio = Nothing