Send New Appointments Automatically by Email

Get a notification by email as soon as someone adds an appointment to your calendar.

Last modified: 2006/11/10 | Accessed: 37.508  | #35
◀ Previous sample Next sample ▶
ReplyAll ReplyAll
ReplyAll alerts you before unintentionally replying all, or if you are a confidential BCC recipient of the e-mail.

This sample monitors your calendar, and every new appointment will also be sent by e-mail to a certain address. For that, the appointment must be flagged as a meeting item.

If you don't want to monitor the default calendar but a subfolder if it, then remove the apostrophe before the second Set Folder statement, and replace the name with the name of your subfolder.

tip  How to add macros to Outlook
Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
  Dim Ns As Outlook.Namespace
  Dim Folder As Outlook.MapiFolder

  Set Ns = Application.GetNamespace("MAPI")
  Set Folder = Ns.GetDefaultFolder(olFolderCalendar)
  ' Set Folder = Folder.Folders("name of your subfolder")
  Set Items = Folder.Items
End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
  Dim Appt As Outlook.AppointmentItem

  If TypeOf Item Is Outlook.AppointmentItem Then
    Set Appt = Item
    Appt.Recipients.Add "abc@domain.com"
    Appt.MeetingStatus = olMeeting
  End If
End Sub
Reporter Reporter
VBOffice Reporter is an easy to use tool for data analysis and reporting in Outlook. A single click, for instance, allows you to see the number of hours planned for meetings the next month.
email  Send a message