in naher Zukunft werden wir das Microsoft-Information-Protection-System (kurz MIP) nutzen. Das hat entsprechende Auswirkungen auf alle unsere Dateien.
Aktuell speichere ich ein Excelsheet als PDF und versende dieses dann per Outlook.
Ich suche jetzt nach einer Möglichkeit, während der Speicherung des PDFs die MIP-Einstufung auch bei dem PDF zu speichern, und anschließend auch der Email eine entsprechende Einstufung mitzugeben.
Gefunden habe ich folgende Site von Microsoft: ">https://learn.microsoft.com/en-us/office/vba/api/office.labelinfo"
Hier mein aktueller Code:
Sub AlsPDFanMail()
Dim Eingabe As Byte
Dim User As String
Dim pdfName As String
Dim pdfOpenAfterPublish As Boolean
Dim olApp As Object
Application.ScreenUpdating = False
pdfName = "c:\Test, " & Format(Now, "dd.mm.yyyy_hhmm") & ".pdf" 'Pfad und Name der PDF-Datei
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False 'erstellen der PDF-Datei
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.To = Range("a1").Value
.Subject = "Testmail mit MIP-Einstufung" 'Betreffzeile
.htmlBody = ""
.attachments.Add pdfName
'.Display
.send 'verschicken, ohne noch mal anzuzeigen
End With
Application.ScreenUpdating = True
End Sub
Hat jemand eine Idee, wie ich den Code anpassen muss? Meine rudimentären VBA-Kenntnisse reichen leider nicht aus.
Schon mal vielen Dank für eure Hilfe
Viele Grüße
Alma27