ich habe eine Frage hinsichtlich dem Speichern von Email Anhängen. Ich verwende Outlook und habe derzeit einen Code am laufen, der mir Emails der letzten 30 min nach einem Betreff durchsucht und Anlagen daraus abspeichert. Leider macht er nur pdfs.
Ich würde den Code gerne umschreiben und zwar dahingehend, dass nur die letzte Email nach Anhängen durchsucht wird. Hierbei soll auch die Dateiendung keine rolle spielen. Der Code soll anschließend die Datei umbenennen und in einem Ordner abspeichern. Könnte mir vl. jemand beim Modifizieren ein bisschen unter die Arme greifen? lieben dank
Private Sub CommandButton12_Click()
'Button zum Import Email-Anhängen aus letzter Email
Dim olApp As Object
Dim objFolder As Object
Dim objItem As Object
Dim zeit As String
Dim counter As Long
dim spfadscan as string
If MsgBox("Möchten Sie aus Ihrem persönlichen Email-Posteingang den Anhangsimport starten?" , vbQuestion + vbYesNo, "Anhang import") = vbYes Then
Set olApp = CreateObject("outlook.application")
Set objFolder = olApp.GetNamespace("MAPI").GetDefaultFolder(6)
zeit = DateAdd("n", -30, Now()) ' 30 Minuten
counter = 1
spfadscan ="X:\Scan"
For Each objItem In objFolder.Items
If CDate(objItem.receivedtime()) >= 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 sPfadScan & Format(Now(), "yyyy-mm-dd") & "_" & Format(Now(), "hh-mm-ss") & "_" & "Import" & ".pdf"
End If
End With
Else
End If
objItem.Delete
counter = counter + 1
Else
End If
End If
Next
Set objFolder = Nothing
Set olApp = Nothing
End If
End Sub