Email Anhang passwortgeschützt
17.03.2016 14:55:51
Markus
besteht eine Möglichkeit einen PDF-Anhang automatisch passwortgeschützt zu versenden - mit PDF-XChange?
Falls dem so ist, wie müsste ich den folgenden Code ergänzen bzw. wie müsste der Code aussehen?
Sub SendMail()
Dim mePDFD As String
Dim MyOutApp As Object, MyMessage As Object
ActiveWorkbook.ExportAsFixedFormat Type := xlTypePDF, Filename := ThisWorkbook.Path &"\test.PDF. _
pdf", Quality :=xlQualityStandard_ ,
IncludeDocProperties := False, IgnorePrintAreas:=False, OpenAfterPublish_ := False
mePDF = ThisWorkbook.Path &"\test.PDF.pdf"
Set MyOutApp = CreateObject ("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem (0)
With MyMessage
.To = "....."
.Subject = " Betreffzeile "
.body = "..."
.Attachments.Add mePDFD
.Display
.Send
Kill mePDFD
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub
Vielen Dank euch