Office: (Office 365) Eine Datei automatisch anhängen, die jeden Tag anders heißt

Hallo in die Runde,

ich habe eine bestimmte Outlook-Vorlage und möchte, dass wenn ich sie öffne, automatisch eine Datei angehängt wird, deren Namen täglich variiert, weil sie das aktuelle Datum enthält, Heute heißt sie also "Dienstplan 2026-05-27", morgen "Dienstplan 2026-05-28" und so weiter.

Wie kann ich das lösen?

Danke im Voraus,
Andreas

 

Lese die Dateinamen des Ordners ein, extrahiere das Datum und suche die Datei mit dem aktuellen Datum bzw. dem "größtem" Datum. Stringverarbeitung in VBA sollte jetzt nicht das Problem sein und für das Einlesen kannst du das FileSystemObject verwenden.

 

Es scheitert bei mir gerade schon daran, wie ich ein Makro direkt in die Vorlage speichere und dann ähnlich bei das AutoExec-Makro bei Access automatisch ausgeführt wird, wenn ich diese Vorlage öffne ...

 

Bitte sei mir nicht böse, aber wenn du solche Aktion oder Projekte stemmen möchtest, solltest du dich vorab schon mal etwas mit der Materie befassen. Selber mache ich eher wenig mit Outlook und Makros, aber es VBA Makros stehen immer in Outlook, nie in einer Vorlage. Ausgehend davon, das eine neue Mail aus einer Vorlage erstellt wird, solltest du prüfen, ob es die betreffende Vorlage überhaupt ist. Hierzu könnte eine "Userproperty" verwendet werden, welche die Vorlage eindeutig kennzeichnet:

Vorlage öffnen und dann im Direktfenster die Userproperty anlegen:

Code:

ActiveInspector.CurrentItem.UserProperties.Add("VorlagenTyp", 1).Value = "Dienstplan"

Anschließend die entsprechenden Events auswerten. Hier automatisch generiertes Beispiel einer KI (ungeprüft):

Code:

Public WithEvents TargetMail As Outlook.MailItem

' 1. Erkennt, wenn ein neues Element in Outlook geladen wird
Private Sub Application_ItemLoad(ByVal Item As Object)
    If TypeName(Item) = "MailItem" Then
        Set TargetMail = Item
    End If
End Sub

' 2. Führt den Code aus, sobald die E-Mail vollständig geöffnet ist
Private Sub TargetMail_Open(Cancel As Boolean)
    On Error Resume Next ' Verhindert Fehler, wenn das Feld nicht existiert
    
    ' Prüft, ob das unsichtbare Feld in dieser E-Mail existiert
    If Not TargetMail.UserProperties("VorlagenTyp") Is Nothing Then
        
        ' Prüft, ob der Wert exakt "Dienstplan" lautet
        If TargetMail.UserProperties("VorlagenTyp").Value = "Dienstplan" Then
            
            ' ----------------------------------------------------
            ' HIER STARTET IHR EIGENTLICHES MAKRO
            ' ----------------------------------------------------
            
            ' Beispiel 1: Hinweistext anzeigen
            MsgBox "Dienstplan-Makro wurde erfolgreich gestartet!", vbInformation, "Dienstplan-Vorlage"
            
            ' Beispiel 2: Aktuelles Datum an den Betreff anhängen
            TargetMail.Subject = TargetMail.Subject & " - Stand: " & Date
            
            ' ----------------------------------------------------
            ' HIER ENDET IHR MAKRO
            ' ----------------------------------------------------
            
        End If
    End If
    
    On Error GoTo 0
End Sub

UNd hier findest du weitere Dokumentation mit Konzepten, Hilfethemen und dem Objektmodell:
Outlook-Referenz für Visual Basic for Applications (VBA)