Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Public Sub SaveSelectionAttachments()
Dim currentExplorer As Explorer
Dim obj As Object
Dim tlr As Integer
Set currentExplorer = Application.ActiveExplorer
Set Selection = currentExplorer.Selection
For Each obj In Selection
With obj
If .Attachments.Count > 0 Then
If Right(.Attachments(1).FileName, 3) = "pdf" Then
tlr = tlr + 1
.Attachments(1).SaveAsFile "C:\PDF Bestanden\" & Format(Now, "yyyymmddhhmmss-") & tlr & .Attachments(1).FileName
End If
End If
End With
Next
Set currentExplorer = Nothing
Set obj = Nothing
Set Selection = Nothing
End Sub
Public Sub SaveSelectionAttachments()
Dim currentExplorer As Explorer
Dim obj As Object
Dim i As Integer
Dim z As Integer
Set currentExplorer = Application.ActiveExplorer
Set Selection = currentExplorer.Selection
For Each obj In Selection
With obj
If .Attachments.Count > 0 Then
For i = 1 To .Attachments.Count
If LCase(Right(.Attachments(i).FileName, 3)) = "pdf" Then
z = z + 1
.Attachments(i).SaveAsFile "C:\PDF Bestanden\" & Format(Now, "yyyymmddhhmmss_") & Format(z, "0##_") & Format(i, "0##_") & .Attachments(i).FileName
End If
Next i
End If
End With
Next
Set currentExplorer = Nothing
Set obj = Nothing
Set Selection = Nothing
End Sub
Public Sub SaveSelectionAttachments()
Dim it As Object, j As Long, z As Long
For Each it In Application.ActiveExplorer.Selection
If it.Attachments.Count > 0 Then
For j = 1 To it.Attachments.Count
If LCase(Right(it.Attachments(j).FileName, 3)) = "pdf" Then
z = z + 1
it.Attachments(j).SaveAsFile "E:\Temp\" & Format(Now, "yyyymmddhhmmss_") & Format(z, "00_") & Format(j, "00_") & it.Attachments(j).FileName
End If
Next j
End If
Next it
End Sub
Public Sub SaveSelectionAttachments()
Dim it As Object, j As Long, z As Long, PDF As String
PDF = BrowseForFolder("C:\")
If PDF = "" Then Exit Sub
For Each it In Application.ActiveExplorer.Selection
If it.Attachments.Count > 0 Then
For j = 1 To it.Attachments.Count
If LCase(Right(it.Attachments(j).FileName, 3)) = "pdf" Then
z = z + 1
it.Attachments(j).SaveAsFile PDF & Format(Now, "yyyymmddhhmmss_") & Format(z, "00_") & Format(j, "00_") & it.Attachments(j).FileName
End If
Next j
End If
Next it
End Sub
Function BrowseForFolder(strStartingFolder As Variant) As String
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "Selecteer een folder", 0, strStartingFolder)
If Not TypeName(objFolder) = "Nothing" Then
Set objFolderItem = objFolder.self
BrowseForFolder = objFolderItem.Path & "\"
Else
BrowseForFolder = ""
End If
Set objFolderItem = Nothing
Set objFolder = Nothing
Set objShell = Nothing
End Function
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.