Funktion zur Ermittlung der ungelesenen Nachrichten im Posteingang von Outlook.
Outlook muß installiert sein!
Läuft auch unter Outlook 2010.
Function unread_mails()
'Funktion zum überprüfen auf neue Mails im Ordner "Posteingang"
'In Variable "u" wird die Anzahl der ungelesenen Nachrichten übergeben
Dim unread_items, mapi, inbox, mail
Set outObj = CreateObject("Outlook.Application")
u = 0 'Zähler ungelesene Nachrichten zurücksetzen
Set mapi = outObj.GetNamespace("MAPI")
Set inbox = mapi.GetDefaultFolder(6) 'Zeiger auf Posteingang setzten - Posteingang = Folder(6)
For Each mail In inbox.Items 'überprüfen auf ungelesene Mails
If mail.unread Then unread_items = unread_items + 1
Next
'Ausgabe als Msgbox
MsgBox "Sie haben " & unread_items & " ungelesene Mails in Ihrem Posteingang", vbOKOnly, "Posteingang überprüft"
End Function
Hier eine kleine Funktion die überprüft ob ein Prozess läuft oder nicht , sie baut auf VBS / WSH und WMI auf und liefert TRUE oder FALSE zurück.
Funktion :
Function CheckProcess(name)
'------------------ check for running process
Dim ObjProcess
Set ObjProcess = OBJWMI.ExecQuery("select * from win32_process where name='" & name & "' ")
If ObjProcess.Count <> 0 Then
CheckProcess = True
Else
CheckProcess = False
End If
Set ObjProcess = Nothing
End Function
diese Funktion kann z.B. so eingebunden werden
Beispiel :
Do
BoolCkProc = CheckProcess("notepad.exe")
WScript.Sleep 5000
Loop Until BoolCkProc = False
Benötigt wird natürlich das WMI interface
Dim StrComputer : StrComputer = "." '-- lokaler Rechner
Dim OBJWMI : Set OBJWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & StrComputer & "\root\cimv2")
Mit diesem Tool kann man sich ISO-Images auf den USB-Stick kopieren und diese über ein Menü starten.
Das Tool bringt einige Plugins für Freeware-Tools mit, die man sich dann auch direkt herunterladen kann:
Plugins für z.B.:
- MemTest
- Boot&Nuke
- Ubuntu
- Xubuntu
- Parted Magix
- Kaspersky Recue Disk
- AVIRA AntiVir Rescue CD etc.
Problem:
Nach der Installation eines RollupPacks für Exchange 2007 funktioniert OWA nicht mehr. Es erscheint keine Fehlermeldung sondern es wird nur eine leere Seite angezeigt. In der URL-Leiste wird folgendes angezeigt:
Alle Dienste laufen und auch der Zugriff der mobilen Geräte über Outlook Anywhere etc. funktioniert.
Lösung:
Bei der Installation des RollupPacks hat es ein Problem bei der IIS-Aktualisierung gegeben. Damit wurde die OWA-Seite nicht aktualisiert oder die Installation des RollupPacks wurde abgebrochen.
Hierfür gibt es zwei Lösungsansätze:
1.)Neuinstallation RollupPack
Man kann den Rollup-Pack einfach nochmals installieren. WICHTIG: Die Installation des RollupPacks kann einige Zeit in Anspruch nehmen (über 30 Minuten)...die Installation NICHT abbrechen.
2.)nachträglich Powershell-Skript für OWA-Update
Man kann das OWA-Update auch manuell anstarten. Hierzu startet man die Exchange-Verwaltungs-Shell und gibt hier folgenden Befehl ein:
updateowa.ps1
Nach wenigen Sekunden ist die OWA-Seite wieder online und alles funktionier wie gewohnt.
Trotzdem würde ich den RollupPack in einer ruhigen Minute erneut installieren.
Problem:
Bei der Überprüfung des Exchange Servers mittels Best-Practise-Analyser wird angezeigt, dass der Schwellwert für den Junkspeicher zu hoch oder garnicht definiert ist.
Erklärung
Der Schwellenwert für Junkspeicher gibt an, ab wann eine Mail in den Junk-Mail-Ordner im Postfach verschoben wird.
Der Standard-Wert von Microsoft ist "4".
Lösung:
Man kann diesen Wert ganz einfach über die Powershell ändern. Hierzu öffnet man die Exchange-Verwaltungs-Shell und gibt folgenden Befehl ein:
Set-OrganizationConfig -SCLJunkThreshold 4
In diesem Beispiel wird der Schwellenwert auf den Microsoft-Standardwert "4" gesetzt
“Das einzig sichere System müsste ausgeschaltet, in einem versiegelten und von Stahlbeton ummantelten Raum und von bewaffneten Schutztruppen umstellt sein.”