EXCEL Tab. Inhalte mit Outlook senden?
Guten Morgen, ich hab mal eine Frage zu einem VBA.
Mein Code sendet zwar die E-Mail, nimmt aber den Dateiinhalt nicht mit. Kann mir da jemand helfen? Gruß
Hier mein Code: Public Sub Änderungen_Click()
sMailtext = "Aktueller Änderungsumfang / Raum für weitere Informationen: "
With CreateObject("Outlook.Application").CreateItem(0)
.GetInspector
.Subject = "Änderungen"
.Body = sMailtext & .Body
.Importance = 1
.To = "###########@t-online.de"
' .Display
With .GetInspector.WordEditor.Application.Selection
ThisWorkbook.Worksheets("Info").Range("A1").CurrentRegion.Copy
.Start = Len(sMailtext)
.End = Len(sMailtext)
' .Paste
End With
.Send
End With
End
End Sub
1 Antwort
Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer
Microsoft Excel
Hallo, geht einfach mit
With CreateObject("Outlook.Application").CreateItem(0)
.Subject = "Änderungen"
.Body = sMailtext & .Body
.Importance = 1
.To = "###########@t-online.de"
.Attachments.Add "C:\Temp\DeinDateiname.xlsx"
.send
End With
Woher ich das weiß:eigene Erfahrung – Faulheit >> Neugier >> Wissen
Danke für die Unterstützung, so wollte ich es haben. Gruß