Calendar + Email

**Brian Tillman**

A+P wrote:

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 = "
objMsg.CC = "
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

news://msnews.microsoft.com/microsof...ok.program_vba may be a
better group.

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Calendar + Email	A+P	Outlook - Calandaring	1	January 11th 07 03:47 PM
can i email my calendar to associates	ej	Outlook - Calandaring	1	June 21st 06 05:58 PM
Outlook calendar email	HKA	Outlook - Calandaring	1	April 19th 06 12:31 PM
Dragging an email to the Calendar drops the email body text	yan	Outlook - Calandaring	2	February 1st 06 01:23 AM
How Do I Email a Calendar	Debbie	Outlook - Calandaring	0	January 9th 06 11:15 PM