<code> Emma, Hej hej Emma, Tycker den se lite skum ut ska det inte vara: Helt rätt Andreas =)Outlook - byt mailbox - LÖST!
Hej
Jag ska leta igenom de postlådor/mailboxar som finns inlagda i Outlook.
Jag har inga som helst problem med att söka igenom den inloggades
mailbox, problemet kommer när jag ska byta och söka igenom den
andra mailboxen i Outlook.
Jag har testat nedanstående:
Dim myNameSpace As NameSpace
Set myNameSpace = myOlApp.GetNamespace("Mailbox2")
Set myNameSpace = myOlApp.GetNamespace("MAPI").Folders("Mailbox2")
/Emma
</code>Sv: Outlook - byt mailbox
<code>
Sub TestaDennaKod()
Set myNameSpace = Application.GetNameSpace("MAPI")
for i = 1 to 2
set objFolder = myNameSpace("Mailbox" & i)
set colFolders = objfolder.Folders
Msgbox colFolders.Count & " " & objFolder.Name
next i
End Sub
</code>
Har ej haft tid att testa utan skrivit direkt ur minnet. Förhoppningsvis kan det ge dig en start :-)
Mvh
XL-DennisSv: Outlook - byt mailbox - Lösning
Tack för knuffen i rätt riktning XL. det var inte riktigt så men nästan. =)
Min kod blev så här:
<code>
Sub testa2(myOlApp As Outlook.Application, wild As String)
Dim myNameSpace As NameSpace
Dim myFolders As Folders
Dim folder As MAPIFolder, mapp As MAPIFolder
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myFolders = myNameSpace.Folders
'går igenom de foldrar som finns
For Each mapp In myFolders
If InStr(1, myFolders(i).Name, "Namn på mailbox", vbTextCompare) <> 0 Then
Set folder = mapp
End If
Next
'Gå igenom de subfoldrar som finns i den mailboxen
For Each mapp In folder.Folders
'sök igenom foldern efter filer med extension wild
Call SearchInFolder(mapp, wild)
Next
MsgBox "You are " & myNameSpace.CurrentUser & " at " & folder.Name
End Sub
</code>
/EmmaSv: Outlook - byt mailbox - Lösning
Tack för att du presenterar lösningen i sin helhet och att du kunde av egen kraft ta dig i "mål" :-)
Alltid lika roligt att få denna typ av feedback!
Mvh
XL-DennisSv: Outlook - byt mailbox - Lösning
<code>
For Each mapp In myFolders
If InStr(1, mapp.Name, "Namn på mailbox", vbTextCompare) <> 0 Then
Set folder = mapp
Exit For
End If
Next
</code>Sv: Outlook - byt mailbox - Lösning
Fast det förståss... en metod som tom heter test2(..) är inte helt klar...
Var mest avsedd att testa och se att det fungerade - men tack för ditt
påpekande, alltid lika intressant att se om du är vaken... ;)
/E