Imports System.Web.Mail
 
...
 
    Public Sub ErrorMail(ByVal FormularOderKlassenName As String, ByVal _
      Benutzernumer As String, ByVal SubOderFunktionsName As String, ByVal _
      Zusatzinfo As String, ByVal FehlerBoxAnzeigen As Boolean, ByVal _
      FehlermeldungInFehlerBoxAnzeigen As Boolean, ByVal _
      ZusatzinfoInFehlerBoxAnzeigen As Boolean, ByVal PlaySound As Boolean)
        Dim oMail As New System.Web.Mail.MailMessage() _
        'System.Net.Mail.MailMessage  '
        Dim BodyString As String = ""
 
        SmtpMail.SmtpServer = "mailto.DeinServer.de" ':3025  
 
        BodyString = "<font face='Tahoma'size='3' color='Navy'>CUP" & _
          "Fehlerbericht</font><font face='Tahoma' size='2' color='Black'><p><p>"
        BodyString = BodyString & "Formular bzw. Klassenname : " & _
        FormularOderKlassenName & "<p>"
        BodyString = BodyString & "Sub oder Funktionsname : " & _
        SubOderFunktionsName & "<p>"
        BodyString = BodyString & "Benutzernumer : " & Benutzernumer & "<p>"
        BodyString = BodyString & "Fehlertyp : "
        BodyString = BodyString & "FehlerSource : "
        BodyString = BodyString & "Zusatzinfo : " & Zusatzinfo & "<p><p>"
        BodyString = BodyString & "Datum / Zeit : " & Now.ToString & "<p><p>"
        BodyString = BodyString & "Fehlermeldung : "
 
        With oMail
            .BodyFormat = MailFormat.Html
            ' Absender
            .From = "info@info.net"
 
            ' Empfänger
            .To =  "info@info.net"
 
            ' Betreff
            .Subject = "CUP Fehlermeldung"
 
            ' Nachricht
            .Body = BodyString
 
            ' Anlagen übergeben
            ' .Attachments.Add(New MailAttachment("Dateiname"))
        End With
        Try
 
            If FehlerBoxAnzeigen = True Then
                Dim FehlerString As String
 
                FehlerString = "Ein Fehler ist aufgetreten. Der Fehler wird an" & _
                  "das Entwicklerteam weitergeleitet. "
 
                If FehlermeldungInFehlerBoxAnzeigen = True Then
                    FehlerString = FehlerString & "  Fehler : "
                End If
 
                If ZusatzinfoInFehlerBoxAnzeigen = True Then
                    FehlerString = FehlerString & "  Zusatzinfo : " & Zusatzinfo
                End If
 
                MsgBox(FehlerString, MsgBoxStyle.Exclamation, "CUP")
 
            End If
 
            '  If PlaySound = True Then
            Me.PlayWave("C:\WINDOWS\Media\Windows XP-Batterie niedrig.wav")
            '   End If
 
            SmtpMail.Send(oMail)
            '  MsgBox("Nachricht wurde versandt.")
 
        Catch oEx As Exception
            MsgBox("Ein Fehler ist beim Versenden der Fehlermeldung" & _
              "aufgetreten: " & oEx.Message.ToString)
        End Try
 
          End Sub