Using oSMTP As New SmtpClient
            Dim oMail As New MailMessage(AbsenderMail, EmpfängerMail)
 
            With oSMTP
                .Host = "192.168.190.100"
                .Port = 25
            End With
 
            With oMail
                .Subject = Betreff
                .Body = Mail_Text
                .Attachments.Add(New Attachment(SMFeld(SM1)))
            End With
 
            Try
                oSMTP.Send(oMail)
            Catch oEx As Exception
            End Try
        End Using

        oMail.Dispose()
        oSMTP.Dispose()

Joachim