Email with Lotus Notes, but with a twist

[joe8915]

Main Objective:
Create Auto Email with Lotus Notes

This is what I have so far;
On the report I have a field for User name, and Date (in which I want the report go to the user)

What I am looking for is when the user signs into the Database, if the user name and date matches the date sign into the database, this report will go the user email.

As of now I am manually sending the email with a macro “Sendobject”

I have been working off and on for about month to make this work.

Not being good with code presents a main problem.

Additional information;

Running 2007

Database Name = database2
Report Name = Tickler Report
Qry Name = Rpttickler

This is how my query is set up;
SELECT tblProclog.Closeout, [TblTask Comments].Taskcomp_ID, tblProclog.ID, tblProclog.TCdate, tblProclog.TCChk, tblProclog.LookupTaskcomments, tblProclog.[Contractor Name], tblProclog.[Task Order], tblProclog.ContractType, tblProclog.[Org Number], tblProclog.[Contract Number], tblProclog.CS, tblProclog.CO, tblProclog.Package, tblProclog.[Dtd Closed], tblProclog.[Rev Compl Dtd], tblProclog.NTP, tblProclog.AdminNotes, [TblTask Comments].Comment, [TblTask Comments].closeout, [TblTask Comments].Date, [TblTask Comments].Requester, [TblTask Comments].Emaildate, [TblTask Comments].Cor, tblProclog.COR AS COR_tblProclog
FROM tblProclog LEFT JOIN [TblTask Comments] ON tblProclog.ID = [TblTask Comments].Taskcomp_ID
WHERE (((tblProclog.CS) Like [Enter Specialist Last Name Only] & "*") AND ((tblProclog.[Dtd Closed]) Is Null) AND (([TblTask Comments].closeout)=No) AND (([TblTask Comments].Requester) Is Not Null) AND (([TblTask Comments].Emaildate) Is Not Null And ([TblTask Comments].Emaildate)<Date()+1));

Any help would be most appreciative

 

[joe8915]

I forgot to mention, like to thank Ed Metcalfe for this suggestion to start this thread.

New to this forum, can you tell

 

[joe8915]

Ed, if you happen to read this. Is there anyway that I can Incorporate this code, for my above problem

Sub ShowUserRosterMultipleUsers()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim i, j As Long

Set cn = CurrentProject.Connection

' The user roster is exposed as a provider-specific schema rowset
' in the Jet 4.0 OLE DB provider. You have to use a GUID to
' reference the schema, as provider-specific schemas are not
' listed in ADO's type library for schema rowsets

Set rs = cn.OpenSchema(adSchemaProviderSpecific, _
, "{947bb102-5d43-11d1-bdbf-00c04fb92675}")

'Output the list of all users in the current database.

Debug.Print rs.Fields(0).Name, "", rs.Fields(1).Name, _
"", rs.Fields(2).Name, rs.Fields(3).Name

While Not rs.EOF
Debug.Print rs.Fields(0), rs.Fields(1), _
rs.Fields(2), rs.Fields(3)
rs.MoveNext
Wend

End Sub