Vb.net-Tool zum Erzeugen einer Outlook-E-Mail

Module SendMail
    Public Sub SendOutlookMail(ByVal Betreff As String, _
                    ByVal Bodytext As String, _
                    Optional ByVal Anhang As String = "Datei als Anhang", _  
                    Optional ByVal Empfaenger As String = "testmail@test.de", _  
                    Optional ByVal CCEmpfaenger As String = "testmail@ts.com")  

        Try
            '--- Check ob der Outlook läuft (ab win8 muss das so)  
            If Process.GetProcessesByName("outlook").Count > 0 Then  
                '--- Tue nichts, alles fein ---  
            Else
                '--- Outlook starten ---  
                Process.Start("outlook")  
                Application.DoEvents()
            End If

            '--- Objekte des Outlook-Objektmodels initialisieren ---  
            Dim objOutlook As Object
            Dim objOutlookMsg As Object
            Const cMailItem = 0

            '--- evtl. weitere wichtige, selbsterklärende Konstanten ---  
            'Const cBCC = 3  
            'Const cImportanceHigh = 1  
            'Const cCC = 2  
            Const cTo = 1

            '--- erstellen der notwendigen Objekte ---  
            objOutlook = CreateObject("Outlook.Application")  
            objOutlookMsg = objOutlook.CreateItem(cMailItem)

            '--- Zusammenbasteln der Mail ---  
            With objOutlookMsg
                Dim objOutlookRecip As Object = .Recipients.Add(Empfaenger)
                objOutlookRecip.type = cTo
                .Subject = Betreff
                .Body = Bodytext
                .CC = CCEmpfaenger
                If Anhang <> "Datei als Anhang" Then .Attachments.add(Anhang)  
                '.Importance = olImportanceHigh  
                .Display() ' Display() zeigt die neue Nachricht, .Send() sendet direkt  
            End With

            '--- Objekte zerstören ---  
            objOutlookMsg = Nothing
            objOutlook = Nothing

        Catch ex As Exception

            '--- Fehler abfangen falls kein Outlook installiert ist ---  
            MsgBox(ex.Message)
            '----------------------------------------------------------  

        End Try

    End Sub

End Module