Outlook Ordner per VBA anlegen

Forumthread: Outlook Ordner per VBA anlegen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Outlook Ordner per VBA anlegen

30.03.2005 16:47:42

Bueerns

Hi zusammen,
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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Outlook Ordner per VBA anlegen

30.03.2005 18:54:54

Frank
wuohaaa, Danke Frank. O.T.

30.03.2005 19:16:36

Bueerns

AW: Outlook Ordner per VBA anlegen

30.03.2005 18:54:54

Frank

Hallo Bueerns,
anbei ein grobes Gerüst für Deine Aufgabe:


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

Viel Erfolg
Frank.

wuohaaa, Danke Frank. O.T.

30.03.2005 19:16:36

Bueerns