Mail mit bestimmten Betreff... automatischer Kalendereintrag

Moderator: ModerationP

Mail mit bestimmten Betreff... automatischer Kalendereintrag

Beitragvon GabsObi » 09. Jun 2021, 11:01

Hallo Leute,
ich wollte mich erkunden ob jemand von euch weiß, ob es möglich wäre, wenn ich eine Mail bekomme mit einem bestimmten Betreff, diese so einzustellen, dass diese sich automatisch in meinem Kalender als Kalendereintrag generieren.

Mit freundlichen Grüßen!
Gabriel
GabsObi
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 8
Registriert: 09. Jun 2021, 10:36

Re: Mail mit bestimmten Betreff... automatischer Kalenderein

Beitragvon Fen » 09. Jun 2021, 14:07

Hallo,

mit "Application_NewMail()" wird ein VBA-Makro gestartet, der

- den Betreff prüft
- falls Bedingung erfüllt ist einen Kalendereintrag vornimmt


mfg
Fen
 

Re: Mail mit bestimmten Betreff... automatischer Kalenderein

Beitragvon GabsObi » 09. Jun 2021, 14:35

Hey... danke für den Tipp, bin aber sehr neu bei diesem Thema.. kannst du mir das genauer erklären bitte bzw. wie ich genau vorgehen soll. Dankeschön!

mfg gabriel
GabsObi
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 8
Registriert: 09. Jun 2021, 10:36

Re: Mail mit bestimmten Betreff... automatischer Kalenderein

Beitragvon Fen » 09. Jun 2021, 14:59

Wonach soll den im Subject gesucht werden?
Fen
 

Re: Mail mit bestimmten Betreff... automatischer Kalenderein

Beitragvon GabsObi » 09. Jun 2021, 15:06

Ihre Sendung im Auftrag von TEST ist unterwegs
GabsObi
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 8
Registriert: 09. Jun 2021, 10:36

Re: Mail mit bestimmten Betreff... automatischer Kalenderein

Beitragvon Fen » 09. Jun 2021, 15:43

https://docs.microsoft.com/en-us/office ... OlItemType

In "ThisOutlookSession"

Code: Alles auswählen
Private Sub Application_NewMail()

Dim EML As MailItem, NSp As NameSpace, Fld As Folder
Dim Kal As AppointmentItem
    Set NSp = Application.Application.GetNamespace("MAPI")
    Set Fld = NSp.GetDefaultFolder(6)
    If Fld.Items(1).Class = olMail Then
        Set EML = Fld.Items(1)
        If InStr(1, EML.Subject, "Ihre Sendung im Auftrag von TEST ist unterwegs", vbTextCompare) > 0 Then
            Set Kal = CreateItem(olAppointmentItem)
            Kal.Subject = "Subject"
            Kal.Start = Now
            Kal.Body = "Packet"
        End If
    End If
End Sub


Das mit dem Kalendereintrag muss ich noch über, zumindest das Mail-Subject sollte gelesen werden.

mfg
Fen
 

Re: Mail mit bestimmten Betreff... automatischer Kalenderein

Beitragvon GabsObi » 09. Jun 2021, 16:11

Dankeschön.
GabsObi
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 8
Registriert: 09. Jun 2021, 10:36


Zurück zu Outlook Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 4 Gäste