Private Function EMailSenden(From As String, Recipients As String, Subject As _
  String, Body As String) As Boolean
   On Error GoTo Fehler
   EMailSenden = False
   Dim objMessage
   Set objMessage = CreateObject("CDO.Message")
   If Not objMessage Is Nothing Then
      objMessage.Subject = Subject
      objMessage.From = From
      objMessage.To = Recipients
      objMessage.TextBody = Body
      objMessage.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
      objMessage.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
            SMTPSERVER
      objMessage.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = _
            25
      objMessage.Configuration.Fields.Update
      objMessage.Send
      EMailSenden = True
      Set objMessage = Nothing
   End If
   Exit Function
Fehler:
   EMailSenden = False
   Exit Function
End Function