VBS Funktion: ungelesene Mails im Posteingang von Outlook ermitteln

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

Überprüfen ob Prozess läuft mit VBS/WSH

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")

EXCEL VBA: Ermitlung letzte Zeile/Spalte im Worksheet

Problem:
Weil ich es mir nicht merken kann...hier die Ermittlung der letzten Zeile/Spalte unter VBA in Excel

Lösung:

VBA
'letzte Zeile in "A" suchen
Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

'letzte Spalte in Zeile 1 suchen
Spaltenanzahl = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column


Quelle: schmittis-page.de: Letzte Zeile/Spalte eines Datenbereiches finden
Kategorien: VBA
Tags für diesen Artikel:

USB: MultiBootISOs - ISOs booten vom USB-Stick

MultiBootISOs

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.


Lizenz: Freeware
Installation nötig: nein
Neustart nötig: nein

Download direkt: DownloadManager Hope-This-Helps: MultiBootISOs-2.1.5.0

Exchange 2007: Nach Rollup Pack Installation zeigt OWA nur leere Seite und URL ...reason=0

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:
https://mail.yourdomain.com/owa/auth/logon.aspx?url=https://mail.yourdomain.com/owa/&reason=0

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.

Quelle: exchangeserverpro.com: Exchange 2007 OWA stops working with “reason=0” error

Exchange 2007: Schwellenwert für Junkspeicher nicht konfiguriert bzw. neu konfigurieren

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

Quelle: Technet: Schwellenwert für Junkspeicher nicht konfiguriert
Kategorien: 2007
Tags für diesen Artikel:
“Das einzig sichere System müsste ausgeschaltet, in einem versiegelten und von Stahlbeton ummantelten Raum und von bewaffneten Schutztruppen umstellt sein.”
Gene Spafford (Sicherheitsexperte)