VBA Script für das öffnen von PDF-Dateien im Outlook Formularen
Hallo zusammen,
ich suche einen VBA Script für das öffnen von PDF-Dateien in Outlook Formularen. Der script für Bilddateien funktioniert, aber leider nicht mit PDF Dateien.
Hallo zusammen,
ich suche einen VBA Script für das öffnen von PDF-Dateien in Outlook Formularen. Der script für Bilddateien funktioniert, aber leider nicht mit PDF Dateien.
ich suche einen VBA Script für das öffnen von PDF-Dateien in Outlook Formularen. Der script für Bilddateien funktioniert, aber leider nicht mit PDF Dateien.
Please also mark the comments that contributed to the solution of the article
Content-Key: 168535
Url: https://administrator.de/contentid/168535
Printed on: April 20, 2024 at 03:04 o'clock
5 Comments
Latest comment
Guten Morgen Uniwop
Der folgende Code speichert alle Anhänge in einem Unterordner von c:\temp. Name des Unterordners ist der Absender.
Mehr gibt es dazu hier
Gruß
Norbert
Der folgende Code speichert alle Anhänge in einem Unterordner von c:\temp. Name des Unterordners ist der Absender.
Private Sub Application_NewMail()
Dim Ordnername As String
Dim objPosteingang As MAPIFolder
Dim objNewMail As MailItem
On Error Resume Next
Set objPosteingang = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
For Each objNewMail In objPosteingang.Items
With objNewMail
If .UnRead = True Then
Anzahl = .Attachments.Count
If Anzahl > 0 Then
Ordnername = "C:\temp\" & objNewMail.SenderName
MkDir Ordnername
For i = 1 To Anzahl
.Attachments.Item(i).SaveAsFile Ordnername & "\" & .Attachments.Item(i).FileName
Next i
End If
End If
End With
Next objNewMail
End Sub
Mehr gibt es dazu hier
Gruß
Norbert