L'accès à un autre maibox dans outlook à l'aide de vba

J'ai deux boîtes aux lettres dans mon Outlook.

L'un qui est le mien et il se connecte automatiquement à moi lorsque je me connecte à mon pc et un autre que j'ai c'est pour le courrier rebondit.

J'ai vraiment besoin d'accéder à la boîte de réception de l'e-mail du compte mais je n'arrive pas à le faire.

Et il n'y a aucun moyen que je peux faire de la boîte de réception du compte de messagerie à ma boîte aux lettres par défaut

Voici le code que j'ai pour l'instant:

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 à la

Set aFolder = ns.GetSharedDefaultFolder(myRecipient, olFolderInbox)

- Je obtenir de l'Résolu msgbox donc je sais que c'est un travail, mais après que j'obtiens une erreur:

Erreur D'Exécution

ce qui ne veut pas dire grand-chose au sujet de l'erreur elle-même.

Quelqu'un peut-il m'aider s'il vous plaît ici?
Grâce

OriginalL'auteur AntonioCS | 2009-03-11

  1. 3

    Si le dossier auquel vous souhaitez accéder n'est pas un dossier d'Échange, vous aurez besoin de la trouver, si c'est un Échange au dossier, essayez de vous connecter à l'espace de noms.

    Connecter à l'espace de Noms

      Set oNS = oApp.GetNamespace("MAPI")
  oNS.Logon

    Trouvez Le Dossier
    Autant que je me souvienne, ce code est à partir de Sue Mosher.

    Public Function GetFolder(strFolderPath As String) As Object 'MAPIFolder
' strFolderPath needs to be something like
'   "Public Folders\All Public Folders\Company\Sales" or
'   "Personal Folders\Inbox\My Folder" ''

Dim apOL As Object 'Outlook.Application '
Dim objNS As Object 'Outlook.NameSpace '
Dim colFolders As Object 'Outlook.Folders '
Dim objFolder As Object 'Outlook.MAPIFolder '
Dim arrFolders() As String
Dim I As Long

On Error GoTo TrapError

    strFolderPath = Replace(strFolderPath, "/", "\") 
    arrFolders() = Split(strFolderPath, "\")

    Set apOL = CreateObject("Outlook.Application")
    Set objNS = apOL.GetNamespace("MAPI")


    On Error Resume Next

    Set objFolder = objNS.Folders.Item(arrFolders(0))

    If Not objFolder Is Nothing Then
        For I = 1 To UBound(arrFolders)
            Set colFolders = objFolder.Folders
            Set objFolder = Nothing
            Set objFolder = colFolders.Item(arrFolders(I))

            If objFolder Is Nothing Then
                Exit For
            End If
        Next
    End If

    Set GetFolder = objFolder
    Set colFolders = Nothing
    Set objNS = Nothing
    Set apOL = Nothing


End Function
    wow! Merci pour le code. J'ai réussi à résoudre mon problème en créant un nouveau profil et en précisant que le compte que je voulais, de sorte que le code s'exécute sur ce compte 🙂 Merci

    OriginalL'auteur Fionnuala