Datei speichern & E-Mail versenden

Sub Mappe_versenden_als_EMail()
Dim objOL As Object
Dim objMail As Object
Dim Bezeichnung As String
Dim MAdr As String
Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(0)
Bezeichnung = ActiveWorkbook.Name
MAdr = "michael.stuebi@test.ch; test@test.ch
Application.ScreenUpdating = False
With objMail
.To = MAdr
.Subject = "meldung" 'Der Betreff des E-Mails
.Body = "Meldung im Anhang" 'Der Text innerhalb des Mails
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
Dim SpeicherName As String
Dim Speicherpfad As String
Speicherpfad = Sheets("Meldeformular").Range("F199").Value 'in Zelle F199 steht Pfad Zb. C:\ _
Test\
SpeicherName = Speicherpfad & "Abweichungsmeldung" & "_" & Range("F201") & "_" & Range("F200") ' _
_
_
_
aus Zelle F201+F200 wird Name erzeugt
ActiveWorkbook.SaveAs Filename:=SpeicherName
MsgBox ("Tabelle wurde erfolgreich versendet.")
Application.ScreenUpdating = True
End Sub