Hallo zusammen,

ich bräuchte etwas Hilfe bei einem Outlook-Makro.

Momentan sieht das Makro wie folgt aus.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim Atts As Outlook.Attachments
    Dim aCount As Integer
    Set Atts = Item.Attachments
    aCount = Atts.Count

    ' Ist Anhang bzw. Firmenlogo in Signatur, diesen als gezählte Anlage streichen
    If (Atts.Count > 0) Then
        If (StrComp(Split(Atts(1).FileName, ".")(0), "image001") = 0) Then
            aCount = aCount - 1
        End If
    End If

    ' Wenn Anhangen vorhanden sind, Nachfragen ob die Mail wirklich verschickt werden soll
    If aCount > 0 Then
        If MsgBox("Diese E-Mail enthält Anhänge. Soll die E-Mail dennoch versendet werden?", vbYesNo, "Achtung: Versand mit Anhängen") = vbNo Then
            Cancel = True
        End If
    End If

End Sub

Sobald eine verfasste Mail Anhänge besitzt, soll vor dem abschicken eine Sicherheitsabfrage erscheinen, die nochmal mit "Ja" bestätigt werden muss. Erstmal nichts Spektakuläres und bis auf ein paar Kleinigkeiten funktioniert das so auch erst einmal.

Jetzt will ich den Skript aber so anpassen, dass die Abfrage nur erscheint, wenn die Anhänge von einem bestimmten Pfad/Netzlaufwerk stammen.Das Problem ist nun aber, das "Atts" beim Versenden nur noch den Dateinamen enthält (FileName) enthält. Der Quellpfad der Datei ist nicht mehr da (dachte erst PathName, enthält aber leider nichts)

Vermutlich müsste der Pfad schon bei "Anhang einfügen" ausgelesen und abgespeichert werden. Ich habe allerdings keine Ahnung wie man das anfangen könnte.

Eine andere Möglichkeit wäre, eine Funktion zu schreiben, die Anhänge über einen Öffnen-Dialog zur aktuellen Mail hinzufügt und die Pfade gleich mit abspeichert. Und danach diese Funktion an eine Schaltfläche zu binden und einzufügen. Ich habe auch schon angefangen, etwas zu schreiben und teilweise funktioniert es schon (zumindest hab ich dann die Pfade der Anhänge). Ich finde das ganze über eine zusätzliche Schaltfläche aber eher suboptimal. Bekommt man die Pfade irgendwie ausgelesen, ohne eine neue Funktion für das Einfügen der Anhänge zu pgrogrammieren?