VBOffice

Fortlaufende Nummer erzeugen

So erstellen Sie einen Index, um z.B. Emails oder Aufgaben fortlaufend zu numerieren.

Zuletzt geändert: 20.01.2006 | Aufrufe: 30.657  | #15
◀ Vorheriges Beispiel Nächstes Beispiel ▶
ReplyAll ReplyAll
Mit diesem Plugin erhalten Sie in verschiedenen Situationen eine Warnung, bevor Sie auf eine Email versehentlich allen anderen Empfängern antworten.

Dieses Beispiel erzeugt eine fortlaufende Nummer und speichert diese in einer einfachen Textdatei. In dieser einfachen Variante muss der Pfad zur Datei bereits existieren; die Datei selbst wird bei Bedarf automatisch angelegt.


tip  So fügen Sie Makros in Outlook ein
Public Function GetNextID() As Long
  Dim lCurrID As Long
  Dim File As String

  File = "C:\Sample.txt"
  lCurrID = Val(ReadFile(File))
  lCurrID = lCurrID + 1
  WriteFile File, CStr(lCurrID), False
  GetNextID = lCurrID
End Function
Category-Manager Category-Manager
Mit dem Category-Manager erhalten Sie blitzschnellen Zugriff auf die Hauptkategorienliste in Microsoft Outlook, verwalten diese und können Ihre Farbkategorien auf mehreren Computern nutzen.
email  Senden Sie eine Nachricht