Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Mit VBA Posteingang überprüfen bei Outlook2003

Frage Entwicklung VB for Applications

Mitglied: hellas

hellas (Level 1) - Jetzt verbinden

05.03.2014 um 16:04 Uhr, 2985 Aufrufe, 6 Kommentare

Hallo,

Ich bekomme jeden Tag eine automatisch generierte Mail von einem externen Server.
Wenn diese Mail kommt, funktioniert das externe System.

Der Haken ist, dass eine Mail die nicht kommt auch nicht sofort auffällt.

Da ich auf das externe System keinen Zugriff habe, war mein Ansatz folgender

- den Posteingang täglich via VBA überprüfen nach eine Mail mit dem Absender Alive@abc.de und aktuellem Datum
- Wenn vorhanden, dann OK
- Wenn nicht vorhanden sende Warnung in Form einer Email.

Hat da jemand ein paar Codeschnipsel woraus ich mir so etwas bauen könnte ?

Danke
Mitglied: Pjordorf
05.03.2014 um 16:22 Uhr
Hallo,

Zitat von hellas:
Der Haken ist, dass eine Mail die nicht kommt auch nicht sofort auffällt.
Und du meinst das deine neue Mail auffällt?

Da ich auf das externe System keinen Zugriff habe, war mein Ansatz folgender
Nach Eingang im Posteingang diese per Regel:
1. Eine Nachricht auf dein Desktop aufpoppen lassen
2. Eine MP3 wiedergeben lassen z.B. "Er ist wider da"
3. Die nachricht in eigens geschaffenen Ordner Verschieben wo du sofort siehst "x Anzahl neue nachrichten" und dir Klar ist diese tammen nur von diesen Server
4. Die Nachricht per E-Mail in Kopie weitereleiten an Konto XYZ
5. Die Nachricht auf einen Nadeldrucker ausdrucken (Akustische Signalisierung das eben ein neue...)

Und wenn all das eben nicht Passiert, dann gab es keine Mail....


Gruß,
Peter
Bitte warten ..
Mitglied: colinardo
05.03.2014, aktualisiert um 18:33 Uhr
Hallo hellas,
schließe mich Pjordorf an, ich mache sehr viel mit Outlook und VBA, aber das was du vorhast kann man zwar machen aber ich würde es eher anders angehen. Ein anderes System den Server überwachen lassen, und dieses verschickt nur dann eine Mail wenn das System nicht mehr läuft. So sollte es eigentlich sein und nicht anders herum ...ist effektiver...

Grüße Uwe
Bitte warten ..
Mitglied: hellas
06.03.2014 um 08:04 Uhr
Ja ich gebe euch ja recht, das es effektiver wäre den Server mit einem anderen System überprüfen zu lassen und eine Meldung zu bekommen wenn er nicht mehr läuft aber ich habe halt keinen Zugriff auf diesen Server und der Provider schickt mir nun mal einmal am Tag eine Mail das der noch lebt.

Jeden Morgen die Nationalhymne erklingen zu lassen wenn die Mail kommt ist natürlich eine Möglichkeit. Aber schöner fände ich es eine Mail zu bekommen, wenn es nicht funktioniert. Ist das ein großer Aufwand ? Ich kenne mich ein wenig mit VBA für Excel aus aber leider nicht mit VBA für Outlook.
Bitte warten ..
Mitglied: colinardo
06.03.2014, aktualisiert 18.06.2015
Dann mach es halt mit diesem AutoIT-Script (kompiliere es zu einer *.exe), das lässt sich besser zeitlich Steuern und mit dem Taskplaner ausführen.
Variablen in Zeilen 4-6
01.
#NoTrayIcon 
02.
#include <Date.au3> 
03.
; Variablen ---- 
04.
$suchEMail = "Alive@abc.de" 
05.
$mailTo = "benachrichtigung@domain.de" 
06.
$mailBetreff =  "Achtung positive Server-Nachricht wurde nicht gefunden" 
07.
;--------------- 
08.
dim $found = False 
09.
$objOL = ObjCreate("Outlook.Application") 
10.
$folderObjects = $objOL.GetNamespace("MAPI").GetDefaultFolder(6) 
11.
 
12.
For $obj In $folderObjects.Items 
13.
	if $obj.SenderEmailAddress = $suchEMail then 
14.
		$msgTime = StringMid($obj.ReceivedTime,7,2) & "." & StringMid($obj.ReceivedTime,5,2) & "." & StringMid($obj.ReceivedTime,1,4) 
15.
		if _NowDate() = $msgTime then 
16.
			$found = True 
17.
		endif 
18.
	Endif 
19.
Next 
20.
if not $found then 
21.
	msgbox(0,"","Achtung positive Server-Nachricht wurde nicht gefunden, sende Benachrichtigungsmail!",2) 
22.
	sendMail() 
23.
Else 
24.
	MsgBox(0,"","Nachricht wurde gefunden. Beende Script.",2) 
25.
endif 
26.
 
27.
func sendMail() 
28.
	$mail = $objOL.CreateItem(0) 
29.
	$mail.Subject = $mailBetreff 
30.
	$mail.To = $mailTo 
31.
	$mail.Send 
32.
EndFunc
Grüße Uwe
Bitte warten ..
Mitglied: hellas
06.03.2014 um 15:05 Uhr
Super das hilft mir sehr

Er macht jetzt nur noch die Sicherheitsabfrage, ob er auf mein Mail Verzeichnis zugreifen darf.

Hab schon geschaut, da gibt es Programm um die Sicherheitsstufe von Outlook anzupassen.

Danke
Bitte warten ..
Mitglied: colinardo
06.03.2014, aktualisiert um 16:22 Uhr
Er macht jetzt nur noch die Sicherheitsabfrage, ob er auf mein Mail Verzeichnis zugreifen darf.
Das ist eines der vielen Mankos von Outlook 2003, eine Lösung ist entweder über MAPILab Advanced Security for Outlook oder Redemption, oder Upgrade denn ab 2007 hast du folgende Einstellungsmöglichkeit im Security Center von Outlook:

931f3806650ce3733a372971f9bd8f62 - Klicke auf das Bild, um es zu vergrößern

Grüße Uwe
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Mit Excel VBA Outlook Posteingang nach Kennzeichnungsstatus auslesen
gelöst Frage von hellasVB for Applications14 Kommentare

Hallo, ich möchte gerne in einer Excel Liste alle Emails aus meinem Posteingang haben, die zur Nachverfolgung gekennzeichnet sind. ...

VB for Applications
Outlook VBA, Alternative zu NewMailEx, neue bereits gelesene Email im Posteingang
gelöst Frage von joha1908VB for Applications12 Kommentare

Hallo zusammen, ich habe ein Skript in VBA für Outlook, dass bei neuen Emails den PDF-Anhang unter bestimmten Bedingungen ...

Microsoft Office
In Outlook von der Ansicht Kalender in Posteingang per VBA-Makro wechseln
gelöst Frage von coliMicrosoft Office2 Kommentare

Hallo zusammen, ich möchte in meiner Excel-Mappe wenn ich ein Makro starte das Fenster Outlook in den Vordergrund bringen ...

Windows 7
Netzwerkanmeldeinformationen überprüfen
Frage von HenereWindows 76 Kommentare

Hallo zusammen, auf einem meiner Laptops (Win7) kommt seit heute früh diese Meldung: Der Laptop ist in einem AD, ...

Neue Wissensbeiträge
Windows 10

Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App

Tipp von kgborn vor 11 StundenWindows 101 Kommentar

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...

Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 13 StundenSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 1 TagInternet3 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 1 TagDSL, VDSL2 Kommentare

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Heiß diskutierte Inhalte
TK-Netze & Geräte
VPN-fähige IP-Telefone
Frage von the-buccaneerTK-Netze & Geräte16 Kommentare

Hi! Weiss noch jemand ein VPN-fähiges IP-Telefon mit dem man z.B. einen Heimarbeitsplatz gesichert anbinden könnte? Habe nur einen ...

Windows Server
GPO nur für bestimmte Computer
Frage von Leo-leWindows Server13 Kommentare

Hallo Forum, gern würde ich ein Robocopy script per Bat an eine GPO hängen. Wichtig wäre aber dort der ...

Windows Server
KMS Facts for Client configuration
Frage von winlinWindows Server13 Kommentare

Hey Leute, wir haben in unserem Netz nun einen neuen KMS Server. Haben Bestands-VMs die noch nicht aktiviert sind. ...

Windows Tools
Software-Tool zum Entfernen von bösartigem Windows
Frage von emeriksWindows Tools11 Kommentare

Hi, siehe Betreff hat das jemals irgendjemand schonmal sinnvoll eingesetzt? (MRT) E.