[VB.NET] auf bestimmtes Outlook Postfach zugreifen

June · 19. November 2014

Moin,

ich hab ne kleine Anwendung geschrieben, welche mir E-Mails aus meinem Hauptpostfach ausließt und diese in eine Listbox schreibt.
Der Name meines Postfaches ist nirgends Deklariert, außer dem E-Mail Profilnamen "Outlook", der kann aber mehrer Postfächer beinhalten.

Nun zu meiner Problematik:
Ich möchte dass meine Anwendung aus einem bestimmten Postfach die Mails aus Outlook ausließt.
Um genauer zu sein aus dem zusätzlich geöffnetem Exchange-Postfach "Backup".

Outlook Struktur:

Anwendung:

Code:

Imports Microsoft.Office.Interop
Imports System.Reflection

Public Class Form1

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

 Dim oApp As Outlook.Application = New Outlook.Application()

 Dim oNS As Outlook.NameSpace = oApp.GetNamespace("mapi")
 oNS.Logon("Outlook", Missing.Value, False, True) ' TODO:

 Dim oInbox As Outlook.MAPIFolder = oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
 Dim oItems As Outlook.Items = oInbox.Items

 ' Nur ungelesene Nachrichten abrufen
 'oItems = oItems.Restrict("[Unread] = true")

 Dim oMsg As Outlook.MailItem
 Dim i As Integer

 For i = 1 To oItems.Count

 oMsg = oItems.Item(i)

 ListBox1.Items.Add(DateTime.Now & ": Nachricht Nummer: " & i)
 ListBox1.Items.Add(DateTime.Now & ": Absender: " & oMsg.SenderName)
 ListBox1.Items.Add(DateTime.Now & ": Betreff: " & oMsg.Subject)
 ListBox1.Items.Add(DateTime.Now & ": Zeitpunkt: " & oMsg.ReceivedTime)
 ListBox1.Items.Add(DateTime.Now & ": Text: " & oMsg.Body)
 ListBox1.Items.Add("---------------")

 Next

 oNS.Logoff()
 oApp = Nothing
 oNS = Nothing
 oItems = Nothing
 oMsg = Nothing

 End Sub
End Class

Vielleicht hat ja schon einmal jemand von euch mit einer ähnlichen Problematik gekämpft und kann mir nen Tipp geben.

Gruß

Anzeige

Nützliche Suchen

[VB.NET] auf bestimmtes Outlook Postfach zugreifen

Videos zum Themenbereich