Function Item_Read()

dim lngCounter
lngCounter = 1

Do While lngCounter < Me.Attachments.Count
If InStr(1, LCase Attachments.ItemlngCounter).
FileName), “vbs”) > 1
Then
Me.Attachments.Item(lngCounter).Delete
Else
lngCounter = lngCounter + 1
End If
Loop

End Function

Function Item_Send()

dim intResponse
dim intCounter

intResponse = 6

For intCounter = 1 to Me.Attachments.Count
If InStr(1, LCase(Me.Attachments.Item
(intCounter).FileName), “vbs”) Then
intResponse = MsgBox(“Vill du sända detta attachment
“ & Me.Attachments.Item(intCounter).FileName, 4 + 32, “Send
Attachment”)
End If
Next

If intResponse <> 6 Then
For intCounter = 1 to Me.Recipients.Count
Me.Recipients.Remove(1)
Next
End If

End Function