PDF Speichern

Public Sub KundenMail(sMailto As String, sAttachements As String)
Dim Mailadresse  As String, Betreff As String
Dim olApp  As Object
Dim x
Set olApp = CreateObject("Outlook.Application")
Betreff = "Anbei die gewünschte(n) 'PDF' Datei(en) !"
With olApp.CreateItem(0)
.To = sMailto
.Subject = Betreff
'        ' .Subject = VerzNam
If InStr(1, sAttachements, ";") > 0 Then
For Each x In Split(sAttachements, ";")
.Attachments.Add x
Next
Else
.Attachments.Add sAttachements
End If
'   1  habe festgestellt das hier mein Speichermakro rein könnte ?
.Display
' .Send
End With
Set olApp = Nothing
End Sub