Public Function Mail_Erstellen(ByVal MailAdresse As String, ByVal Betreff _
      As String, ByVal MailText As String) As Boolean
        Try
            Mail_Erstellen = False
 
            Dim out As New Interop.Outlook.Application
            Dim m As Interop.Outlook.MailItem
            m = CType(out.CreateItem(Interop.Outlook.OlItemType.olMailItem), _
              Interop.Outlook.MailItem)
            m.Subject = Betreff
 
            m.Body = MailText
            m.Display()
            m.To = MailAdresse
            m.Recipients.ResolveAll()
            m.Send()
            Mail_Erstellen = True
            Return True
        Catch eex As Exception
 
        End Try
 
    End Function