Outlook VBA - Alle Anhänge drucken!

[cysu11]

Hallo Michael,


so nun habe ich das jetzt probiert mit dem Code:

Code:

Private Sub Application_NewMail()
Dim strNewFolder As String
Dim objPosteingang As MAPIFolder
Dim objNewMail As MailItem

On Error Resume Next
strNewFolder = "C:\Eigene Dateien\OLAnlagen\" & Format(Date, "ddmmyy")
MkDir strNewFolder
Set objPosteingang = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
For Each objNewMail In objPosteingang.Items
With objNewMail
If .UnRead = True Then
intAnlagen = .Attachments.Count
If intAnlagen > 0 Then
For i = 1 To intAnlagen
.Attachments.Item(i).SaveAsFile strNewFolder & "\" & .Attachments.Item(i).FileName
Next i
End If
End If
End With
Next objNewMail
End Sub

Der Code erstell mir einen Ordner mit dem Name 05032016 aber es werden keine Dateien gespeichert! Ich muss dazu sagen, ich nutze Outlook 2010, vielleicht deswegen?
Wie muss ich das änder damit es auch mit OL2010 funktioniert?
Danke
VG
Alexandra