This is vbscript that I use to use:
*********************************************************************
Const EMBED_ATTACHMENT = 1454
Set nSession = CreateObject(“Notes.NotesSession”)
‘Gets the current user’s mail database
Set db = nSession.GetDataBase(“”,””)
If Not db.IsOpen = True Then
db.OpenMail
End If
Set doc = db.CreateDocument
doc.Form = “Memo”
doc.Sendto = “myemail@mail.com”
doc.Subject = “Test message”
doc.Body = “Did you get it correctly”
‘Set up the embedded object and attachment and attach it
sAttachment = “C:\DatabaseRename.log”
Set AttachME = doc.CreateRichTextItem(“Attachment”)
Set EmbedObj = AttachME.EmbedObject _
(EMBED_ATTACHMENT, “”, sAttachment, “Attachment”)
doc.Send(False)
*********************************************************************
Save as a vbscript and make a scheduled task out of it.
****NEW IDEA****
Not that the above is necessarily wrong, it assumes you know how to use VBScript and a system timer to throw the event at 7:30. Within the Notes client though, there is an easier way, if your account has the rights to create agents. Open your mail file (this does not have to be done in your mail file, it just seems to be the most logical server based database to do it from), go to the Create menu, and choose Agent. This will likely start as a “Simple Action(s)” type of agent. Use the “Add Action…” button in the lower left, and from the first drop down choose “Send Mail Message”. Fill out the information as needed and click OK. Then schedule the agent to kick off at 7:30. You can set it to just run once in the schedule interface, or it can run everyday. If the message needs to change everyday, you may need a different approach, but I did not want to make assumptions. I can help if I have more information.
Mike K
mkinder@acadiasolutions.com
Discuss This Question: