Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Regel im Gruppenpostfach erstellen
zurück: Outlook-Formular ausführen PROBLEM!! weiter: Es gibt keine neueren Themen in diesem Forum. Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Dieterlem
Access-Neuling (aber ich gebe mir Mühe)


Verfasst am:
30. Apr 2014, 15:50
Rufname: Access-Neuling

Regel im Gruppenpostfach erstellen - Regel im Gruppenpostfach erstellen

Nach oben
       Version: Office 2007

Hallo VBA - Freunde,

ich versuche gerade eine Regel aus Access heraus per VBA in Outlook zu erstellen. dazu habe ich den unten aufgeführten Code programmiert. Dieser funktioniert soweit auch hervorragend mit meinem privaten Postfach.
Leider bekomme ich es nicht hin, eine Regel für das Gruppenpostfach zu erstellen.

Code:
Sub test()
CreateRule2 "SDE", "TASKERregel", "^^^"
End Sub

Sub CreateRule2(sZielOrdner As String, sRegelName As String, sSubjectText As String)
'-------------------------------------------------------------------
'szielOrdner = Ordnername in den die Mail verschoben werden soll
'sRegelName = bezeichnung der Regel
'sSubjectText = mit diesem string im Betreff
'-------------------------------------------------------------------
Dim olApp As New Outlook.Application    'outlook
Dim olNameSpace As Outlook.Namespace    'namespace
Dim olprivatlnbox As Outlook.MAPIFolder 'persoenliches postfach inbox
Dim olPrivatKonto As Object             'persoenliches postfach
Dim olBuroKonto As Object               'gruppenpostfach
Dim olBurolnbox As Object               'gruppenpostfach inbox
Dim olRules As Outlook.Rules
Dim olRule As Outlook.Rule
Dim olMoveRuleAction As Outlook.MoveOrCopyRuleAction
Dim olSpecificWordSubject As Outlook.TextRuleCondition
Dim olMoveTarget As Outlook.Folder      'zielordner in dem die mails verschoben werden sollen
'-------------------------------------------------------------------
On Error GoTo MACRO_ERROR

'Konten definieren ------------------------------------------------
Set olNameSpace = olApp.GetNamespace("MAPI ")
Set olprivatlnbox = olNameSpace.GetDefaultFolder(olFolderlnbox)
Set olPrivatKonto = olNameSpace.GetDefaultFolder(olFolderlnbox).Parent
Set olBuroKonto = olPrivatKonto.Parent.Folders("Abteilung@Firma.com")
Set olBurolnbox = olBuroKonto.Folders("inbox")

'zielordner definieren ----------------------------------------------
'Der ordner muss existieren
Set olMoveTarget = olPrivatlnbox.Folders(sZielOrdner)    'privat funktioniert
'Set olMoveTarget = olBurolnbox.Folders(sZielOrdner)     'buro funktioniert nicht

'Regel erstellen -----------------------------------------------------
Set olRules = olNameSpace.DefaultStore.GetRules()
Set olRule = olRules.Create(sRegelName, olRuleReceive) 'beim empfangen einer mail

'Einstellung: Mit bestimmten woertern im Betreff ---------------------
Set olSpecificWordSubject = olRule.Conditions.Subject
With olSpecificWordSubject
    .Enabled = True
    .Text = Array(sSubjectText)  'Array (sSubjectText, "abc ", "def" )
End With

'Einstellung: mail in Ordner verschieden ------------------------------
Set olMoveRuleAction = olRule.Actions.MoveToFolder
With olMoveRuleAction
    .Enabled = True
    .Folder = olMoveTarget
End With

olRules.Save    'Regel speichern

'Macro beenden --------------------------------------------------------
MACRO_EXIT:
On Error Resume Next
Set olApp = Nothing
Set olNameSpace = Nothing
Set olBuroInbox = Nothing
Set olBuroKonto = Nothing
Set olPrivatKonto = Nothing
Set olMoveTarget = Nothing
Set olRules = Nothing
Set olRule = Nothing
Set olSpecificWordSubject = Nothing
Set olMoveRuleAction = Nothing
Exit Sub

MACRO_ERROR:
MsgBox "An error occures in modul: " & Application.VBE.ActiveCodePane.CodeModule.Name & vbCrLf & _
"Error number: " & Err.Number & vbCrLf & "Describtion: " & Err.Description
Resume MACRO_EXIT

End Sub


Die Fehlermeldung kommt bei:
Code:
'Set olMoveTarget = olPrivatlnbox.Folders(sZielOrdner)    'privat funktioniert
Set olMoveTarget = olBurolnbox.Folders(sZielOrdner)     'buro funktioniert nicht



Zudem suche ich noch eine Lösung um herauszufinden, ob die Regel schon existiert.

Vielen Dank schon einmal für eure Hilfe.

Gruß
Dieterlem

_________________
Access Anfänger
Michael Bauer
MVP Outlook


Verfasst am:
30. Apr 2014, 16:21
Rufname:
Wohnort: Vollersode

AW: Regel im Gruppenpostfach erstellen - AW: Regel im Gruppenpostfach erstellen

Nach oben
       Version: Office 2007

Hallo,

Regeln können nur für den Standard-Store erstellt werden. Du müßtest ein zweites Profil erstellen, wo das Gruppenpostfach das Standardpostfach ist.

_________________
Michael Bauer
Tools für Microsoft Outlook
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Outlook Mail: Email-Vorlagen erstellen 5 Hans Neun 1594 04. Apr 2008, 13:22
Andreas.Fischer Email-Vorlagen erstellen
Keine neuen Beiträge Outlook Mail: Neue E-Mail lässt sich nicht erstellen in Office 2007- small 4 sweezer 883 15. Dez 2007, 01:32
sweezer Neue E-Mail lässt sich nicht erstellen in Office 2007- small
Keine neuen Beiträge Outlook Mail: Zeitplan für Regel 3 Geen 1506 22. Nov 2007, 08:55
Andreas.Fischer Zeitplan für Regel
Keine neuen Beiträge Outlook Mail: Regel greift nicht 5 Helgomat 1706 08. Jun 2007, 06:39
Andreas.Fischer Regel greift nicht
Keine neuen Beiträge Outlook Mail: Beim Formular erstellen klappt speichern nicht? 0 Gast 706 01. Feb 2007, 12:56
Gast Beim Formular erstellen klappt speichern nicht?
Keine neuen Beiträge Outlook Mail: outlook profile erstellen und woanders benutzen 2 Rechner674 3925 24. Jan 2007, 13:21
Rechner674 outlook profile erstellen und woanders benutzen
Keine neuen Beiträge Outlook Mail: Vorlage von Emails erstellen 5 galaxy 4635 19. Jan 2007, 10:24
Andreas.Fischer Vorlage von Emails erstellen
Keine neuen Beiträge Outlook Mail: Regel erstellen: automatischer E-Mail Versand 6 Gast1234 8072 27. Nov 2006, 13:32
Stefan1234 Regel erstellen: automatischer E-Mail Versand
Keine neuen Beiträge Outlook Mail: Outlook 2003. Erstellen einer 2ten lokalen Ablage 1 JeVer 2006 28. Jul 2006, 16:01
blauer Klaus Outlook 2003. Erstellen einer 2ten lokalen Ablage
Keine neuen Beiträge Outlook Mail: Outlook verschiebt Emails ohne Regel 2 mon 1615 28. Jun 2006, 12:29
Gast Outlook verschiebt Emails ohne Regel
Keine neuen Beiträge Outlook Mail: Outlook 2003 Regel erstellen 3 SamuiDidi 17658 27. Feb 2006, 12:59
nagra Outlook 2003 Regel erstellen
Keine neuen Beiträge Outlook Mail: Regel, damit Antwortmail mit Anlage automatisch rausgeht? 5 landau666 4016 11. Sep 2005, 16:44
wolf-it Regel, damit Antwortmail mit Anlage automatisch rausgeht?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: JavaScript