Hallo zusammen,
Kann man sich irgendwie bei
.Item.To = auf eine Zelle in dem Arbeitsblatt beziehen?
Der Empfänger ändert sollt variabel sein.
'E-mail senden
Sheets("Tabelle1").Select
ActiveSheet.Range("A1").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Muster"
.Item.To = "Mustermann@_____.de"
.Item.Subject = "Muster"
End With
Gruß Marcel