automatically run a script a certain day of the week?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi everyone,
I'm sure there's a way to do this, but I haven't found it yet... I have an
email that I need to send out every Tuesday, and I just want to automate it
so I don't have to worry about it. Does anyone know how to do that? I looked
in the rules wizard, but it looks like that just runs when email messages are
received...

Here's my code:
Sub SendReminder()
Dim olInstance As Outlook.Application
Dim emReminder As Outlook.MailItem
Dim Today As Date


' Set the Application object
Set olInstance = New Outlook.Application

Set emReminder = olInstance.CreateItem(olMailItem)
emReminder.To = "<<<<email address>>>>>"

Today = Date
emReminder.Subject = "Email Maintenance"

emReminder.Importance = olImportanceHigh
emReminder.BodyFormat = olFormatHTML
emReminder.HTMLBody = CreateEmailBody(Today)

'Send the email - wait for Outlook to stop prompting
emReminder.Send

End Sub


If anyone could help, that would be great!
Thanks in advance.
 
Hi Clarke,

you could start your script from within Application_Startup. It then
starts every time OL starts.

Private Sub Application_Startup()
If weekday(date,vbMonday)=2 Then
' It´s Tuesday
Endif
End Sub
 
Back
Top