Guten Tag zusammen ich habe ein Problem.
Ich sende mit untenstehenden Text automatisch eine Email aus Excel.
Ich möchte aber gerne die absendende Email Adresse hinterlegen damit er nicht
von der Standardemailadresse sendet.
Dachte ist nicht schwierig, finde aber jetzt keine Lösung :(
Sheets("Tabelle1").Select
ActiveSheet.Range("AA3:AK36").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.To = ActiveWorkbook.Sheets("Tabelle1").Range("C22").Text
.Item.Subject = "TEST!!"
.Item.ReadReceiptRequested = True ' Lesebestätigung anfordern
.Item.Send