Marius,

it is a good thing that you identified Lindsay as the author of the above script, which gives me a chance to comment on it while being in a better position. I guess I might re-use the whole concept in the future.

If having multiple instances of Outlook is a concern, this is caused by using "AppSwapWith" in the first line of the code which came in by looking at the script that you provided from the start. So where is the problem with it?

Rüdiger

OHHH my, I am so terribly sorry, Rüdiger & Lindsay! MEA MAXIMA CULPA. Please forgive me, I will never post anything again.

One last thing, Rüdiger: The "AppSwap" Command is not the culprit (not if an Outlook window was already open).

Marius

Sorry, Marius, you are right, but the fault was with Lindsay obviously. I think I will go back to wrapping my legs around my neck, and post back if and only if I can come up with a working solution.

Rüdiger

So, das funktioniert jetzt aber wie von Marius gefordert, sofern Outlook bereits gestartet ist:

Sub Main
 
AppSwapWith("Outlook")
 
Dim myNamespace As Outlook.NameSpace
Dim myExp As Outlook.Explorer
 
Set myNamespace = Application.GetNamespace("MAPI")
Set myExp = Application.ActiveExplorer
Set myExp.CurrentFolder = myNamespace.GetDefaultFolder(olFolderSentMail)
 
Set myExp = Nothing
Set myNamespace = Nothing
 
End Sub
 
 

Und hier noch die Variante mit einem Listenbefehl, wobei die Liste die Elemente "Ausgang, Eingang, Kalender" umfasst:

Sub Main
 
    AppSwapWith("Outlook")
 
    Dim myNamespace As Outlook.NameSpace
    Dim myExp As Outlook.Explorer
 
    Set myNamespace = Application.GetNamespace("MAPI")
    Set myExp = Application.ActiveExplorer
 
    Select Case ListVar1
        Case "Eingang"
        Set myExp.CurrentFolder = myNamespace.GetDefaultFolder(olFolderInbox)
        Case "Ausgang"
        Set myExp.CurrentFolder = myNamespace.GetDefaultFolder(olFolderSentMail)
        Case "Kalender"
        Set myExp.CurrentFolder = myNamespace.GetDefaultFolder(olFolderCalendar)
    End Select
 
    Set myExp = Nothing
    Set myNamespace = Nothing
 
End Sub
 
 

Toll, toll, toll, vielen Dank für die Erfüllung der "Forderungen" - ich bin begeistert!

Es klappt übrigens auch z. B. mit weiteren Case-Zeilen für die Ordner Entwürfe und Journal wie folgt (alles natürlich nur, wenn der Befehlsname entsprechende Listeneinträge enthält und die Outlook-Bibliothek der jeweiligen Version eingebunden ist).

Case "Entwürfe"
Set myExp.CurrentFolder = myNamespace.GetDefaultFolder(olFolderDrafts)
Case "Journal"
Set myExp.CurrentFolder = myNamespace.GetDefaultFolder(olFolderJournal)


Dankbare Grüße, Marius Raabe