[VB.NET] auf bestimmtes Outlook Postfach zugreifen

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von June, 19. November 2014 .

  1. 19. November 2014
    Zuletzt von einem Moderator bearbeitet: 15. April 2017
    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:
    postf.jpg

    Anwendung:
    anwendung.jpg

    Code:
    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ß
     
  2. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.