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: 75.670  | #35
◀ Previous sample Next sample ▶
Determine the "identity" of your emails. Set with SAM the sender and the folder folder for sent items with the help of rules.

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
Category-Manager Category-Manager
With Category-Manager you can group your Outlook categories, share them with other users, filter a folder by category, automatically categorize new emails, and more. You can use the Addin even for IMAP.
email  Send a message