kann mir jemand sagen wie ich durch VBA automatisiert einen Ordner (mit mehreren Unterordnern) in Outlook anlegen kann. Bspw. soll der Makro immer Montags ausgeführt werden.
Vielen vielen Dank für Eure Vorschläge!
Gruß
Bueerns
Sub Datenübergabe_an_Outlook()
Dim myOlApp As New Outlook.Application
Dim myNS As Outlook.NameSpace
Dim myFolder As Outlook.MAPIFolder
Dim myContactFolder As Outlook.MAPIFolder
On Error GoTo PROC_Err
Set myNS = myOlApp.GetNamespace("MAPI")
Set myFolder = myNS.GetDefaultFolder(olFolderContacts)
Set myContactFolder = myFolder.Folders.Add("Neue Kontakte", olFolderContacts)
' Jetzt Daten übergeben
'sÜbergabeKontakte myContactFolder
PROC_Exit:
On Error Resume Next
Set myContactFolder = Nothing
Set myFolder = Nothing
Set myNS = Nothing
Set myOlApp = Nothing
Exit Sub
PROC_Err:
MsgBox Err.Number & ": " & Err.Description
Resume PROC_Exit
End Sub