StartDownloadsServiceBeispieleWorkshopsKontakt DeutschEnglish
 
Beispiele
Allgemein
Outlook®
 
Awarded by
Microsoft since 2005:
mvp logo
VBOffice Info
Besucher1644082
Aufrufe6222919
Links
Impressum
Datenschutz
Kontakt
Sonstiges: Laufende Nummer erzeugen
Autor: Michael BauerHomepage
Datum: 20.01.2006Zugriffe: 24778
  
Beschreibung

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.

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
 
 

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]

So entgeht Ihnen kein Auftrag mehr:
Telefonservice und Sekretariatsservice