Serienmail geht nicht
Urmila
habe bereits im Foren nachgeschaut und den Folgenden Makro gefunden, funktioniert aber nicht:
Dim olApp, Mail As Object, objNachricht As Object
Dim iRow As Integer
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
For iRow = 1 To 100
If Cells(iRow, 1).Value > 0 Then
With Nachricht
.To = Cells(iRow, 1)
.Subject = Cells(iRow, 1)
.Body = "HAllo, dies ist ein Test"
.Attachments.Add "C:\" & Cells(iRow, 1).Value & ".txt"
.ReadReceiptRequested = False
.Send
End With
End If
Next iRow
Ziel ist:
In Spalte A stehen die Dateinamen (sind auch so abgelegt) und in Spalte B die Empfänger (das habe ich noch nicht konfiguriert, da ich nicht mal das hinbekommen hab)
Nun gibt es unterschidlich viele Empfänger, und zu jedem auch ein txt File im C:\
Doch die Schleife will nicht, es verschickt zwar die erste Mail, aber danach zeigt er mir ein Fehler in der Zeile : ".To = Cells(iRow, 1)"
Könnt Ihr mir bitte weiterhelfen...
Danke und LG
Urmila