Per VBA Emails im Posteingang auslesen
Hallo,
verzweifel gerade an einer Kleinigkeit...
Ich übergebe der Variablen vom Typ MailItem den entsprechenden Ordner und kann auch Stück für Stück die Betreffzeilen der jeweiligen Emails bequem auslesen. Das Problem ist nur, wenn die Schleife in dem Ordner auf ein Objekte des Typs MeetingItem trifft, erscheint die Meldung : "Es ist nicht möglich ein MeetingItem einem MailItem zuzuweisen"... Das klingt auch logisch, aber wie kann ich es im Vorwege heraus filtern oder erkennen, dass es sich um ein MeetingItem handelt. Es handelt sich um die Kalendereinträge, die man per Email im Posteingang hat, bis man sie zu- oder absagt...
Über Hilfestellung würde ich mich sehr freuen !
Liebe Grüße
SB
verzweifel gerade an einer Kleinigkeit...
Ich übergebe der Variablen vom Typ MailItem den entsprechenden Ordner und kann auch Stück für Stück die Betreffzeilen der jeweiligen Emails bequem auslesen. Das Problem ist nur, wenn die Schleife in dem Ordner auf ein Objekte des Typs MeetingItem trifft, erscheint die Meldung : "Es ist nicht möglich ein MeetingItem einem MailItem zuzuweisen"... Das klingt auch logisch, aber wie kann ich es im Vorwege heraus filtern oder erkennen, dass es sich um ein MeetingItem handelt. Es handelt sich um die Kalendereinträge, die man per Email im Posteingang hat, bis man sie zu- oder absagt...
Über Hilfestellung würde ich mich sehr freuen !
Liebe Grüße
SB
Kommentieren
Teilen
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 191259
Url: https://administrator.de/forum/per-vba-emails-im-posteingang-auslesen-191259.html
Ausgedruckt am: 07.05.2025 um 13:05 Uhr
4 Kommentare
Neuester Kommentar
Hallo,
Na z.B. durch den Klassiker "If" oder "Wend"
oder
oder
Es gibt also genug Möglichkeiten zu prüfen ob es sich um ein MailItem oder nicht handelt um daraus abzuleiten ob etwas getan werden muss oder nicht. Mehr werden wir dir ohne genaue Kenntnisse der fehlerhaften Stelle in deinem Quellcode schwer anbieten können.
Gruß,
Peter
Na z.B. durch den Klassiker "If" oder "Wend"
If xxx.mailitem Then
deine Arbeit tun
End IfIf NOT xxx.MeetingItem Then
deine Arbeit tun
End IfWhile xx.MailIten
deine arbeit tun
WendGruß,
Peter
Vielen Dank ! Ich glaube, ich muss die Anfrage in einem Navision Forum noch einmal stellen. Es werden nicht alle methoden und Eigenschaften über den Automation-Server in Navision angeboten. Deswegen ist es da wesentlich umständlicher... Aber im Prinzip war die Antwort ja richtig ! Danke nochmal !
hallo,
Gruß,
Peter
Zitat von @sbrinkkoetter:
Es werden nicht alle methoden und Eigenschaften über den Automation-Server in Navision angeboten.
Hat auch damit nichts zu tun. Du brauchst nur vor dem Verarbeiten/zuweisen deines MailItems prüfen ob es auch ein Mailiten ist. Dort wo deine Schleife gerade ist. Poste doch mal was du an Code (in code tags) hast, dann kann dir auch geholfen werden.Es werden nicht alle methoden und Eigenschaften über den Automation-Server in Navision angeboten.
Gruß,
Peter
Hallo,
vielen dank für die intensive Hilfe !
Es läuft eigentlich gut, bis die Zeile "ol:=olItems.GetNext();" darüber stolpert, dass kein Objekt des Typs MailItem, sondern ein MeetingItem übergeben wird. Nicht über den Syntax wundern, es ist Navision eigener Code, angelehnt an Pascal und C. Der Zugriff erfolgt aber direkt über den Automation-Server von Microsoft Outlook...
"New Booking" & Co. sind die Suchbegriffe der Betreffzeile, um die gewünschten Emails zu finden. Das klappt auch soweit...
IF NOT CREATE(olApplication) THEN
ERROR('Outlook nicht gefunden!');
olNamespace := olApplication.GetNamespace('MAPI');
olFolder := olNamespace.GetDefaultFolder(6);
olItems:=olFolder.Items;
FOR Idx:=1 TO olItems.Count-1 DO
BEGIN
ol:=olItems.GetNext();
IF STRPOS(UPPERCASE(ol.Subject),'NEW BOOKING')>0 THEN
BEGIN
MESSAGE('%1',COPYSTR(ol.Subject,1,30));
END;
IF STRPOS(UPPERCASE(ol.Subject),'MODIFICATION')>0 THEN
BEGIN
MESSAGE('%1',COPYSTR(ol.Subject,1,30));
END;
IF STRPOS(UPPERCASE(ol.Subject),'CANCELLATION')>0 THEN
BEGIN
MESSAGE('%1',COPYSTR(ol.Subject,1,30));
END;
END;
vielen dank für die intensive Hilfe !
Es läuft eigentlich gut, bis die Zeile "ol:=olItems.GetNext();" darüber stolpert, dass kein Objekt des Typs MailItem, sondern ein MeetingItem übergeben wird. Nicht über den Syntax wundern, es ist Navision eigener Code, angelehnt an Pascal und C. Der Zugriff erfolgt aber direkt über den Automation-Server von Microsoft Outlook...
"New Booking" & Co. sind die Suchbegriffe der Betreffzeile, um die gewünschten Emails zu finden. Das klappt auch soweit...
IF NOT CREATE(olApplication) THEN
ERROR('Outlook nicht gefunden!');
olNamespace := olApplication.GetNamespace('MAPI');
olFolder := olNamespace.GetDefaultFolder(6);
olItems:=olFolder.Items;
FOR Idx:=1 TO olItems.Count-1 DO
BEGIN
ol:=olItems.GetNext();
IF STRPOS(UPPERCASE(ol.Subject),'NEW BOOKING')>0 THEN
BEGIN
MESSAGE('%1',COPYSTR(ol.Subject,1,30));
END;
IF STRPOS(UPPERCASE(ol.Subject),'MODIFICATION')>0 THEN
BEGIN
MESSAGE('%1',COPYSTR(ol.Subject,1,30));
END;
IF STRPOS(UPPERCASE(ol.Subject),'CANCELLATION')>0 THEN
BEGIN
MESSAGE('%1',COPYSTR(ol.Subject,1,30));
END;
END;
