Thema Datum  Von Nutzer Rating
Antwort
Rot PDF in Outlook Termin
 17.11.2022 11:00:54 Alexander Hahn
NotSolved
17.11.2022 19:46:31 Gast30233
NotSolved

Ansicht des Beitrags:
Von:
Alexander Hahn		 Datum:
17.11.2022 11:00:54		 Views:
415		 Rating:
     
Antwort:
  Ja
Thema:
PDF in Outlook Termin

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

 

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
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

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 PDF in Outlook Termin
 17.11.2022 11:00:54 Alexander Hahn
NotSolved
17.11.2022 19:46:31 Gast30233
NotSolved