Öffentlichen Ordner per VBA erstellen

26/02/2008 - 16:30 von Patrick Pohlmann | Report spam
Hallo Zusammen,

gibt es eine Möglichkeit einen Öffentlichen Ordner per VBA zu erstellen?

Ich habe schon so einiges ausprobiert und gegoogeld, aber bin bisher nicht
weiter gekommen.

Ich wollte es so machen:

Function CreatePublicFolder(strUnterordner As Variant, strOrdner As String)

Dim myOlApp As Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myFolder As Outlook.MAPIFolder

Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.Folders("Öffentliche Ordner")
If Not IsNull(strUnterordner) Then
Set myFolder = myFolder.Folders(strUnterordner)
End If

Set myNewFolder = myFolder.Folders.Add(strOrdner)


Aber das klappt nicht.

Für Hilfe wàre ich dankbar.

Grüße

Patrick!
 

Lesen sie die antworten

#1 Josef Zins
26/02/2008 - 19:43 | Warnen spam
26.02.2008 16:30, Patrick Pohlmann schrieb:
Hallo Zusammen,

gibt es eine Möglichkeit einen Öffentlichen Ordner per VBA zu erstellen?

Ich habe schon so einiges ausprobiert und gegoogeld, aber bin bisher
nicht weiter gekommen.

Ich wollte es so machen:

Function CreatePublicFolder(strUnterordner As Variant, strOrdner As String)

Dim myOlApp As Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myFolder As Outlook.MAPIFolder

Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.Folders("Öffentliche Ordner")
If Not IsNull(strUnterordner) Then
Set myFolder = myFolder.Folders(strUnterordner)
End If

Set myNewFolder = myFolder.Folders.Add(strOrdner)


Aber das klappt nicht.

Für Hilfe wàre ich dankbar.

Grüße

Patrick!


Hallo
probiers mal damit

Public Function AddPublicContactsFolder(strFolder As String) As Boolean
On Error GoTo Err_AddPublicContactsFolder_Click

Dim myOlApp As New Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim myFolderParent As Outlook.MAPIFolder
Dim myNewFolder As Outlook.MAPIFolder

Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myFolderParent = myNamespace.Folders("Öffentliche Ordner")
Set myFolderParent = myFolderParent.Folders("Alle Öffentlichen Ordner")
Set myFolderParent = myFolderParent.Folders("usw")

Set myNewFolder = myFolderParent.Folders.Add(strFolder)
AddPublicContactsFolder = True

Exit_AddPublicContactsFolder_Click:
Exit Function

Err_AddPublicContactsFolder_Click:
AddPublicContactsFolder = False
Resume Exit_AddPublicContactsFolder_Click

End Function

Funktioniert bei mir tadellos
Noch ein sehr hilfreicher Link mit sehr vielen Beispielcodes (allerdings
Englisch):
http://www.outlookcode.com/

Grüsse
Josef Zins



Teile dein Wissen mit anderen. Dies ist eine gute Möglichkeit,
Unsterblichkeit zu erlangen (Dalai Lama)

Ähnliche fragen