Outlook AddIn InBox wechseln

Cliplicht

Newbie
Registriert
Okt. 2014
Beiträge
2
Hallo liebe Community,

ich hab ne kleine Frage, vielleicht hat jemand schon mal sich mit dem Thema beschäftigt. Und zwar ich hab von meiner Firma ein Projekt bekommen wo es darum geht E-Mail Anhänge automatisch zu speichern und dann zu drucken. Mein Add-IN funktioniert soweit das einzige was mir fehlt ist halt, dass wenn jemand z.B 5 E-Mail Adressen in seinem Outlook drinnen hat, möchte ich gerne eine bestimmte E-Mail rausfiltern und mir dann die Inbox raus nehmen und aus der InBox dann die ganzen E-Mail Items.
Das ganze klingt jetzt echt easy usw. zu dem ich ja schon fast alles hab :) .

Info: ich hab Programmierkenntnisse(C#,C++,VB) und Gegoogelt hab ich auch schon, ich war auch auf der Microsoft Outlook-AddIN doku seite aber da war nicht wirklich was brauchbares.


Danke im Vorraus :)

Mein Code:
Code:
Outlook.Application app = new Outlook.Application();
Outlook.MAPIFolder inBox = app.ActiveExplorer().Session.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox);
Outlook.Items allInBoxItems = inBox.Items;
Outlook.MailItem newEmail = null;
 
Was ist denn jetzt das Problem? ODer sind die 4 Zeilen dein gesamter Code von "zu dem ich ja schon fast alles hab"?
 
miac schrieb:
Was ist denn jetzt das Problem? ODer sind die 4 Zeilen dein gesamter Code von "zu dem ich ja schon fast alles hab"?

Ja das Problem ist das er mir immer die Inbox von meiner E-Mail Adresse nimmt, ich aber gerne die Inbox der Support Email haben will.

da er immer auf Outlook.OlDefaultFolders.olFolderInbox sich den DefaultFolders holt, aber ich nicht weis wie ich mir die Inbox z.B von "Support@blalala.de" holen kann. bzw. die DefaultInbox von der "Support@blalala.de"
 
Ich hab das mal kurz recherchiert und würde probier mal mit
Code:
For Each a In appOL.Session.Accounts
      MSOutlook.MAPIFolder sentFolder = a.DeliveryStore.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox);
Next

Ansonsten laut diesem thread
Mit MAPI Namespace so in der Art
Code:
Dim ns As Outlook.NameSpace
Set ns = ol.GetNamespace("MAPI")

und dann die accounts mit ns.Accounts und mit Schleife durch
 
Zurück
Oben