Hallo Zusammen,

ich habe eine Kalender für Veranstaltungen erstellt, von dort heraus kann ich per VBA Code einen Termin in Outlook erstellen.

Jetzt würde ich gerne noch die PDF Dateien, die bestimmte Wörter (Packschein, Lieferschein, Rückholschein) im Dateinamen enthalten, aus bestimmten Ordnern hinzufügen lassen.

Die Ordner Struktur sieht so aus: Es gibt einen Hauptordner mit Namen 2022 und darunter für jede VA einen Ordner mit der VA Nummer:

L:\100-FundE\2022\4450

Darin sind die PDF Dateien mit folgenden Namen enthalten: VA 4450 - Packschein.pdf - VA 4450 - Lieferschein.pdf - VA 4450 - Rückholschein.pdf

Danke für die Hilfe

Gruß Alex

Sub Outlook_Liefertermin()

'Outlook Bibilothek aktivieren

'Variablen dimensionieren
Dim oApp As New Outlook.Application
Dim oNamespace As Outlook.Namespace
Dim oEmpfang As Outlook.Recipient
Dim oOrdner As Outlook.Folder
Dim oTermin As Outlook.AppointmentItem

'Zugriff auf MAPI Datei
Set oNamespace = oApp.GetNamespace("MAPI")

'Empfänger festlegen
Set oEmpfang = oNamespace.CreateRecipient("FestEvent, WB")

'Empfänger suchen
oEmpfang.Resolve

'Prüfen, ob Empfänger gefunden wurde
If oEmpfang.Resolved = False Then
    
    'Benutzer benachrichten
    MsgBox "Empfänger wurde nicht gefunden", vbCritical, "Fehler"

    'Prozedur beenden
    Exit Sub
    
    
End If

'Ordner festlegen, in dem der Termin erstellt wird
Set oOrdner = oNamespace.GetSharedDefaultFolder(oEmpfang, olFolderCalendar)

'Termin erstellen
Set oTermin = oOrdner.Items.Add(olAppointmentItem)

'Termin bearbeiten
With oTermin
    .Display
    .MeetingStatus = olMeeting
    .Subject = Tabelle2.Range("C12").Value
    .RequiredAttendees = Tabelle2.Range("C5").Value
    '.OptionalAttendees = Tabelle2.Range("C24").Value
    .Start = Tabelle2.Range("F7").Value
    .End = Tabelle2.Range("F8").Value
    .Location = Tabelle2.Range("C9").Value
    .AllDayEvent = True
    .ReminderMinutesBeforeStart = 1440
    .Body = Tabelle2.Range("C31").Value
    

End With


End Sub