habe ein Exceldatei die ich per Button als Mail versende.
Hier wird die Datei" Übergabe Frühschicht_MB" mit eingefügt.
Es liegt noch eine Excel Datei in einem anderen Verzeichnis,welche einzelne Blätter hat die nach den Kalenderwochen benannt sind. Also KW01-KW02 u.s.w.
Ich würde gerne das Blatt der Aktuellen Kalenderwoche auch mit mit der Mail versenden. Und nicht immer die ganze Datei .
Eventuell kann mir jemand helfen .
Danke schön.
Sub Mail_senden_Frühschicht()
If MsgBox("Du möchtest das Protokoll absenden und speichern?", vbYesNo) = vbYes Then
Dim rng As Range
Dim olApplication As Object
Dim objEMail As Object
Set olApplication = CreateObject("Outlook.Application")
Set objEMail = olApplication.CreateItem(olMailItem)
With objEMail
Set rng = Sheets("Frühschicht").Range("A1:H49")
.To = "XXXXXXXXXXXXXX"
.Subject = "Übergabe Frühschicht_MB"
.HTMLBody = RangetoHTML(rng)
.Send
End With