Automatisierungsfehler
09.05.2020 12:10:16
Arne
ich möchte automatisch E-Mails versenden. Die E-Mail-Adresse wird dabei per Schleife aus einer Liste übernommen. Das klappt allerdings nur für das erste Element in der Liste, danach erhalte ich dann folgenden Fehler:
"Laufzeitfehler '-2147221238 (8004010a)': Automatisierungsfehler."
Ich hoffe jemand kann mir hier weiterhelfen. In der Forumssuche konnte ich das Thema noch nicht finden.
Hier noch der Code:
Sub Email_senden(EmailListe() As String)
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
For i = 0 To UBound(EmailListe())
With objMail
.To = EmailListe(i) ' Hier taucht die Fehlermeldung beim zweiten Durchgang auf
.Subject = "Betreff"
.Body = "Ihre Nachricht."
.Send 'Display
End With
Next
End Sub
und Hier die Methode, über die das ganze Aufgerufen wird:Sub Email()
Dim EmailListe() As String 'MitarbeiterMails in eine Liste schreiben
Dim i As Integer 'Zählvariable
Dim AnzahlMA As Integer 'Anzahl der Mitarbeiter, wird aus einer Zelle ausgelesen
AnzahlMA = Worksheets("Mitarbeiter").Range("E2")
ReDim EmailListe(AnzahlMA) 'Größe der Liste festlegen
For i = 0 To ((AnzahlMA + (i - 1)))
EmailListe(i) = Worksheets("Mitarbeiter").Cells((i + 3), 3).Value
Next
Email_senden EmailListe()
End Sub
Liebe GrüßeArne