Hilfloser Erstellt am 12 Juli, 2021
Excel 2016 -> VBA -> Outlook-Ordner mit Namen aus Zellen erstellen
Hallo zusammen,
ich arbeite mit drei Postfächer (1,2,3) und möchte aus Excel Ordner im Posteingang des Postfachs 2 in einem Unterordner erstellen.
Anforderung:
Der Ordner soll in der Ebene -> "Posteingang ->03 Ticketssystem -> 01 Tickets" erstellt werden.
Der Ordner-Name ergibt sich aus Zellen-Inhalten (Ticketnummer und Thema, z.B. 099 Testsystem)
Bisherige Code-Schnipsel:
Option Explicit
Sub So()
Dim objNewFolder As Object
Dim objFolder As Object
Dim objOutApp As Object
Dim objName As Object
On Error GoTo Fin
Set objOutApp = CreateObject("Outlook.Application")
Set objName = objOutApp.GetNamespace("MAPI")
' 6 = olFolderInbox
Set objFolder = objName.GetDefaultFolder(6)
Set objNewFolder = objFolder.Folders.Add("Test")
Fin:
If Err.Number 0 Then MsgBox "Fehler: " & _
Err.Number & " " & Err.Description
Set objNewFolder = Nothing
Set objFolder = Nothing
Set objName = Nothing
Set objOutApp = Nothing
End Sub