Thema Datum  Von Nutzer Rating
Antwort
Rot Outlook Makro - Quellpfade der Anhänge prüfen
09.11.2021 18:49:46 Sebastian84
NotSolved
09.11.2021 20:17:56 Gast55335
NotSolved
10.11.2021 05:19:20 Sebastian84
NotSolved
10.11.2021 11:07:47 Sebastian84
NotSolved
11.11.2021 05:40:42 Sebastian84
NotSolved
30.11.2021 12:35:28 Sebastian84
NotSolved
01.12.2021 08:46:57 Sebastian84
Solved

Ansicht des Beitrags:
Von:
Sebastian84
Datum:
09.11.2021 18:49:46
Views:
92
Rating: Antwort:
  Ja
Thema:
Outlook Makro - Quellpfade der Anhänge prüfen

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?

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Outlook Makro - Quellpfade der Anhänge prüfen
09.11.2021 18:49:46 Sebastian84
NotSolved
09.11.2021 20:17:56 Gast55335
NotSolved
10.11.2021 05:19:20 Sebastian84
NotSolved
10.11.2021 11:07:47 Sebastian84
NotSolved
11.11.2021 05:40:42 Sebastian84
NotSolved
30.11.2021 12:35:28 Sebastian84
NotSolved
01.12.2021 08:46:57 Sebastian84
Solved