VBOffice

Anzahl der Anlagen anzeigen

Im Posteingang sehen Sie, ob eine Email Anlagen hat, es gibt aber keine Möglichkeit zu sehen, wie viele Anlagen es sind. Dieses Makro fügt die Anzahl der Anlagen jeder eingehenden Email hinzu.

Zuletzt geändert: 06.06.2015 | Aufrufe: 33.185  | #148
◀ Vorheriges Beispiel Nächstes Beispiel ▶
SAM SAM
Legen Sie fest, mit welcher "Identität" Ihre Emails beim Empfänger erscheinen sollen. Mit SAM bestimmen Sie den Absender und Speicherort für Emails anhand von Regeln.

Fügen Sie den Code ins Modul DieseOutlookSitzung ein und starten Sie Outlook dann neu. Nachdem die erste Email empfangen wurde, während das Makro lief, können Sie das neue Feld 'AnzahlAnlagen' der Ordneransicht hinzufügen (über Ansicht anpassen/Felder).


tip  So fügen Sie Makros in Outlook ein
Private WithEvents m_Items As Outlook.Items

Private Sub Application_Startup()
  Set m_Items = Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub m_Items_ItemAdd(ByVal Item As Object)
  Dim Atts As Outlook.Attachments
  Dim Props As Outlook.UserProperties
  Dim Prop As Outlook.UserProperty
  Dim PropName As String
  
  PropName = "AnzahlAnlagen"
  
  Set Atts = Item.Attachments
  Set Props = Item.UserProperties
  Set Prop = Props.Find(PropName, True)
  If Prop Is Nothing Then
    Set Prop = Props.Add(PropName, olText, True)
  End If
  Prop.Value = Atts.Count
  Item.Save
End Sub
Category-Manager Category-Manager
Mit dem Category-Manager können Sie Outlook Kategorien gruppieren, synchronisieren und filtern, neuen Emails automatisch die Kategorie des Absenders zuweisen und vieles mehr. Das Addin ist auch für IMAP geeignet.
email  Senden Sie eine Nachricht