Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
592to596
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Outlook Ordner per VBA anlegen

Outlook Ordner per VBA anlegen
30.03.2005 14: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
Anzeige
AW: Outlook Ordner per VBA anlegen
30.03.2005 16: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.
Anzeige
wuohaaa, Danke Frank. O.T.
30.03.2005 17:16:36
Bueerns
.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige