Off topic - Outlook VBA
Bernd
ich habe mir ein VBA-Script zusammenkopiert, das bis vor kurzem auch funktionierte.
Leider hat es aber jetzt Aussetzer, bzw. funktioniert gar nicht mehr und ich weiß nicht warum.
Es hat ursprünglich mal die Anhänge neu ankommender Emails in bestimmte Ordner abgelegt und
den Dateinamen mit Datum versehen.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
End Sub
Private Sub Application_NewMail()
Dim Ordnername As String
Dim objPosteingang As MAPIFolder
Dim objNewMail As MailItem
On Error Resume Next
Set objPosteingang = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
For Each objNewMail In objPosteingang.Items
With objNewMail
If .UnRead = True Then
Anzahl = .Attachments.Count
If Anzahl > 0 Then
Ordnername = "C:\Users\db\Documents\Outlook Anhänge\" & objNewMail. _
SenderName
MkDir Ordnername
For i = 1 To Anzahl
aktuell = Format(Now, "YYYYMMDD ")
.Attachments.Item(i).SaveAsFile Ordnername & "\" & aktuell & . _
Attachments.Item(i).FileName
Next i
End If
End If
End With
Next objNewMail
End Sub
Danke und viele Grüße
Bernd