Regel im Gruppenpostfach erstellen
|
Autor |
Nachricht |
Dieterlem
Access-Neuling (aber ich gebe mir Mühe)
Verfasst am: 30. Apr 2014, 15:50 Rufname: Access-Neuling
|
|
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
|
|
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
|
|
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 |
 |
Outlook Mail: Email-Vorlagen erstellen |
5 |
Hans Neun |
1594 |
04. Apr 2008, 13:22 Andreas.Fischer  |
 |
Outlook Mail: Neue E-Mail lässt sich nicht erstellen in Office 2007- small |
4 |
sweezer |
883 |
15. Dez 2007, 01:32 sweezer  |
 |
Outlook Mail: Zeitplan für Regel |
3 |
Geen |
1506 |
22. Nov 2007, 08:55 Andreas.Fischer  |
 |
Outlook Mail: Regel greift nicht |
5 |
Helgomat |
1706 |
08. Jun 2007, 06:39 Andreas.Fischer  |
 |
Outlook Mail: Beim Formular erstellen klappt speichern nicht? |
0 |
Gast |
706 |
01. Feb 2007, 12:56 Gast  |
 |
Outlook Mail: outlook profile erstellen und woanders benutzen |
2 |
Rechner674 |
3925 |
24. Jan 2007, 13:21 Rechner674  |
 |
Outlook Mail: Vorlage von Emails erstellen |
5 |
galaxy |
4635 |
19. Jan 2007, 10:24 Andreas.Fischer  |
 |
Outlook Mail: Regel erstellen: automatischer E-Mail Versand |
6 |
Gast1234 |
8072 |
27. Nov 2006, 13:32 Stefan1234  |
 |
Outlook Mail: Outlook 2003. Erstellen einer 2ten lokalen Ablage |
1 |
JeVer |
2006 |
28. Jul 2006, 16:01 blauer Klaus  |
 |
Outlook Mail: Outlook verschiebt Emails ohne Regel |
2 |
mon |
1615 |
28. Jun 2006, 12:29 Gast  |
 |
Outlook Mail: Outlook 2003 Regel erstellen |
3 |
SamuiDidi |
17658 |
27. Feb 2006, 12:59 nagra  |
 |
Outlook Mail: Regel, damit Antwortmail mit Anlage automatisch rausgeht? |
5 |
landau666 |
4016 |
11. Sep 2005, 16:44 wolf-it  |
|
|