Ich versende mit folgendem Code meine gesamte Mappe als Mail- Anhang!
Funktioniert sehr gut nur leider ohne Inhalt!?
Also alles was ich eingetragen habe wird nicht übernommen!
Hat jemand eine Idee weshalb die Inhalte aus meiner Mappe nicht mit gesendet werden?
Hier der Code
Sub Makro1()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
AWS = ThisWorkbook.FullName
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "mayk.nitze@abraham.de"
.Cc = "marco.kolodzinski@abraham.de;eva.brunkhorst@abraham.de;ina.taute@abraham.de"
.Subject = "Tarameldung " & Date & Time
.Attachments.Add AWS
.Body = "Bitte DSD- Gewichte pflegen" & vbCrLf & "QSM"
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
Kann mir hierbei jemand helfen?Gruß Lisa