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

    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?

    Thanks!

    Elizabeth

    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. #2
    New Lounger
    Join Date
    Dec 2009
    Location
    Denver
    Posts
    2
    Thanks
    0
    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
  •