Outlook 2010 VBA-Makro zum Öffnen eines Formulars im Öffentlichen Ordner
Hallo zusammen,
Ich habe zu Outlook 2010 und VBA eine Frage.
Aufgabe:
Ich sollte in Outlook ein Formular erstellen, welches für Reiseanträge genutzt werden soll.
Das Form liegt, damit es für alle erreichbar ist, im Public-Folder in einem Unterordner
Dieses Form sollte am besten über einen Button erreichbar sein.
Ich habe hierfür ein Makro erstellt und dieses über ein Icon schon im Menüband abgelegt.
Hier der Code für dieses Makro:
Mein Problem ist hier nur, dass ich beim Aufrufen Schreibberechtigung auf den Ordner brauche (liegt wohl am "myfolder.Items.Add"). Diese Schreibrechte möchte ich nur ungern erteilen.
Ich muss hierzu leider sagen, dass ich nicht wirklich fit in VBA bin und mir den Code durch Beispiele und Tests "zusammengebastelt" habe. Das frickeligste war den Pfad zu finden, da der Öffentliche Ordner für jeden Benutzer anders heißt, weil der Postfachname von jedem dahinter steht (daher das "Outlook.Session.DefaultStore")
Daher die Fragen:
1.) Wie kann ich das Form direkt aufrufen, ohne Schreibrechte zu erteilen bzw. ein neue Item zu erzeugen?
2.) Gibt es auch direktere "feste" Links auf den Öffentlichen Ordner? (der Code von mir funktioniert ja leider nur für deutsche Outlook-Versionen bzw. deutsche Postfächer)
3.) Ist es alternativ möglich per VBA den "Formular auswählen"-Befehl zu ausführen, dass er automatisch in den Unterdner des Öffentlichen Ordners springt?
Danke im Voraus.
Ich habe zu Outlook 2010 und VBA eine Frage.
Aufgabe:
Ich sollte in Outlook ein Formular erstellen, welches für Reiseanträge genutzt werden soll.
Das Form liegt, damit es für alle erreichbar ist, im Public-Folder in einem Unterordner
Dieses Form sollte am besten über einen Button erreichbar sein.
Ich habe hierfür ein Makro erstellt und dieses über ein Icon schon im Menüband abgelegt.
Hier der Code für dieses Makro:
Sub DisplayForm()
publicFolder = "Öffentliche Ordner - " & Outlook.Session.DefaultStore
Set myfolder = Session.Folders(publicFolder).Folders("Alle Öffentlichen Ordner").Folders("Formulare")
Set myItem = myfolder.Items.Add("IPM.Note.Reiseantrag")
myItem.Display
End SubMein Problem ist hier nur, dass ich beim Aufrufen Schreibberechtigung auf den Ordner brauche (liegt wohl am "myfolder.Items.Add"). Diese Schreibrechte möchte ich nur ungern erteilen.
Ich muss hierzu leider sagen, dass ich nicht wirklich fit in VBA bin und mir den Code durch Beispiele und Tests "zusammengebastelt" habe. Das frickeligste war den Pfad zu finden, da der Öffentliche Ordner für jeden Benutzer anders heißt, weil der Postfachname von jedem dahinter steht (daher das "Outlook.Session.DefaultStore")
Daher die Fragen:
1.) Wie kann ich das Form direkt aufrufen, ohne Schreibrechte zu erteilen bzw. ein neue Item zu erzeugen?
2.) Gibt es auch direktere "feste" Links auf den Öffentlichen Ordner? (der Code von mir funktioniert ja leider nur für deutsche Outlook-Versionen bzw. deutsche Postfächer)
3.) Ist es alternativ möglich per VBA den "Formular auswählen"-Befehl zu ausführen, dass er automatisch in den Unterdner des Öffentlichen Ordners springt?
Danke im Voraus.
Kommentieren
Teilen
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 184490
Url: https://administrator.de/forum/outlook-2010-vba-makro-zum-oeffnen-eines-formulars-im-oeffentlichen-ordner-184490.html
Ausgedruckt am: 12.05.2025 um 10:05 Uhr
2 Kommentare
Neuester Kommentar
Moin Moin,
dir ist klar, dass du hier ein Notiz-Formular hinzufügen willst?
Grüße aus Rostock
Wolfgang
(Netwolf)
dir ist klar, dass du hier ein Notiz-Formular hinzufügen willst?
Set myItem = myfolder.Items.Add("IPM.Note.Reiseantrag")
1.) Wie kann ich das Form direkt aufrufen, ohne Schreibrechte zu erteilen bzw. ein neue Item zu erzeugen?
kommt auf deinen Exchange-Server an. Lies bitte hier2.) Gibt es auch direktere "feste" Links auf den Öffentlichen Ordner?
man kann jeden öffentlichen Ordner zu den Favoriten hinzufügen (somit hätte man einen direkten "Link")3.) Ist es alternativ möglich per VBA den "Formular auswählen"-Befehl zu ausführen, dass er automatisch
in den Unterdner des Öffentlichen Ordners springt?
wenn du im Exchange-Server einen Public Folder Store angelegt hast, ist das eigentlich nicht mehr nötig.in den Unterdner des Öffentlichen Ordners springt?
Grüße aus Rostock
Wolfgang
(Netwolf)
Hallo Wolfgang,
erst einmal vielen Dank für die Antwort.
Sorry hatte vergessen zu erwähnen, dass es sich hierbei um einen Exchange 2010 handelt.
Das Formular habe ich ja schon erstellt und im Public Folder veröffentlicht.
Das
habe ich nur eingefügt, weil mit beim Öffnen des Formulars angezeigt wird, dass es aus der Klasse IPM.Note ist.
Das Formular heißt ja Reiseantrag und wurde ja so bereits veröffentlicht.
Ich konnte das Formular halt so aufrufen. Ich weiß dass hier mein Problem liegt und ich ein neues Formular anlegen will (Sieht man ja aus dem "ADD").
Daher die Frage: Gibt es eine Funktion, um bereits existierende Elemente einfach aufzurufen? Das würde mir schon helfen.
zu 2.) Das war in der Hinsicht gefragt für programmiertechnische Zwecke. Ich möchte halt in meinem Code das hier vermeiden, da es auf ein deutsches Postfach begrenzt ist und ich demnächst auch englische Postfächer betreuen muss:
Wie ich über Favoriten einen Link zum Public Folder hinbekomme weiß ich ja, aber es geht mich um eine Variable, damit ich sprachunabhhängig darauf zugreifen kann.
Leider hat der Exchange 2010 die Angewohnheit in der jeweiligen Session dem Public Fodler noch den Postfachnamen des Users anzuhängen und den Folder "namentlich" der Postfach-Sprache noch anpasst.
3.) Das mit dem Public FolderStore muss ich mich nochmal genauer ansehen.
Erst mal vielen Dank für die Tipps. Ich werde mich melden, sobald ich neue Erkenntnisse oder Ergebnisse habe.
Cheers Giovanni
erst einmal vielen Dank für die Antwort.
Sorry hatte vergessen zu erwähnen, dass es sich hierbei um einen Exchange 2010 handelt.
Das Formular habe ich ja schon erstellt und im Public Folder veröffentlicht.
Das
Set myItem = myfolder.Items.Add("IPM.Note.Reiseantrag") habe ich nur eingefügt, weil mit beim Öffnen des Formulars angezeigt wird, dass es aus der Klasse IPM.Note ist.
Das Formular heißt ja Reiseantrag und wurde ja so bereits veröffentlicht.
Ich konnte das Formular halt so aufrufen. Ich weiß dass hier mein Problem liegt und ich ein neues Formular anlegen will (Sieht man ja aus dem "ADD").
Daher die Frage: Gibt es eine Funktion, um bereits existierende Elemente einfach aufzurufen? Das würde mir schon helfen.
zu 2.) Das war in der Hinsicht gefragt für programmiertechnische Zwecke. Ich möchte halt in meinem Code das hier vermeiden, da es auf ein deutsches Postfach begrenzt ist und ich demnächst auch englische Postfächer betreuen muss:
publicFolder = "Öffentliche Ordner - " & Outlook.Session.DefaultStore
Set myfolder = Session.Folders(publicFolder).Folders("Alle Öffentlichen Ordner").Folders("Formulare") Wie ich über Favoriten einen Link zum Public Folder hinbekomme weiß ich ja, aber es geht mich um eine Variable, damit ich sprachunabhhängig darauf zugreifen kann.
Leider hat der Exchange 2010 die Angewohnheit in der jeweiligen Session dem Public Fodler noch den Postfachnamen des Users anzuhängen und den Folder "namentlich" der Postfach-Sprache noch anpasst.
3.) Das mit dem Public FolderStore muss ich mich nochmal genauer ansehen.
Erst mal vielen Dank für die Tipps. Ich werde mich melden, sobald ich neue Erkenntnisse oder Ergebnisse habe.
Cheers Giovanni
