Floating exception in AddPOP3Account method Outlook Redemption

Sometimes i get exception when i try add POP3 Account to default Outlook profile.

System.Runtime.InteropServices.COMException
HResult=0x80004005
Message=Error in MAPISession.OpenProfileSection: MAPI_E_CALL_FAILED
ulVersion: 0
Error: An unexpected error has occurred.
Component: MAPI 1.0
ulLowLevelError: 0
ulContext: 769

POP3 account created, but without password and additional options (SMTP auth etc) Can't understand, what i doing wrong.

    Dim rSession = CreateObject("Redemption.RDOSession")       
    rSession.Logon()
    Dim Accounts = rSession.Accounts        
    Dim POP3Account = Accounts.AddPOP3Account(tbName.Text,
                                             tbEmail.Text,
                                             "pop3.mail.loc",
                                             "smtp.mail.loc",
                                             tbEmail.Text,
                                             tbPassword.Text)
     POP3Account.SMTP_UseAuth = True
     POP3Account.SMTP_LogonKind = 0
     POP3Account.Save()