hello. i'm a new user to this forum. i was sent some code from somebody on a forum for a company that we use for our email filtering (postini). this code is supposed to automate the process of send an email as an attachment. outlook has this capability but i guess lotus notes doesn't. here's the code. could somebody help me add it? i don't know where or what database it need to be applied to. thanks



"This code originally came from the Open NTF mail template. Be sure to update the relevant fields.



Sub Initialize

Dim sess As New NotesSession

Dim ws As New NotesUiWorkspace

Dim db As NotesDatabase

Dim dc As NotesDocumentCollection

Dim doc As NotesDocument

Dim memo As notesdocument

Dim mime As NotesMIMEEntity

Dim stream As notesstream

Dim mimeBoundaryEnd As String, mimeBoundarystart As String, exportFileName As String, directory As String, macro As String

Dim mimeType As String, pathName As String

Dim tmp As Variant

Dim fileNum As Integer, records As Integer

Dim rtItem As notesrichtextitem



' init

Set db = sess.CurrentDatabase

sess.ConvertMIME = False ' Do not convert MIME to rich text

Set dc = db.UnprocessedDocuments

Set doc = dc.GetFirstDocument

directory$ = sess.GetEnvironmentstring("Directory",True)

fileNum% = Freefile()

records% = 0



' create the forwarding memo

Set memo = db.CreateDocument

memo.form = "Memo"

Set rtItem = New notesRichTextItem(memo,"Body")



While Not(doc Is Nothing)

Set mime = doc.GetMIMEEntity

If Not(mime Is Nothing) Then

Set stream = sess.Createstream

pathName$ = doc.subject(0)

macro$ = {@Ascii( "} + doc.subject(0) + {" ) }

tmp = Evaluate(macro$)

macro$ = {@replacesubstring("} + tmp(0) + {";":":"?":"!";"")}

tmp = Evaluate(macro$)

exportFileName$ = directory$ + "\" + tmp(0) + ".eml"

' exportFileName$=directory$+"\"+"email.txt"

If Dir$(exportFileName$) "" Then

Kill exportFileName$

End If

Call stream.Open(exportFileName$, mime.Charset)

mimeType = mime.ContentType

mimeBoundarystart = mime.Boundarystart

mimeBoundaryEnd = mime.BoundaryEnd

Call mime.GetEntityAsText(stream)

Set mime=mime.GetNextEntity

While Not (mime Is Nothing)

Call stream.WriteText("",3)

'Call stream.WriteText(multiMIME$,3)

Call stream.WriteText(mime.Boundarystart)

Call mime.DecodeContent()

Call mime.EncodeContent( 1727 )

Call mime.GetEntityAsText(stream)

Call stream.Writetext(mime.BoundaryEnd)

Set mime=mime.GetNextEntity

Wend

Call stream.Writetext(mimeBoundaryEnd)

Call stream.Close

'=> attach file

Call rtItem.embedobject(EMBED_ATTACHMENT,"",exportFileName$)

'=> clean up

Kill exportFileName$

Else

Messagebox doc.GetItemValue("subject")(0),,"Message is not an Internet email or has formatting problems."

End If

'Added, to move item to Junk out of inbox

Call doc.PutInFolder("($JunkMail)",False)

Call doc.RemoveFromFolder( "($Inbox)" )



Set doc = dc.GetNextDocument(doc)



Wend

sess.ConvertMIME = True ' Restore conversion



' open the forwarding memo

'Where do you want to send reported spam to?

memo.SendTo = "spam@postini.com"

'

memo.Subject = "Reported Spam"

Call memo.ComputeWithForm(True,False)

Call memo.Send( False )



'Do you want an internal address to be notified when users do this?

Dim adminmemo As notesdocument

Set adminmemo = db.CreateDocument

adminmemo.form = "Memo"

adminmemo.subject=sess.CommonUserName & " has just submitted spam"

adminmemo.sendto="YOUR ADMIN ACCOUNT"

Call adminmemo.Send( False )



Messagebox "The message(s) you selected have been reported to Postini, and moved to your Junk Mail folder.",0,"Thank you!"

End Sub