LotusScript run "Before New Mail..." breaks HTML mail

[paulhung]

Hi,

I've been trying to run a script that strips certain attachments before they arrive in your mail. I set the script to run "Before New Mail Arrives" in the template, and in one line of code, have a forall statement:

Forall obj In doc.Items
End Forall

Where doc is "session.DocumentContext". If I comment out the Forall, HTML mail comes in just fine. If I don't, the mail comes in screwed up.

Can anyone help?

 

[paulhung]

Here's my code.. still can't see why it's breaking html mail:

Sub Initialize

extensions("vbs&quot = "VBS attachments"
filenames("mybabypic.exe&quot = "VB Worm"
filenames("nakedwife.exe&quot = "VB Worm"

Dim session As New NotesSession
Set doc = session.DocumentContext

Dim emphasize As NotesRichTextStyle
Set emphasize = session.CreateRichTextStyle
emphasize.Bold = True
emphasize.NotesColor = COLOR_RED

Dim FileExtension As String
Dim LogEntries As String
Checker = False

Forall obj In doc.Items
If (obj.Type = ATTACHMENT) Then
Set attach = doc.GetAttachment(obj.Values(0))
filename = Lcase(attach.Source)
FileExtension = Right$(filename, Len(filename)-Instr(1,filename,".&quot)
Do Until (Instr(1,FileExtension,".&quot=0)
FileExtension = Right$(FileExtension, Len(FileExtension)-Instr(1,FileExtension,".&quot)
Loop
If (Iselement(extensions(FileExtension)) = True) Or (Iselement(filenames(Lcase(filename)))) Then
Checker = True
Call attach.ExtractFile( Trim(filelocation) & Trim(filename) & Trim(doc.UniversalID))
Call attach.Remove
End If
End If
End Forall
End If
End Sub