Mail mit PDF Kreieren

Hallo Zusammen,
neue Woche und somit neue Suche ...
UweD hat mir eine super Lösung für das Speichern unter als .pdf geliefert. Diese habe ich leicht Modifiziert und stelle fest klappt perfekt.
Jetzt möchte ich via Makro eine Mail vorbereiten und dafür ein PDF gleich anhängen.
meine Recherchen haben folgendes ergeben:

Sub test()
Dim Mailadresse  As String, Betreff As String
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
Mailadresse = "tino@mailsenden.de"
Betreff = "Bericht"
Sheets("Druckversion").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pfad & Format(Datum, " _
YYYYMMDD") & "_" & .Range("N97") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False,  _
OpenAfterPublish:=False
With olApp.CreateItem(0)
.to = Mailadresse
.Subject = Betreff
.Attachments.Add "C:\Users\Tino\Test\"
.Display
.Send
End With
Set olApp = Nothing
End Sub