Hallo VBA Könner,
ich möchte über Excel Serienmails versenden. Leider muss ich im nachfolgenden Code stets den Betreff und den Body Text im code ändern.
Meine Wunsch wäre, dass diese jeweils in einer Zelle als Text (Betreff "L2") bzw. als Pfad (body Text "L3") ausgelesen werden.
Sheets("Tabelle A").Activate
Range("a2").Select
Open "H:\Serienmail\Absender.txt" For Input As #1
Do Until ActiveCell.Value = ""
Set mail = outl.createitem(0)
mail.Subject = "Mitteilung - siehe Anhang"
Do While Not EOF(1)
Viele Grüße
Mat