Email Auto Expiration

I currently send out a notes email that has the usual expiriation on it, I usually send out 1 a week but then it takes 30 days for it to delete in the users inbox, is there anyway I can set the notes email I send out to automaticly delete after 10 days instead of 30.

Thanks

Subject: Email Auto Expiration

Matthew,

One approach might be to send the email in a different way than the norm. If you send the email as an auto opening document from a database, you can manipulate that document however you like and when the user opens their email they’ll see exactly what you want them to.

Here’s some sample code:

Dim ws As New NotesUIWorkspace

Dim uidoc As NotesUIDocument

Dim doc As NotesDocument

Dim s As New NotesSession

Dim db As NotesDatabase



Set uidoc = ws.CurrentDocument

Set db = s.CurrentDatabase



Set doc = New NotesDocument(s.CurrentDatabase)

doc.Form = "Auto Open"

doc.ServName = db.Server

doc.DatBase = db.FilePath

doc.DocuID = uidoc.Document.UniversalID

doc.SendTo = "whoever/yourou"

doc.Subject = "Your subject goes here"

doc.Send(False)

Subject: RE: Email Auto Expiration

thank you for the reply chuck, they currently do see what they want to, its just that it builds up in the mail over time and they want something that will delete over time because after 7 days the information becomes useless