AW: File umbennennen in diesem kontext
09.11.2021 18:42:07
Yal
Hallo Andreas,
probiere folgendes. Wenn Attachments.Count = 0 geht die For-Schleife gar nicht an, daher kein If notwendig.
Private Sub CommandButton9_Click()
Dim olApp As Object, objFolder As Object, objItem As Object
Dim i, j
Set olApp = CreateObject("outlook.application")
Set objFolder = olApp.GetNameSpace("MAPI").GetDefaultFolder(6)
j = 1
For Each objItem In objFolder.Items
If objItem.Subject Like "*" & "MyQ: gescanntes Dokument" & "*" Then
For i = 1 To objItem.Attachments.Count
With objItem.Attachments.Item(i)
If .Filename Like "*.pdf" Then .SaveAsFile sPfadAkte & "Scan_" & j & ".pdf"
End With
Next
j = j + i
End If
Next
Set objFolder = Nothing
Set olApp = Nothing
End Sub
Wenn Du nicht mit Late Binding sondern Early Binding verwendest ("Extras", "Verweise...", Hacken bei "Microsoft Outlook 16.0 Object Library"), dann kannst Du deine Variablen als
Dim olApp As Outlook.Application
Dim objFolder As Outlook.Folder
Dim objItem As Outlook.MailItem
deklarieren. Dann kommt nach dem Eintippen von "objItem." eine Liste der verfügbare Eigenschaften/Mehode der Klasse MailItem. Wenn nicht dann Strg+ Leertaste. So findest Du schneller objitem.SenderName
VG
Yal