URGENT! COMMAND CODE HELP FOR AUTOMATING EMAIL

[Liam.M]

HEY GUYS,

need some urgent help here....I am querying my database based on a
DueDate field...and want to send an automated email to anyone that
falls within two months PRIOR to this "DueDate", so far the Code is
querying the database and trying to run a module I created, title
SendMail, however it is having trouble sending the email for some
reason... any suggestions as to why....here is the code:

Private Sub Command13_Click()
Dim rst As Object
Set rst = Me.Recordset.Clone


With rst
.MoveFirst
Do While Not .EOF
If .Fields("DueDate") >= VBA.Date And _
.Fields("DueDate") <= DateAdd("m", 2, VBA.Date) Then
DoCmd.RunCommand SendMail("EmailAddress")
End If
.MoveNext
Loop
End With

THERES THE CODE IAM USING TO CHECK THE DATABASE TO SEE IF THE DUEDATE
FALLS WITHIN THE NEXT TWO MONTHS......HERE IS THE SENDMAIL COMMAND

Option Compare Database

Dim strTo As String
Dim strsubject As String
Dim varbody As Variant
Dim strattachment1 As String
Dim strattachment2 As String


strTo = Me!EmailAddress
strsubject = "Shore Based Maintainance Agreements"
varbody = "Please check the following Agreements, it appears that they
are up for re-newal within the next two months, or they have somehow
expired, Kind Regards Admin."



Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")


Dim olNs As Outlook.NameSpace
Set olNs = olApp.GetNamespace("MAPI")
olNs.Logon


Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)


olMail.To = strTo
olMail.Subject = strsubject
olMail.Body = varbody


olMail.Send


Set olNs = Nothing
Set olMail = Nothing
Set olApp = Nothing



End Sub

YOUR HELP WOULD BE MUCH APPRECIATED!

Regards,
Liam

 

[Douglas J. Steele]

See if you can find what you need in the Access E-mail FAQ Tony Toews has at
http://www.granite.ab.ca/access/email.htm