Samstag, 24. Oktober 2009

Automatisch BCC abhängig von Email-Konto unter Outlook 2007 versenden als VBA Macro

Ich stand letztes Mal vor dem Problem, dass ich MS Outlook 2007 dazu bringen wollte, abhängig vom Email-Konto automatisch eine "Blind Carbon Copy" (BCC) versenden zu lassen. Die Google Recherche brachte auf Anhieb, dass Carbon Copy (CC) ganz einfach mit "Email-Regeln" unter Outlook realisiert werden konnte. Nur "BCC" wird von MS Outlook als Email-Regel für eine automatische Weiterleitung nicht unterstützt. :-(
Das Lustige daran ist, dass Thunderbird diese Funktion von Haus aus kann. Also gab ich nicht auf und suchte hartnäckig weiter.
Microsoft verlinkt auf der Seite "Office Online - Marketplace" zu einem Outlook Add-in "Auto BCC/CC for Microsoft Outlook". Es scheint, dass dieses Problem Microsoft längst bewußt ist, aber absichtlich nichts dagegen macht. Dieses Add-in kann man 15 Tage lang gratis testen. Danach würde es 29,95 USD kosten. Dieses Add-in hätte meinen Anforderungen exakt entsprochen und funktionierte auf Anhieb. Der Preis hätte mich persönlich nicht abgeschreckt, das Programm zu kaufen. Doch bevor ich wirklich Geld dafür ausgebe, wollte ich halbwegs sicher gehen, dass nicht vielleicht doch Freeware dafür bereits existiert.
Bei meiner Recherche fand ich immer wieder Anleitungen, wie man automatisch BCC unter Outlook mit VBA Macro realisieren konnte. Auf der Seite "Automatische Blindkopien von verschickten Mails in Outlook" erklärt Fritz H. Jörn sehr ausführlich wie man dieses Makro in Outlook einbaut, welches wiederum auf Sue Mosher's aufbaut. Das Macro von Herr Jörn funktionierte auf Anhieb. Das Einzige, was mir noch fehlte, war, dass nur BCC automatisch verschickt werden sollte, wenn Emails von einem bestimmten Email-Konto versendet wurden.
Also habe ich versucht, dieses Macro von Jörn so zu modifizieren, dass der Name des Email-Kontos abgefragt wird. Mir kam sehr gelegen, dass ab Outlook 2007 die Abfrage des Email-Kontonamens bei VBA Macro mit einem einfachen Befehl abfragt werden kann.

Herausgekommen ist folgender Code (funktioniert nur ab MS Outlook 2007):
 Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
' see www.Outlookcode.com/d/code/autobcc.htm#S1
' siehe www.Joern.De/AutoBcc.htm
Dim objRecip As Recipient
Dim strMsg As String
Dim res As Integer
Dim strBcc As String
Dim strAccountName As String ' added by LCY (WWW.LCY.NET)
' #### USER OPTIONS ####
' address for Bcc -- must be SMTP address or resolvable
' to a name in the address book
' Add here your email account name
strBcc = "SOMEONE@SOMEWHERE.COM" '<---CHANGE HERE----
strAccountName = "EMAILACCOUNTNAME" '<---CHANGE HERE---- added by LCY (WWW.LCY.NET)
If strAccountName = Item.SendUsingAccount Then ' added by LCY (WWW.LCY.NET)
On Error Resume Next
Set objRecip = Item.Recipients.Add(strBcc)
' handle case of user canceling Outlook security dialog
If Err = 287 Then
strMsg = "Could not add a Bcc recipient " & _
"because the user said No to the security prompt." & _
" Do you want still to send the message?"
res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
"Security Prompt Cancelled")
If res = vbNo Then
Cancel = True
Else
objRecip.Delete
End If
Err.Clear
Else
objRecip.Type = olBCC
objRecip.Resolve
If Not objRecip.Resolved Then
strMsg = "Could not resolve the Bcc recipient. " & _
"Do you want still to send the message?"
res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
"Could Not Resolve Bcc Recipient")
If res = vbNo Then
Cancel = True
End If
End If
End If
End If ' added by LCY (WWW.LCY.NET)
Set objRecip = Nothing
End Sub
Obiger Source Code wurde mit Hilfe von "codeformatter" formatiert.

Sehr praktisch ist auch die Erklärung von Herrn Jörn, wie man ein selbstgebasteltes Macro durch Eigensignatur mit einem Zertifikat ausstattet, damit nicht immer ein Fenster mit einer Sicherheitsabfrage bei einer höheren Sicherheitstufe kommt.

Ich möchte zusätzlich noch anmerken, dass das obige VBA Macro nicht mal annähernd die Funktionalität und den Komfort des kommerziellen Programmes "Auto BCC/CC for Microsoft Outlook" bietet. Lediglich für mein Vorhaben ist es vollkommen ausreichend. ;-)

Quellen und weiterführende Literatur:

Samstag, 10. Oktober 2009

Agnitum Outpost Firewall FREE

Da ich bei einigen guten Bekanntschaften immer wieder bei Computerproblemen aushelfen "muß", ok so schlimm ist es auch nicht ;-), bin ich häufig damit konfrontiert, dass ich nach dem Aufsetzen/Wiederherstellen vor einem "nackten" Betriebssystem ohne weitere Anwendungssoftware stehe. Man meint es ja gut mit den Rechner von Bekannten und würde auch gleich die notwendigsten Standardanwendungen mitinstallieren. Dabei möchte man aber ungern die selbst gekauften Programme auf so einem Rechner installieren. Man findet ab und zu bei vorinstallierten Rechnern zwar vorinstallierte Testversionen wie z.B. Norton Internet Security Suite, Microsoft Office,... Doch diese sind, wie der Name schon sagt, Testversionen die meist zeitlich begrenzt benutzt werden können.
Seit einiger Zeit hält aber ein erfreulicher Trend an, dass viele Freeware Anwendungen den kommerziellen Anwendungen in der Funktionalität und Bedienung sehr nahe gekommen sind, wie z.B. Open-Office vs. MS Office,...
Außerdem bieten immer mehr etablierte Hersteller von kommerzieller Software den Endanwendern eine abgespeckte Gratisversion ihrer kommerziell vertriebenen Anwendung an. Dies hat mich dazu bewogen, eine eigene Sparte mit dem Namen "Freeware" in meinem Blog einzuführen, wo ich nach und nach Programm vorstelle, die ich im Einsatz habe.

Agnitum Outpost Firewall:
Seit mein Kumpel Mario mich auf die Outpost Firewall von Agnitum vor paar Jahren aufmerksam gemacht hat, habe ich die Outpost Firewall im Einsatz und ich habe es bisher nicht bereut. Davor hatte ich die Norton Internet Security Suite verwendet, die von Version zu Version im Jahrestakt immer noch mehr Ressourcen von meinem Computer beanspruchte. Doch das störte mich noch nicht so sehr. Der Zeitpunkt der Verbannung kam erst, als der Computer bei mir mal abstürzte und die Norton Internet Security sich nicht mehr startete. Und alle Neu-/Deinstallationsversuche scheiterten. Nur durch eine komplette Neuinstallation des Betriebssystem und anschließende Neuinstallation von Norton Internet Security Suite ließ sich das Problem lösen. Das Problem tauchte auch bei anderen von mir bekannten Rechnern auf. Mittlerweile gibt es von Symantec "Clean" Programme, die angeblich restlos hartnäckige Programmteile von Betriebsystem entfernen können.
Vor kurzem habe ich festgestellt, dass die Firma Agnitum eine kostenlose Free Version ihrer Outpost Firewall Pro anbietet. Die kostenlose Outpost Firewall Free Version enthält gegenüber der Kaufversion Pro nur die Firewall Funktionalität.


Die Outpost Firewall Free Version soll laut "MSN Computer & Technik" die Installation verweigern, wenn der Computer an eine Domäne angemeldet ist, was im privaten Bereich seltener der Fall ist. Sehr erfreulich ist auch, dass von dieser Free Version auch eine 64-Bit Version angeboten wird.
Eine Erklärung und Anleitung für die Outpost Firewall gibt es bei MSN - "So schützen Sie Ihren PC mit der Outpost Firewall Free" (siehe Link unten)

Mir ist bekannt, dass es noch andere kostenlose Personal Firewall Programme existieren. Bis vor kurzen habe ich meistens die kostenlose Firewall ZoneAlarm Free installiert.

Quellen und weiterführende Literatur: