' Und den HTTPHeader, der die Einleitung für die Nachricht gibt
  HTTPHeader = "HTTP/1.1 OK" & vbCrLf & _
    "Date: " & Tag & ", " & DatePart("d", Date) & " " & _
    MonthName(DatePart("m", Date), True) & " " & _
    DatePart("yyyy", Date) & " " & Time & vbCrLf & _
    "Accept-Ranges: bytes" & vbCrLf & _
    "Content-Length: " & Len(Message) & vbCrLf & _
    "Connection: Keep-Alive" & vbCrLf & _
    "Content-Type: text/html" & vbCrLf & vbCrLf