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
|