J'ai deux boîtes aux lettres dans mon Outlook.Accéder à un autre maibox dans Outlook en utilisant vba
Un qui est à moi et il me connecte automatiquement lorsque je me connecte à mon PC et un autre que j'ai pour le courrier rebondit.
J'ai vraiment besoin d'accéder à la boîte de réception du compte de la messagerie, mais je ne peux pas sembler le faire.
Et il n'y a aucun moyen que je peux faire la boîte aux lettres du compte de courrier à ma boîte aux lettres par défaut
Voici le code que j'ai jusqu'à présent:
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
Le problème que je reçois est à le
Set aFolder = ns.GetSharedDefaultFolder(myRecipient, olFolderInbox)
je reçois le msgbox Résolu donc je sais que fonctionne, mais après que je reçois une erreur:
Run-Time Error
qui ne dit pas grand-chose sur l'erreur elle-même.
Quelqu'un peut-il m'aider s'il vous plaît? Merci
wow! Merci pour le code. J'ai réussi à résoudre mon problème en créant un nouveau profil et en ne spécifiant que le compte que je voulais, donc le code fonctionne sur ce compte :) Merci – AntonioCS