"Sie haben Post"

[Sepp776]

Servus Zusammen!
Es gibt ja schon ein paar Möglichkeiten, sich neue Mails in Pop-Postfächern anzeigen zu lassen. Allerdings rufe ich meine Mails ständig mit Outlook ab und deshalb ist mein Postfach immer leer.
Gibt es vielleicht eine Möglichkeit ein "New Mail" Event unter Windows abzufragen, um eine Meldung auf der Box anzuzeigen? Oder sogar ein Zugriff auf den Outlook-Posteingang um sich Sender/Betreff zu holen?
Ersteres wäre dann wahrscheinlich für viele E-Mail Clients verwendbar...

Ciao,
Sepp.

[DJ Mangalla]

outlook zumachen, wenn du vom pc weg bist

[Minipilot]

Hallo,

Du kannst doch outlook so einstellen, daß es Mails nicht löscht. Bei mir Outlook 2002/XP:

Extras -> EMail Konten -> vorhandenes E-Mail konto bearbeiten -> ... -> WEitere Einstellungen ->Erweitert -> und bei übermittlung "Kopien aller Nachrichten auf dem Server belassen

ggf. Vom Server nach x Tagen entfernen.

Jetzt kannst Du über die Box löschen.

Gruß

Minipilot


Solltest Du schwierigkeiten haben, den Punkt zu finden (jedes Outlook ist etwas anders) poste doch bitte die Outlook Version.

[Sepp776]

So, habe mal was gebastelt. Läuft mit Outlook XP und wahrscheinlich auch Outlook 2000. Wer's mal ausprobieren will:

Zuerst wird eine DLL namens Redemption.dll benötigt, da sonst Outlook jedesmal meckert, dass ein Programm auf die Mail-Ordner zugreifen will. Die dll gibts zb. hier: http://www.dimastr.com/redemption/download.htm

Jetzt einfach unter Menü Extras->Makro->Visual Basic Editor auf "Diese Outlook Sitzung" klicken und folgenden Code einfügen:

Code: Alles auswählen

Private Const PERSONAL_FOLDERS = "Persönliche Ordner"
Private Const INBOX = "Posteingang"
Private Const HOSTNAME = "dbox"

Private Sub Application_NewMail()
Dim clsBrowser As InternetExplorer
Dim i As Long
Dim strMessage As String
Dim lngCount As Long
Dim lngAdded As Long
Dim strSenders() As String
Dim strSubjects() As String
Dim clsPersonalFolder As MAPIFolder
Dim clsInbox As MAPIFolder
Dim clsMessage As Object
Dim clsoMessage As Object

  On Error GoTo Sub_Exit
    
  'Find Personal Folder
  For i = 1 To Outlook.Session.Folders.Count
    If Outlook.Session.Folders.Item(i).Name = PERSONAL_FOLDERS Then
      Set clsPersonalFolder = Outlook.Session.Folders.Item(i)
      Exit For
    End If
  Next i
  If clsPersonalFolder Is Nothing Then GoTo Sub_Exit
  
  'Find Inbox in Personal Folder
  For i = 1 To clsPersonalFolder.Folders.Count
    If clsPersonalFolder.Folders.Item(i).Name = INBOX Then
      Set clsInbox = clsPersonalFolder.Folders.Item(i)
      Exit For
    End If
  Next i
  If clsInbox Is Nothing Then GoTo Sub_Exit
  
  'Save No of unread Mails
  lngCount = clsInbox.UnReadItemCount
  if lngCount < 1 then goto sub_exit
  ReDim strSenders(1 To lngCount)
  ReDim strSubjects(1 To lngCount)
  
  lngAdded = 0
  'Browse all Mails in Inbox
  For i = 1 To clsInbox.Items.Count
    Set clsoMessage = clsInbox.Items.Item(i)
    Set clsMessage = CreateObject("Redemption.SafeMailItem")
    clsMessage.Item = clsoMessage
    If clsMessage.UnRead Then
      lngAdded = lngAdded + 1
      If lngAdded > lngCount Then GoTo Sub_Exit
      'Add Sendername and Subject to List
      strSenders(lngAdded) = clsMessage.SenderName
      strSubjects(lngAdded) = clsMessage.Subject
    End If
  Next i

  'Create http-Command
  strMessage = "http://" & HOSTNAME & "/control/message?nmsg=Neue Mail...%0A"
  For i = 1 To lngCount
    strMessage = strMessage & "%0AVon:     " & Left(strSenders(i), 20) & "%0A"
    strMessage = strMessage & "Betreff: " & Left(strSubjects(i), 20) & "%0A"
  Next i
  
  'Send http-Command
  Set clsBrowser = New InternetExplorer
  Call clsBrowser.Navigate(strMessage)
  While clsBrowser.Busy
    DoEvents
  Wend
  
Sub_Exit:
  Set clsBrowser = Nothing
End Sub

Zum Schluss noch die 3 Konstanten oben anpassen und unter Menü Extras->Verweise ein Häkchen bei "Microsoft Internet Controls" machen. Fertig

Ciao,
Sepp.

[Minipilot]

Hallo Sepp 776!

was ist das bzw. was tut es?



Minipilot

[Sepp776]

gibt eine Meldung auf dem TV aus, wenn Outlook eine Mail empfängt. Mit Sendername und Betreff.

Kann man auch leicht auf Reminder für Kalendereinträge erweitern, falls Interesse besteht kann ich's ja posten.

Ciao,
Sepp.

PS: Immer wieder erfrischend wie einfach VB ist

[Minipilot]

Hi Sepp776,

war denn meine Anleitung zum umstellen von Outlook so schlecht?

Das ist ja Klasse. Ich werde es mal testen! Bei mir bringt Tuxmail die Box gelegentlich zum abstürzen!