Public Shared Function Sendmail(ByVal EmpfängerMail As String, ByVal _
      Betreff As String, ByVal Mail_Text As String, ByVal Attachment As String, _
      ByVal AbsenderMail As String, ByVal AbsenderName As String, Optional _
      ByVal CC As String = "") As String
 
        ' SMTP-Server
        Dim oSMTP As New SmtpClient
        Dim oMail As New MailMessage(AbsenderMail, EmpfängerMail)
        Dim SM1 As Integer, SMFeld() As String
 
        With oSMTP
            ' Mailserver
            .Host = "192.168.190.100"
            .Port = 25
            .Timeout = 10000
 
            ' Erweiterte Mail-Einstellungen
            .UseDefaultCredentials = False
            .DeliveryMethod = SmtpDeliveryMethod.Network
 
        End With
 
        With oMail
            ' Betreff
            .Subject = Betreff
            .IsBodyHtml = True
            .Body = Mail_Text
 
            ' ggf. Kopie-Empfänger hinzufügen
            If CC <> "" Then
                SMFeld = Split(CC, ";")
                For SM1 = 0 To UBound(SMFeld)
                    .CC.Add(New MailAddress(SMFeld(SM1)))
                Next SM1
            End If
 
            ' Anlagen hinzufügen
            If Attachment <> "" Then
                SMFeld = Split(Attachment, ";")
                For SM1 = 0 To UBound(SMFeld)
                    .Attachments.Add(New Attachment(SMFeld(SM1)))
                Next SM1
            End If
            ' Priorität einstellen
            .Priority = MailPriority.Normal
        End With
 
        Try
 
            ' Nachricht senden
            oSMTP.Send(oMail)
            Sendmail = ""
        Catch oEx As Exception
            ' zweiten SMTP Server probierne ...
        End Try
 
    End Function

Joachim