У меня есть два почтовых ящика в моем Outlook.Доступ к другому maibox в Outlook с использованием vba
Один, который принадлежит мне, и он автоматически регистрирует меня, когда я вхожу в систему на свой компьютер, а другой у меня есть для отказов почты.
Мне действительно нужно получить доступ к почтовому ящику почты, но я просто не могу этого сделать.
И нет никакого способа, я могу сделать почтовый ящик учетной записи электронной почты, чтобы быть мой по умолчанию почтового ящика
Вот код, который я до сих пор:
Public Sub GetMails()
Dim ns As NameSpace
Dim myRecipient As Outlook.Recipient
Dim aFolder As Outlook.Folders
Set ns = GetNamespace("MAPI")
Set myRecipient = ns.CreateRecipient("[email protected]")
myRecipient.Resolve
If myRecipient.Resolved Then
MsgBox ("Resolved")
Set aFolder = ns.GetSharedDefaultFolder(myRecipient, olFolderInbox)
Else
MsgBox ("Failed")
End If
End Sub
Проблемы я получаю в
Set aFolder = ns.GetSharedDefaultFolder(myRecipient, olFolderInbox)
я Улажено MsgBox, так что я знаю, что это работает, но после того, что я получаю сообщение об ошибке:
Run-Time Error
, который не говорит о самой ошибке.
Может ли кто-нибудь помочь мне здесь, пожалуйста?
ничего себе! Спасибо за код. Мне удалось решить мою проблему, создав новый профиль и указав только ту учетную запись, которую я хотел, поэтому код работает в этом аккаунте :) Спасибо – AntonioCS