Doug Finner 25.Apr.11 11:08 AM a Web browser Domino Designer 6.5.4 Windows XP
An app has a subform that tests to see if a user is authorized to open a given document. If not, an email is sent to the employees manager alerting them that the user needs help. The email has a subject and a simple body comprised of static text and some information extracted from the doc the user is trying to open. Reader/author fields are not used.
Mail is routed from Notes to Exchange and the user's Outlook email. Mail is received as text only; no fancy formatting or hyperlinks.
User X opens a document is Db Y.
Manager for User X gets an email message with the expected subject and body.
Same user opens a different document in the same db.
Manager gets and email message with the correct subject line and a blank body.
I am cc'd on all of these emails and ALL of them, as I see them, contain a subject and body.
I've asked around and am being told that nobody else is seeing the problem except this one manager.
I've searched the forum and found only that at one point McAfee's antivirus was causing problems. We use Sophos. Given that the subject is always the same and the body format is identical, I'm having problems understanding why an anti-virus program would strip the body from some messages but not other.
If I have the user check the email source for the blank body emails, the source is blank.
Any ideas what I can check next?
TIA for your ideas.
FYI, here's the code that sends the message.
Sub NotifyUserAndTL(Session As NotesSession, db As Notesdatabase, doc As NotesDocument, DR As String)
Dim TLView As NotesView
Dim TLDoc As NotesDocument
Dim TL () As String
Dim maildoc As NotesDocument
Dim n As Integer
Set TLView = db.GetView("vwDefineTeamLeader")
Set TLDoc = TLView.GetFirstDocument
n = 1
While Not TLDoc Is Nothing
Redim Preserve TL(n)
TL(n) = TLDoc.TeamLeaderList(0)
Set TLDoc = TLView.GetNextDocument(TLDoc)
n = n + 1
Set maildoc = New NotesDocument( db )
maildoc.Form = "Memo"
maildoc.SendTo = TL
maildoc.Subject = "Training is required"
maildoc.body = "For: " & session.commonusername & " procedure: " & doc.Subassemblypn(0) & " doc rev: " & DR & " Issued: " & Cstr(doc.issuedate(0))
Call maildoc.Send( False )
Messagebox "You need a training record for this procedure. Your Team Leader has been notified but please follow up."