ich muss leider nochmal um Hilfe bitten. Mit dieser Schleife sollte eigentlich hintereinander eine Email erstellt werden und versendet werden. Im Array sind die jeweiligen Empfänger hinterlegt. Nun bringt er mir bei geschlossenem Outlook den Laufzeitfehler, dass der Remoteserver nicht existiert... und markiert diese Zeile
Set objMail = objOutlook.CreateItem(0)
Was mache ich falsch bzw. muss ich etwas ändern, um mehrere Mails zu versenden?
Ist das zu schnell für Outlook?
Bei geöffnetem Outlook funktioniert es (naja sporadisch).
dateiname = ActiveWorkbook.Name
dateipfad = ActiveWorkbook.Path & "\"
datei = dateipfad & dateiname
If UBound(avntOutput2) > UBound(avntOutput) Then
For i = UBound(avntOutput) + 1 To UBound(avntOutput2)
Empf?nger = avntOutput2(i)
Set objOutlook = CreateObject(Class:="Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = Empf?nger & "@#########.com"
.Subject = "Interner Fehler zum Testen bitte nicht beachten"
.HTMLBody = "Hallo Werte Kollegen,
es gab einen internen Fehler _
Ihrerseits.
Ich bitte darum, diesen zu pr?fen und anschlie?end zu beheben.
Vielen Dank!
Mit freundlichen Gr?en
" & dateiname & "" & " ?ffnen"
Call .Display 'Mail nur anzeigen
Application.Wait (Now + TimeSerial(0, 0, 1))
Call .Send 'Mail sofort senden
End With
Next i
Set objMail = Nothing
Set objOutlook = Nothing
End If
End Sub