Zugriff auf andere maibox in outlook mit vba

Ich habe zwei Postfächer in meinem Outlook.

Einen, der ist von mir und es meldet sich automatisch, mich in wenn ich mich Anmelde auf meinem pc und ein anderes ich habe, dass ist bei E-mail-bounces.

Ich wirklich brauchen, um Zugriff auf den Posteingang des E-mail-Konto, aber ich kann einfach nicht scheinen, es zu tun.

Und es gibt keinen Weg, ich kann das Postfach der E-mail-Konto mein Standard-Postfach

Hier ist der code, den ich bisher:

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

Dem problem bin ich immer auf der

Set aFolder = ns.GetSharedDefaultFolder(myRecipient, olFolderInbox)

Bekomme ich die msgbox Gelöst, so dass ich weiß, dass funktioniert, aber danach bekomme ich eine Fehlermeldung:

Run-Time Error

welche doesn T sagen viel über den Fehler selbst.

Kann mir jemand helfen hier bitte?
Dank

InformationsquelleAutor AntonioCS | 2009-03-11

  1. 3

    Wenn der Ordner, den Sie zugreifen möchten, nicht auf einem Exchange-Ordner, werden Sie brauchen, um es zu finden, wenn es einen Exchange-Ordner, versuchen Sie, sich anzumelden auf den namespace.

    Anmelden NameSpace

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

    Ordner Suchen
    Soweit ich mich erinnern kann, ist dieser code von 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!!! Vielen Dank für den code. Ich schaffte es zu lösen mein problem durch ein neues Profil anlegen und nur die Angabe der account, den ich wollte, also der code läuft auf diesem account 🙂 vielen Dank

    InformationsquelleAutor Fionnuala

Schreibe einen Kommentar