Hallo zusammen,
ich habe eine Frage da ich absolut nicht verstehe warum folgendes Problem auftritt.
Ich schreibe eine Anwendung die nachdem Sie gestartet wurde den Posteingang von Outlook überwachen, und beim ankommen neuer Mails diese witerverarbeiten soll.
Folgender Code funktioniert und beim ankommen iner neuen Mail wird die MessageBox geöffnet:
[highlight=vbnet]
Public Class frmBackCheck
Private Sub frmBackCheck_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim olApp As New Microsoft.Office.Interop.Outlook.Application
AddHandler olApp.NewMail, AddressOf Me.eventhandlerNewMail
End Sub
Public Sub eventhandlerNewMail()
MsgBox("1. Meldung")
End Sub
End Class
[/highlight]
Der folgende, bis auf das auszulösende Ereignis identische Code funktioniert aber nicht:
[highlight=vbnet]
Public Class frmBackCheck
Private Sub frmBackCheck_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim olApp As New Microsoft.Office.Interop.Outlook.Application
AddHandler olApp.NewMail, AddressOf Me.eventhandlerNewMail
End Sub
Public Sub eventhandlerNewMail()
lblTest.Text = ("1. Meldung")
End Sub
End Class
[/highlight]
...und um es mit ganz einfachen Worten auszudrücken: Ich verstehe zum Teufel noch mal nicht warum!
Habt Ihr eine Idee in welche Richtung ich diesbezüglich suchen könnte?
Schon vorab vielen Dank & einen schönen Tag!
Rolf
ich habe eine Frage da ich absolut nicht verstehe warum folgendes Problem auftritt.
Ich schreibe eine Anwendung die nachdem Sie gestartet wurde den Posteingang von Outlook überwachen, und beim ankommen neuer Mails diese witerverarbeiten soll.
Folgender Code funktioniert und beim ankommen iner neuen Mail wird die MessageBox geöffnet:
[highlight=vbnet]
Public Class frmBackCheck
Private Sub frmBackCheck_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim olApp As New Microsoft.Office.Interop.Outlook.Application
AddHandler olApp.NewMail, AddressOf Me.eventhandlerNewMail
End Sub
Public Sub eventhandlerNewMail()
MsgBox("1. Meldung")
End Sub
End Class
[/highlight]
Der folgende, bis auf das auszulösende Ereignis identische Code funktioniert aber nicht:
[highlight=vbnet]
Public Class frmBackCheck
Private Sub frmBackCheck_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim olApp As New Microsoft.Office.Interop.Outlook.Application
AddHandler olApp.NewMail, AddressOf Me.eventhandlerNewMail
End Sub
Public Sub eventhandlerNewMail()
lblTest.Text = ("1. Meldung")
End Sub
End Class
[/highlight]
...und um es mit ganz einfachen Worten auszudrücken: Ich verstehe zum Teufel noch mal nicht warum!
Habt Ihr eine Idee in welche Richtung ich diesbezüglich suchen könnte?
Schon vorab vielen Dank & einen schönen Tag!
Rolf
Comment