Outlook 365: Betreff ändern bei Empfang

Hallo ihr lieben,
da ich mit eurer Hilfe schon recht gut mit Excel vba zurecht komme und ich mir in den letzten Wochen einen schönen Rechner zum Berechnen von Bestellungen gebastelt habe (aktuell habe ich ncohen Sharepoint-Problem, aber ich denke, ich habe die Lösung schon gefunden), wollte ich mal fragen, ob mir auch bei einem Outlook-Themnna helfen könnt. Leider sind die verschiedenen vba-Produkte innerhalb MS doch etwas unterschiedlich...
Folgendes habe ich vor:
Sobald eine E-Mail empfangen wird, soll im Betreff und im Anzeigentext nach bestimmten Wörtern gesucht werden und, falls sie da sind, soll der Betreff so geändert werden, dass ein Datum, das auch im Body steht, zu einem Fälligkeitsdatum berechnet wird (+40 Tage) und dann in den Betreff geschrieben wird.
Schritt für Schritt
Eine E-Mail wird empfangen
Es wird geprüft, ob der Betreff dieser E-Mail mit "Auftrag " beginnt
Falls ja, dann wird geprüft, ob im Body dieser E-Mail der folgende Text steht: "Zusammenfassung Auftrag: Schraubenbestellung"
Sind beide Bedinungen 'true', dann mache jetzt folgendes:
Kopiere die E-Mail (sie liegt jetzt 2x im Posteingang)
Suche im E-Mail-Body (ob Kopie oder Original ist dabei egal) die Zeile in der steht "Auftragsdatum: " und lies das dahinterliegende Datum (10 Stellen) ein, also bspw. "07.09.2022"
Addiere 40 Tage dazu und schreibe jetzt im Betreff anstelle "Auftrag ": "Termin: " & das neue Datum (also: 17.10.2022) & " - ", gefolgt vom restlichen, alten Betreff
Die Mail wird gespeichert und in den Ordner "Aufträge" verschoben.
Original-Mail-Text (Input)
_______________________________
Betreff: Auftrag Heinze AG
_______________________________
Body:
Sehr geehrter Herr Heinze,
hier der Auftrag:
Zusammenfassung Auftrag: Schraubenbestellung
Auftragsdatum: 07.09.2022
...
mfg
Patrick
_______________________________
Geänderte E-Mail (output nach VBA-Skript):
_______________________________
Betreff: Termin: 17.10.2022 - Heinze AG
_______________________________
Body:
Sehr geehrter Herr Heinze,
hier der Auftrag:
Zusammenfassung Auftrag: Schraubenbestellung
Auftragsdatum: 07.09.2022
...
mfg
Patrick
_______________________________
Kann mir jemand helfen?
Ich würde so gerne auch ein wenig Outlook-vba lernen wollen, damit ich Excel und Outlook verknüpfen kann...
Danke schon mal im voraus für eure Zeit.
Patrick

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

dim Tag as date if instr(1, eml.subject, "Auftrag") > 0 then if instr(1, eml.body, "Zusammenfassung Auftrag: Schraubenbestellung") > 0 then set eml2 = eml.copy pos = instr(1, eml.body, "Auftragsdatum") tag = cdate(mid(eml.body,pos+15, 10) eml2.subject = eml2.subject & format(tag+40, "dd.mm.yyyyy") eml2.save

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String) 'Debug.Print Dim objEMail, objEMailCopy As Object Dim intInitial As Integer Dim intFinal As Integer Dim strEntryId As String Dim intLength As Integer Dim datVersanddatum, datFaelligkeit As Date intInitial = 1 intLength = Len(EntryIDCollection) intFinal = InStr(intInitial, EntryIDCollection, ",") strEntryId = Strings.Mid(EntryIDCollection, intInitial, (intLength - intInitial) + 1) Set objEMail = Application.Session.GetItemFromID(strEntryId) If (InStr(objEMail.Subject, "Anzeigenschaltung ") > 0) Then If (InStr(objEMail.Body, "Jobbörse: StepStone Ultimate") > 0) Then Set objEMailCopy = objEMail.Copy posDatum = InStr(objEMailCopy.Body, "Veröffentlichungsdatum: ") datVersanddatum = CDate(Mid(objEMailCopy.Body, posDatum + 24, 10)) If Weekday(datVersanddatum) >= 5 Then datFaelligkeit = datVersanddatum + 40 + (8 - Weekday(datVersanddatum)) ' wenn Wochenende, dann kommenden Montag setzen und 40 Tage addieren Else datFaelligkeit = datVersanddatum + 40 End If If Weekday(datFaelligkeit) >= 6 Then datFaelligkeit = datFaelligkeit - (7 - Weekday(datFaelligkeit)) ' Wenn Fälligkeit = Wochenende, dann Freitag setzen End If objEMailCopy.Subject = Right(objEMailCopy.Subject, Len(objEMailCopy.Subject) - 17) objEMailCopy.Subject = "ULTIMATE: " & Format(datFaelligkeit, "dd.mm.yyyy") & " >> " & objEMailCopy.Subject objEMailCopy.Save End If End If End Sub

Beliebteste Forumthreads (12 Monate)

Outlook 365: Betreff ändern bei Empfang

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

60 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Outlook 365: Betreff ändern bei Empfang

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

60 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread