| | Awarded by
Microsoft since 2005: |  |
| | VBOffice Info | | Besucher | 1409125 | | Aufrufe | 5189306 |
| |
|
| |
| Autor: Michael Bauer | Homepage | | Datum: 23.09.2009 | Zugriffe: 12913 | | | | Beschreibung
Die Info, mit welchem Formular Outlook ein Element anzeigt, ist in der Eigenschaft 'MessageClass' jedes Elements gespeichert. Darum reicht es nicht, einem Ordner ein neues Formular zuzuweisen; alte Elemente werden weiterhin mit dem alten Formular angezeigt.
Mit folgendem Makro können Sie diesen Wert für alle Elemente des aktuellen Ordners ändern. Als neuen Wert müssen Sie den Namen des gewünschten Formulars eingeben. Der Name des Standardformulars z.B. für E-Mails lautet 'IPM.Note'. Ihre Erweiterung könnte dann z.B. 'IPM.Note.MeinFormular' heißen.
Nachdem Sie das Makro ins Modul 'DieseOutlookSitzung' kopiert haben, kann es einfach mit alt+f8 aufgerufen werden. |
Public Sub ChangeMessageClassForFolderItems()
Dim Items As Outlook.Items
Dim obj As Object
Dim OldClass$
Dim NewClass$
Dim i&
Set Items = Application.ActiveExplorer.CurrentFolder.Items
If Items.Count > 1 Then
OldClass = Items(1).MessageClass
NewClass = InputBox("Change MessageClass property of all items to: " _
, "Change MessageClass", OldClass)
If NewClass = "" Or LCase$(NewClass) = LCase$(OldClass) Then
Exit Sub
End If
For i = 1 To Items.Count
Set obj = Items(i)
obj.MessageClass = NewClass
obj.Save
Next
End If
End Sub
|
| | |
| | |  | ReplyAll warnt Sie, bevor Sie unbeabsichtigt allen Empfängern
einer E-Mail antworten oder wenn Sie ein vertraulicher BCC-Empfänger der E-Mail ... [weiter] |
| | |  | Blitzschneller Zugriff auf die Hauptkategorienliste, gemeinsame Kategorien im Netzwerk, eine Erinnerungsfunktion ... [weiter] |
| | |  | SAM legt automatisch Absender, Signatur und Speicherort für gesendete Mails fest, z.B. anhand der ... [weiter] |
| | |  | OLKeeper verhindert zuverlässig, dass Mitarbeiter Outlook schließen und dadurch Termine oder E-Mails ... [weiter] |
| | |
|
