Hallo Leute,

hab folgendes Problem.
Ich würde gern eine Serienmail aus Excel heraus versenden.
Hab dazu folgendes Makro gefunden

Public Sub SendMails()

Dim MyOutApp As Object, MyMessage As Object
    Dim i As Long
    Dim ii As Long
        
    'Start der Sendeschleife an 10 Empfänger
    For i = 1 To 10
        Set MyOutApp = CreateObject("Outlook.Application")
        Set MyMessage = MyOutApp.CreateItem(0)
        With MyMessage
            'Die Empfänger stehen in Spalte A ab Zeile 1
            .To = Cells(i, 1) 'E-Mail Adresse
            'Der Betreff in Spalte B
            .Subject = Cells(i, 2) '"Betreffzeil"
            'Der zu sendende Text in Spalte C
            'Maximal 1024 Zeichen
            'Der Text wird ohne Formatierung übernommen
            .Body = Cells(i, 3)
            'Hier wird die Mail angezeigt
            '.Display
            'Hier wird die Mail gleich in den Postausgang gelegt
            .Send
        End With
        'Objectvariablen leeren
        Set MyOutApp = Nothing 'CreateObject("Outlook.Application")
        Set MyMessage = Nothing 'MyOutApp.CreateItem(0)
        'Sendepause einschalten
        'Outlook kann die Aufträge nicht schnell genug verarbeiten
        Application.Wait (Now + TimeValue("0:00:05"))
    Next i

End Sub

In der Tabelle1 hab ich in Spalte A die Empfänger stehen in Spalte B einen Betreff zu jedem Empfänger und in Spalte C dann den Text der in den Emailboddy soll.
Wenn ich jetzt das Makro ausführe kommt erstmal die Sicherheitsabfrage von Outlook "Eine Anwendung möchte auf Ihre Adressdaten zugreifen. Möchten Sie dies erlauben ?"
Wenn man da "Ja" anklickt kommt folgender Fehler in Excel....

Laufzeitfehler '-2147467259 (800004005)';
Outlook kennt mindestens einen Namen nicht.

Was mach ich denn da falsch?
Wieso sendet mit Outlook meine Mails nicht?

Danke für eure Hilfe
Gruß
Morpheus