|
Hallo,
habe mir ein Skript erstellt, dass eine Rohdatei in eine fertig Auswertung anpasst. Den Inhalt würde ich gerne per Mail verschicken (nicht aus Anhang sondern im Textfeld eingefügter Inhalt) und die Datei mit dem Skript bereits automatisch im Hinterfgrund schließen. Die Mail soll nicht automatisch verschickt werden, sodass man nochmal drüber schauen kann.
Meine Skriptdatei heißt: Zimmerstatusliste Skript.xlsm
Meine fertige Datei: Zimmerstatusliste (+ heutiges Datum)
' ActiveWorkbook.Close Savechanges:=False
' ActiveWorkbook.Open = "Zimmerstatusliste*.xlsx"
' Range("A1").Select
' Range(Selection, Selection.End(xlToRight)).Select
' Range(Selection, Selection.End(xlDown)).Select
' Selection.Copy
' Set OutlookApplication = Nothing
' Set Nachricht = Nothing
'
' Dim Nachricht As Object, OutlookApplication As Object
' Set OutlookApplication = CreateObject("Outlook.Application")
'
' Dim Anhang As String
'
' Anhang = ThisWorkbook.FullName
' Set Nachricht = OutlookApplication.CreateItem(0)
'
' With Nachricht
'
' .From = "max.mustermann@t-online.de"
' .To = "max.mustermann@gmx.de"
' .Subject = "Zimmerstatus" & " " & Date
' .Body = Selection.Paste
' .Display
'
' End With
'
' Set OutlookApplication = Nothing
' Set Nachricht = Nothing
|