Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Outlook / Calendaring / January 2007

Tip: Looking for answers? Try searching our database.

Calendar + Email

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
A+P - 10 Jan 2007 20:37 GMT
I'm running Outlook 2003 on Exchange 2003 server.
I would like to schedule an automated email that will be send out to the
same recipients with the same msg everyday from Mon-Fri in the morning based
on a reoccuring item I enter into my calendar.
All I have so far is the following code.  How do I tell Outlook to determine
which reoccuring calendar item I want this message to be sent.

Private Sub Application_Reminder(ByVal Item As Object)
 Dim objMsg As MailItem
 ' create new outgoing message
 Set objMsg = Application.CreateItem(olMailItem)
  ' your reminder notification address
 objMsg.To = "test@test.com"
 objMsg.CC = "testcopy@test.com"
 objMsg.Subject = "Reminder: " & Item.Subject
 ' handle calendar items that can generate reminders
 Select Case Item.Class
    Case olAppointment '26
       objMsg.Body = _
         "Start: " & Item.Start & vbCrLf & _
         "End: " & Item.End & vbCrLf & _
         "Location: " & Item.Location & vbCrLf & _
         "Details: " & vbCrLf & Item.Body
 End Select
 ' send the message
 objMsg.Send
 Set objMsg = Nothing
End Sub
Brian Tillman - 11 Jan 2007 15:47 GMT
> I'm running Outlook 2003 on Exchange 2003 server.
> I would like to schedule an automated email that will be send out to
[quoted text clipped - 24 lines]
>  Set objMsg = Nothing
> End Sub

news://msnews.microsoft.com/microsoft.public.outlook.program_vba may be a
better group.
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.