[color=green]' Datum/Zeit im MIME-kompatiblen Format
Private Function GetTimeStamp()
  Dim vDays As Variant
  Dim vMonths As Variant
 
  vDays = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")
  vMonths = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", _
    "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
 
  GetTimeStamp = vDays(Weekday(date, vbMonday) - 1) & ", " & _
    Day(date) & " " & vMonths(Month(date) - 1) & " " & Year(date) & " " & _
    Format(Now, "hh:mm:ss")
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de