Fortlaufende Nummer erzeugen

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.

  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