Problem bei Email aus Excel
25.09.2018 14:19:52
Alex
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