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: 28.720  | #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
SAM SAM
Mit SAM legen Sie fest, über welches Konto oder mit welchem Absender eine Email gesendet wird und wo diese anschließend gespeichert werden soll.
email  Senden Sie eine Nachricht