Hallo zusammen,
ich habe eine Frage zu Outlook Programmierung. Vielleicht kann mir jemand weiterhelfen.
Also ich habe diesen Code:
Dim FSO As Object
Dim ChosenFolder As Object
Dim myOlApp As Outlook.Application
Dim iNameSpace As NameSpace
Set FSO = CreateObject("Scripting.Filesystemobject")
Set myOlApp = Outlook.Application
Set iNameSpace = myOlApp.GetNamespace("MAPI")
Set ChosenFolder = iNameSpace.PickFolder
If ChosenFolder Is Nothing Then
MsgBox ("Sie haben keinen Ordner ausgewählt!")
End If
Mit dem kann ich einen Ordner im Outlook auswählen!
Jetzt komme ich zu meinem Problem.
Früher hab ich einen Standardordner zur Auswahl gehabt.
Set ns = GetNamespace("Mapi")
Set Inbox = ns.GetDefaultFolder(olFolderInbox)
Set SubFolder = Inbox.Folders("Test")
i = 0
Mein Ziel ist es, jetzt nicht mehr diesen Standardordner zu nehmen sondern eine Auswahl zu treffen.
Wie übergebe ich meine Auswahl?
Ich hoffe Ihr habt mein Problem verstanden!
Ich danke euch im Voraus!
Bis dann Abdel