Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Westi on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

How Do I Automate Sending Of Test Emails Through L/Notes ?

Status
Not open for further replies.

MarkDicken

IS-IT--Management
Jun 5, 2000
55
CH
How Do I Automate Sending Of Test Emails Through L/Notes ?

I would like to send a Test Email message every hour using my MS Windows AT Command to simply send a test email to my personal internet Email address.

Does anyone have a simple solution.

Regards

Mark Dicken
(Working In A Lotus Notes Environment)
 
Please can someone put me in the direction of "An Agent"

Many Thanks In Advance ...

Mark Dicken
 
Use the followin code:
***Note***Change doc.SendTo = "Dennis Gardin" to
doc.SendTo = "Any Name or Group"

***Note*** If you have standard text creat a form and use the for name in this (field doc.Form = "Memo") instead of Memo

Set the option on the agent to run once, and then set your schedule for every hour or whatever you want.



Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
doc.Form = "Memo"
doc.SendTo = "Dennis Gardin"
doc.Subject = "Here's the document you wanted"
Call doc.Send( False )
End Sub
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top