Hallo,

ich möchte gerne ein Makro bauen, welches eine Nachricht an eine Liste von Emailadressen versendet. Leider bekomm ich bei meinem Lösungsansatz den Fehler "Laufzeitfehler, Objekt wurde verschoben oder konnte nicht gefunden werden". Die erste Mail in der Liste wird versendet. Danach tritt o.g. Fehler auf. Habt ihr eine Idee / Lösung?

Soweit mein Code:

Sub Mail_Versand()
 
    Dim olApp As Object, Mail As Object
    Dim objNachrich As Object
    Dim Kommentar As String
    Dim Verteiler As String
    Dim i As Integer

    Dim IST As Integer
    Dim SOLL As Integer
    Dim STD As Integer
    Dim H As Integer
   
    Set olApp = CreateObject("Outlook.Application")
    Set objNachrich = olApp.CreateItem(0)
    Set Mail = objNachrich
     
    For i = 2 To 7
   
'_________________________________________________________________________________________________________

     'Mail wird erstellen
     With Mail
       
        'Verteiler
        Verteiler = Worksheets("Makro").Cells(i, 3)
        .To = Verteiler
        
        'Vertraulich
        .Sensitivity = 1
        
        'Betreff mit Datum
        .Subject = "Nachricht.... "
        
        'Inhalt der Mail
        .HTMLBody = " Hallo....Nachricht"       
        
        'Mail nun Anzeigen - wichtig, damit 'GetInspector' funktioniert
        .Display
       
        'Cursor ans Ende der EMail setzen
        VBA.SendKeys "^{END}", True
        VBA.SendKeys "{NUMLOCK}", True
        
        'Wartezeit zum Laden  von Signatur
        Application.Wait (Now + TimeValue("00:00:01"))
        
        'Name der gespeicherten Signatur
        strSignatur = "Signatur"
        
        'Einfügen einer bestimmten Signatur
        .GetInspector.CommandBars.Item("Insert").Controls("Signatur").Controls(strSignatur).Execute
       
        'Sendet automatisch
        
        .Send
 
    End With
    
                      
     Next i
    
    MsgBox "Alle E-Mails wurde erfolgreich versand.", , "Mail"
    
End Sub