-----------------------------------------------------
 -- Sucht Adressen an Hand einer EMail Adresse
 -- Suche in Anschrift und Ansprechpartner
 -- Gibt ein DataTable mit allen Treffer zurück
 -----------------------------------------------------
 Function SearchAddressByEMail(pEmail as String) as DataTable
 Begin
   Declare lData as DataTable
  
  DataTableAddColumn(lData, "AdrNr", "String")
   DataTableAddColumn(lData, "AnsNr", "Integer")
   DataTableAddColumn(lData, "AspNr", "Integer")
   DataTableAddColumn(lData, "EMail", "String")
   DataTableAddColumn(lData, "Tabelle", "String")
  
  FilterTableWildcardRange("Anschriften", "EMail1", pEmail)
   Loop("Anschriften")
     DataTableNewRow(lData, Anschriften.AdrNr, Anschriften.AnsNr, -1, Anschriften.EMail1, "Anschriften")
   EndLoop
  
  FilterTableWildcardRange("Ansprechpartner", "Sel1", pEmail)
   Loop("Ansprechpartner")
     DataTableNewRow(lData, Ansprechpartner.AdrNr, Ansprechpartner.AnsNr, Ansprechpartner.AspNr, Ansprechpartner.EMail1, "Ansprechpartner")
   EndLoop
  
  Return lData
 End

 
-------------------------------------------
 -- Schreibt einen Eintrag in ein Logfile
 -------------------------------------------
 Function LogMessage(pText as String)
 Begin
   Declare lLogFile as String
   Declare lLine as String
  
  lLogFile = "C:\Temp\TestLog.txt"
   lLine = StringFormat("{0:yyyy.MM.dd HH:mm:ss} > {1}{2}", Now, pText, cCrLf)
  
  FileWriteText(lLogFile, lLine, true)
 End