Sie verwenden eine der #VBA-Prozeduren zum #Ablegen von #Outlook-#Anhängen, die ich vor einiger Zeit vorgestellt habe? Das freut mich 🙂 In den Kommentaren finden Sie auch einige nützliche Ergänzungen und Modifikationen. Nun steht aber noch ein großer Wunsch im Raum: wenn es die Datei schon gibt, dann soll sie nicht überschrieben werden, sondern der Anhang soll mit einer Versionsnummer versehen werden und als neue Datei gespeichert werden.

Dazu ersetzen Sie einfach das Speichern

            mAtt.SaveAsFile myPath & "\" & mAtt.DisplayName

durch folgenden Schnipsel:

            Dim Suffix As String
            Dim SuffixNr As Long
            If Dir(myPath & "\" & mAtt.DisplayName) = "" Then
                mAtt.SaveAsFile myPath & "\" & mAtt.DisplayName
            Else
                'find out Suffix e.g. .pdf .docx
                If Mid(mAtt.DisplayName, Len(mAtt.DisplayName) - 3, 1) = "." Then
                    Suffix = Right(mAtt.DisplayName, 4)
                Else
                    Suffix = Right(mAtt.DisplayName, 5)
                End If
                SuffixNr = 1
                While Dir(myPath & "\" & Left(mAtt.DisplayName, Len(mAtt.DisplayName) - Len(Suffix)) & "_" & SuffixNr & Suffix) <> ""
                    SuffixNr = SuffixNr + 1
                Wend
                mAtt.SaveAsFile myPath & "\" & Left(mAtt.DisplayName, Len(mAtt.DisplayName) - Len(Suffix)) & "_" & SuffixNr & Suffix
            End If

Ist ein bisschen kompliziert 🙂 Und funktioniert 🙂 Und zwar so: wenn es eine Datei des Namens bereits gibt, wird SuffixNr hochgezählt und dabei geschaut, ob es eine Datei mit dem Namen Dateiname & _ & SuffixNr gibt – so lange, bis eben keine mehr gefunden wird. Dann wird mit der freien SuffixNr gespeichert.