If I have a standard email, that goes to the same people on every Tuesday of every week ... is it possible to automate this within Outlook rather than manually send it every week ?
If so ... can someone PLEASE let me know.
Thanks a lot :)
Printable View
If I have a standard email, that goes to the same people on every Tuesday of every week ... is it possible to automate this within Outlook rather than manually send it every week ?
If so ... can someone PLEASE let me know.
Thanks a lot :)
OK I have made some progress. I have the following, which works. If its a Tuesday when you open Outlook it sends the message.
Can anyone supply HTML tags so I can increase font size and change font colour ?
If so then I'm done (apart from making the time specific on a Tuesday rather than jsut Tuesday, otherwise if Outlook is closed and re-opened on a Tuesday it sends another copy !).
Ta.
VB Code:
Public WithEvents myItem As Outlook.MailItem Private Sub Application_Startup() If Weekday(Now) = vbTuesday Then SendMyMail End If End Sub Sub SendMyMail() Set myItem = Outlook.CreateItem(olMailItem) myItem.To = "[email protected]" myItem.Subject = "Car Valeting" myItem.HTMLBody = "<center>If you wish to book your car in for a wash / valet tomorrow</center><br>" myItem.HTMLBody = myItem.HTMLBody & "<center>please email me asap</center><br>" ' myItem.HTMLBody = myItem.HTMLBody & "<br>" myItem.HTMLBody = myItem.HTMLBody & "<center><br>Car keys to be left in the box provided on reception Wed 9am, cash to me</center></br>" ' myItem.HTMLBody = myItem.HTMLBody & "<br>" myItem.HTMLBody = myItem.HTMLBody & "<center>Wash = £5.00</center><br>" myItem.HTMLBody = myItem.HTMLBody & "<center>Wash & Hoover = £10.00</center><br>" myItem.HTMLBody = myItem.HTMLBody & "<center>Full Valet = £20.00</center><br>" ' myItem.HTMLBody = myItem.HTMLBody & "<br>" ' myItem.HTMLBody = myItem.HTMLBody & "<br>" myItem.HTMLBody = myItem.HTMLBody & "<center>If you have not used the service before, please supply your car reg.no, make, model & colour</center><br>" ' myItem.HTMLBody = myItem.HTMLBody & "<br>" myItem.HTMLBody = myItem.HTMLBody & "<center>Thank you</center>" myItem.Send End Sub
Its ok ... i found the tags !