Results 1 to 3 of 3

Thread: Schedule sending an email ?

  1. Oct 31st, 2006, 09:19 AM #1
    TheBionicOrange
    TheBionicOrange is offline

    Thread Starter
    Frenzied Member TheBionicOrange's Avatar
    Join Date
    Apr 2001
    Location
    Cardiff, UK
    Posts
    1,818

    Resolved Schedule sending an email ?

    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
    Last edited by TheBionicOrange; Oct 31st, 2006 at 11:11 AM.
    Reply With Quote Reply With Quote
  2. Oct 31st, 2006, 10:28 AM #2
    TheBionicOrange
    TheBionicOrange is offline

    Thread Starter
    Frenzied Member TheBionicOrange's Avatar
    Join Date
    Apr 2001
    Location
    Cardiff, UK
    Posts
    1,818

    Re: Schedule sending an email ?

    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:
    1. Public WithEvents myItem As Outlook.MailItem

    2.   

    3.  
    4. Private Sub Application_Startup()

    5.     If Weekday(Now) = vbTuesday Then

    6.         SendMyMail

    7.     End If

    8.     

    9. End Sub

    10.  
    11. Sub SendMyMail()

    12.     Set myItem = Outlook.CreateItem(olMailItem)

    13.     myItem.To = "[email protected]"

    14.     myItem.Subject = "Car Valeting"

    15.     myItem.HTMLBody = "<center>If you wish to book your car in for a wash / valet tomorrow</center><br>"

    16.     myItem.HTMLBody = myItem.HTMLBody & "<center>please email me asap</center><br>"

    17.   '  myItem.HTMLBody = myItem.HTMLBody & "<br>"

    18.     myItem.HTMLBody = myItem.HTMLBody & "<center><br>Car keys to be left in the box provided on reception Wed 9am, cash to me</center></br>"

    19.   '  myItem.HTMLBody = myItem.HTMLBody & "<br>"

    20.     myItem.HTMLBody = myItem.HTMLBody & "<center>Wash = £5.00</center><br>"

    21.     myItem.HTMLBody = myItem.HTMLBody & "<center>Wash & Hoover = £10.00</center><br>"

    22.     myItem.HTMLBody = myItem.HTMLBody & "<center>Full Valet = £20.00</center><br>"

    23.   '  myItem.HTMLBody = myItem.HTMLBody & "<br>"

    24.   '  myItem.HTMLBody = myItem.HTMLBody & "<br>"

    25.     myItem.HTMLBody = myItem.HTMLBody & "<center>If you have not used the service before, please supply your car reg.no, make, model & colour</center><br>"

    26.   '  myItem.HTMLBody = myItem.HTMLBody & "<br>"

    27.     myItem.HTMLBody = myItem.HTMLBody & "<center>Thank you</center>"

    28.  
    29.     

    30.     myItem.Send

    31. End Sub
    Last edited by TheBionicOrange; Oct 31st, 2006 at 11:10 AM.
    Reply With Quote Reply With Quote
  3. Oct 31st, 2006, 11:10 AM #3
    TheBionicOrange
    TheBionicOrange is offline

    Thread Starter
    Frenzied Member TheBionicOrange's Avatar
    Join Date
    Apr 2001
    Location
    Cardiff, UK
    Posts
    1,818

    Re: Schedule sending an email ?

    Its ok ... i found the tags !
    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Forum Rules


Click Here to Expand Forum to Full Width