Hallo. Bin neu auf dem Gebiet mit Makros.

Habe nun folgende Problem.

Habe soweit den Marko, dass die Excel Datei als pdf gespeichert wird (über Klicken auf einen in Excel eingefügten Button)
Nun möchte ich aber auch, dass diese Datei, ebenfalls als e-mail an eine Fix hinterlegte e-mail Adresse geschickt wird, ohne das sich Outlook öffnet.
Die pdf Datei muss sich danach nicht öffnen.

Hier der bisherige Code (aus dem Netz gezogen bzw. zusammen geführt. Er funktioniert ja soweit, bis auf die Tatsache, dass die Datei als xlsx und nicht als pdf verschickt wird.

Sub Schaltfläche3816_Klicken()
Dim strDateiname As String
Dim strVerzeichnis As String


strFilename = "mein Dateiname")
strVerzeichnis = "mein Verzeichniss\"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=strVerzeichnis & strFilename, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

ActiveWorkbook.Save
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 = "hinterlegte e-mail Adresse"
.Subject = "Schichtelzettel SE2" & Date & "-" & Time
.attachments.Add AWS

.Send

End With
Set OutApp = Nothing

End Sub
Danke schon mal im Vorraus