Email Anhang import < 30min zurück
04.09.2022 09:18:44
Andy
ich habe ein kleines Problem hinsichtlich dem Import von Email-Anhängen aus Outlook in einen bestimmten Ordner.
Der Code sollte die Emails nach dem Betreff "Scan" (von einem Drucker eingescannt und per Email an meinen Postkorb übersandt) durchsuchen
und nur die Emails mi ihren Anhängen der letzten 30 Min berücksichtigen.
Der Code funktioniert prima, der Import wird auch bestens durchgeführt.
Allerdings: Wenn ich eine Email habe, die in den letzten 30min gekommen ist, importiert er zwar richtigerweise deren Anhang, berücksichtigt danach aber nicht
mehr die Zeitvorgabe Habe ich keine Email in den letzten 30 min bekommen, berücksichtigt er keine Emails, auch nicht die mit Scan vor Wochen.
1. Kann mir jemand sagen, was ich ändern müsste?
2. Kann man bei einem Import vl. die Benennung der Dateien fortlaufend nummerieren?
Nach dem Muster: Email1 mit zwei Anhängen zb. Scan1 Scan2, Email2 mit drei Anhängen dann Scan3, Scan4, Scan5 usw....
Vielen lieben Dank für Eure Hilfe. Hier der Code:
Private Sub CommandButton9_Click()
Dim olApp As Object, objFolder As Object, objItem As Object
Dim zeit As String
If MsgBox("Möchten Sie aus Ihrem persönlichen Email-Posteingang den Anhangsimport starten? Die Email = zeit Then
If objItem.Subject Like "*" & "Scan" & "*" Then
If objItem.attachments.Count > 0 Then
With objItem.attachments.Item(1)
If .Filename Like "*.pdf" Then
.SaveAsFile sPfadAktenscan & Format(Now(), "yyyy-mm-dd") & "_" & Format(Now(), "hh-mm-ss") & "_" & "Scan" & ".pdf"
Application.Wait (Now + TimeValue("00:00:02"))
End If
End With
Else
End If
objItem.Delete
Else
End If
End If
Next
Set objFolder = Nothing
Set olApp = Nothing
End If
End Sub