Makro Anlagengröße
14.07.2017 08:18:08
Mark
ich habe eine kurze Frage und glaube das relative leicht zu lösen sein sollte.
Nachfolgend der Code:
Sub Anlage_verschieben()
Dim strPath As String
Dim objMail As MailItem
Dim intAnlagen As Integer, i As Integer
On Error Resume Next
'Pfad zu meinem Ordner
strPath = ""
'Schleife
For Each objMail In Outlook.ActiveExplorer.Selection
With objMail
'Mails auf vorh. Anlagen prüfen
intAnlagen = .Attachments.Count
If intAnlagen > 0 Then
For i = 1 To intAnlagen
'Anlagen im vordefinierten Verzeichnis sichern
.Attachments.Item(i).SaveAsFile strPath & "\" & Format(.ReceivedTime, "yyyy-mm-dd_hh-mm_") & " " _
& .Attachments.Item(i).FileName
Next i
End If
End With
Next objMail
End Sub
Ich möchte nur Anlagen abspeichern mit einer size größer als 10000. Das müsste soweit ich nur eine Zeile zum ergänzen sein, allerdings bin ich hier überfragt.
Danke für Eure Hilfe
VG
Mark