Immer wieder hört man diese Nachricht. Da wäre
es doch schön, wenn man diese HTML-Mails gleich beim Eingang entschärfen könnte. Nun, mit Outlook
ist das möglich.
Automatisch funktioniert die
Konvertierung nur in Outlook 2000/2002,
da nur mit VBA auf Programmereignisse - wie hier das Eintreffen einer
neuen Nachricht - reagiert werden kann
Die Schritte im Einzelnen
Das folgenden Code-Beispiel reagiert auf das Eintreffen neuer
Nachrichten im Posteingang. Damit das funktioniert, musst Du die
Anweisungen im Codefenster der aktuellen Outlook-Sitzung eingeben.
Alt
+ F11 Visual Basic-Editor starten
Doppelklick
im Projekt-Explorer auf den Eintrag DieseOutlookSitzung,
wobei Du gegebenenfalls zuvor die übergeordneten Zweige
einblenden musst.
Im Codefenster folgende
Programmzeilen eingeben
Private WithEvents olNachrichten As Items
Private Sub Application_Startup()
Dim objMAPI As NameSpace
Set objMAPI = Application.GetNamespace("MAPI")
Set olNachrichten =
objMAPI.GetDefaultFolder(olFolderInbox).Items
Set objMAPI = Nothing
End Sub
Private Sub olNachrichten_ItemAdd(ByVal Item As Object)
On Error Resume Next
With Item
If .HTMLBody <> "" Then
.Body = .Body
.Save
End If
End With
Set Item = Nothing
End Sub
Private Sub Application_Quit()
Set olNachrichten = Nothing
End Sub
Visual Basic-Editor beenden
Speichern des VBA-Projekts Ja.
Ab dem nächsten Outlook-Start läuft automatisch die Ereignisbehandlung
für eingehende Nachrichten. Wenn es sich um eine HTML-Mail handelt,
wird sie sofort ins RTF-Format umgewandelt. Eingebettete Grafiken
erscheinen dann als Dateianhang.
Alle Informationen wurden einem Artikel von
entnommen.
