Results 1 to 2 of 2
  1. #1
    New Lounger
    Join Date
    Jun 2010
    Thanked 0 Times in 0 Posts

    I am trying to figure out how to create a messagebox that would trigger whenever a calendar appointment is saved without attendees (please see code below). The trouble with the code below is that it does not automatically trigger when an appointment is saved. Also, when I run the macro, I get a warning message that a program is trying to access my contacts. Is there any way to bypass that?



    Sub InvitationReminder()
    Dim b As New Outlook.Application
    Dim a As Object
    Dim x As Integer
    Dim y As String
    Set a = b.ActiveInspector.CurrentItem
    If a.Recipients.Count = 0 Then
    y = "Would you like to invite attendees?"
    x = MsgBox(y, vbYesNo + vbDefaultButton1)
    If x = vbYes Then
    Cancel = True
    End If
    End If
    End Sub

  2. Get our unique weekly Newsletter with tips and techniques, how to's and critical updates on Windows 7, Windows 8, Windows XP, Firefox, Internet Explorer, Google, etc. Join our 480,000 subscribers!

    Excel 2013: The Missing Manual

    + Get this BONUS — free!

    Get the most of Excel! Learn about new features, basics of creating a new spreadsheet and using the infamous Ribbon in the first chapter of Excel 2013: The Missing Manual - Subscribe and download Chapter 1 for free!

  3. #2
    New Lounger
    Join Date
    Dec 2009
    Thanked 0 Times in 0 Posts
    I haven't done a lot of Outlook VBA, but it seems to me that you could add your code to the onSave event for the meeting request form.

Posting Permissions

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