wie oder wo muß man was eintragen um bei ". Introduction "die eigene E-Mailadresse anzugeben"
Also wenn "ich.name@xxxx.net" versendet hat, so soll "ich.name@xxxx.net" aufscheinen
Mein verwendeter Code:
Range(Cells(1, 1), Cells(i, 6)).Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Guten Tag .." & vbCrLf & vbCrLf & "Anbei der .." & Format(CDate(Now), "dd.mmmm yyyy") _
& vbCrLf & "......hier sollte "ich.name@xxxx.net"... aufscheinen"
.Item.To = "chef.nachname@xxxx.net"
.Item.Subject = "Text blabla...."
.Item.Send
End With
Close
Hat vielleicht jemand ´nen Tipp?
Danke Lorenz