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
|