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.
"Sie haben Post"
-
- Semiprofi
- Beiträge: 1173
- Registriert: Samstag 1. September 2001, 00:00
"Sie haben Post"
Philips Sat
Astra 19.2°
Astra 19.2°
-
- Erleuchteter
- Beiträge: 432
- Registriert: Sonntag 1. September 2002, 10:51
-
- Interessierter
- Beiträge: 23
- Registriert: Donnerstag 28. November 2002, 16:28
Outlook umkonfigurieren
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.
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.
-------------------------------------------------------------------------
Ich hab schon ganz andere Dinge nicht geschafft!
Ich hab schon ganz andere Dinge nicht geschafft!
-
- Semiprofi
- Beiträge: 1173
- Registriert: Samstag 1. September 2001, 00:00
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:
Zum Schluss noch die 3 Konstanten oben anpassen und unter Menü Extras->Verweise ein Häkchen bei "Microsoft Internet Controls" machen. Fertig
Ciao,
Sepp.
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
Ciao,
Sepp.
Philips Sat
Astra 19.2°
Astra 19.2°
-
- Interessierter
- Beiträge: 23
- Registriert: Donnerstag 28. November 2002, 16:28
-
- Semiprofi
- Beiträge: 1173
- Registriert: Samstag 1. September 2001, 00:00
-
- Interessierter
- Beiträge: 23
- Registriert: Donnerstag 28. November 2002, 16:28
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!
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!
-------------------------------------------------------------------------
Ich hab schon ganz andere Dinge nicht geschafft!
Ich hab schon ganz andere Dinge nicht geschafft!