Results 1 to 10 of 10
  1. #1
    Super Moderator
    Join Date
    Dec 2000
    Location
    Salt Lake City, Utah, USA
    Posts
    9,507
    Thanks
    0
    Thanked 4 Times in 4 Posts

    Re: Redemptin & meeting invitation (Outlook 2002)

    <P ID="edit" class=small>(Edited by JohnBF on 28-Jun-05 20:06. Corrected olMeetingItem to olAppointmentItem.)</P>I don't know Redemption, but I would expect that

    oAppointment should be olAppointmentItem (value 1)

    and

    oMeeting should be olMeeting (value 1)

    Also, Outlook VB Help notes that if you are doing this in Script you should be using the value of the constant, not it's name.
    -John ... I float in liquid gardens
    [acronym title="Gday mate!"][/acronym] [acronym title="What up Dude?"][/acronym] UTC -7±DS

  2. #2
    Plutonium Lounger
    Join Date
    Dec 2000
    Location
    Sacramento, California, USA
    Posts
    16,775
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: Redemptin & meeting invitation (Outlook 2002)

    As far as I can see, it's doing exactly what you told it to: You're creating and appointment item and sending it. I've worked with Redemption, but I think the problem may be more in Outlook than in Redemption.
    Charlotte

  3. #3
    Star Lounger
    Join Date
    Feb 2001
    Location
    San Francisco, California, USA
    Posts
    67
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: Redemptin & meeting invitation (Outlook 2002)

    Actually, I'm not using the pre-defined Outlook constant names, but am defining my own constant names. Hence, oMeeting = 1 and oAppointment = 1.

    As long as I defined them as constants with the correct Outlook values, it doesn't really matter what I call them.

  4. #4
    Star Lounger
    Join Date
    Feb 2001
    Location
    San Francisco, California, USA
    Posts
    67
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: Redemptin & meeting invitation (Outlook 2002)

    Charlotte,

    If I tell it to do the same thing without using Redemption - i.e., have it send an appointment item with the MeetingStatus set to 1 - the recipient receives a meeting invitation (with Accept and Decline buttons), rather than just a plain appointment.

    I'm trying to do exactly the same thing with Redemption. But when I use Redemption, the appointment item doesn't seem to get changed to a meeting item, even afer I change the MeetingStatus of the appointment item to 1.

    Bob

  5. #5
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Redemptin & meeting invitation (Outlook 2002)

    <P ID="edit" class=small>(Edited by jscher2000 on 29-Jun-05 11:31. )</P>When you use Redemption, I think you have access to both the underlying Outlook object and the Redemption methods and properties. Can you assign the problematic property on the underlying object and work around the problem that way? Really, you only need Redemption where (1) using built-in properties and methods generates annoying security prompts, or (2) there are no built-in properties or methods for what you need to do...

    Added: In reading your code more carefully, it appears that there is no underlying Outlook "meeting item," only an Outlook appointment item. Not sure whether this is related to the problem.

  6. #6
    Super Moderator
    Join Date
    Dec 2000
    Location
    Salt Lake City, Utah, USA
    Posts
    9,507
    Thanks
    0
    Thanked 4 Times in 4 Posts

    Re: Redemptin & meeting invitation (Outlook 2002)

    To get pedantic, there is such as thing as a "MeetingItem", but:

    "A MeetingItem object represents a change to the recipient's Calendar folder initiated by another party or as a result of a group action. Unlike other Microsoft Outlook objects, you cannot create this object. It is created automatically when you set the MeetingStatus property of an AppointmentItem object to olMeeting and send it to one or more users. They receive it in their inboxes as a MeetingItem."

    ... so your point is still valid.
    -John ... I float in liquid gardens
    [acronym title="Gday mate!"][/acronym] [acronym title="What up Dude?"][/acronym] UTC -7±DS

  7. #7
    Star Lounger
    Join Date
    Feb 2001
    Location
    San Francisco, California, USA
    Posts
    67
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: Redemptin & meeting invitation (Outlook 2002)

    I'm not sure what the problematic property is. I do set the MeetingStatus on the underlying Outlook object. When I Send, I Send the Redemption meeting object to avoid the security warnings.

    As far as there not being an underlying Outlook meeting item, you're right. You can't directly create an Outlook meeting item. According to Microsoft's documentation:

    "Using the MeetingItem Object
    Unlike other Microsoft Outlook objects, you cannot create this object. It is created automatically when you set the MeetingStatus property of an AppointmentItem object to olMeeting and send it to one or more users. They receive it in their inboxes as a MeetingItem. "

  8. #8
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Redemptin & meeting invitation (Outlook 2002)

    I changed a couple things in getting this to work in my environment, but hopefully it translates back to your environment:

    <code>' Designed to run as a VBS file on the desktop for testing
    Dim olApp, olApptItem, olAttendee, olSafeApptItem
    Const oAppointment = 1
    Const oMeeting = 1
    ' Create reference to running instance of Outlook
    Set olApp = GetObject(, "Outlook.Application")
    ' Create a new appointment item
    Set olApptItem = olApp.CreateItem(oAppointment)
    ' Set meeting attributes
    olApptItem.Subject = "Very important meeting!"
    olApptItem.Start = #6/30/2005 1:30:00 PM#
    olApptItem.Duration = 90
    olApptItem.Location = "Wherever"
    olApptItem.MeetingStatus = oMeeting
    ' Create Redemption item for sensitive operations
    Set olSafeApptItem = CreateObject("Redemption.SafeAppointmentItem")
    ' Link Redemption item to Outlook item
    olSafeApptItem.Item = olApptItem
    ' Set display name, and type as "optional"
    Set olAttendee = olSafeApptItem.Recipients.Add("username@domain.com ")
    olAttendee.Type = 2
    ' Resolve names to actual addresses
    olSafeApptItem.Recipients.ResolveAll

    ' Send without annoying dialogs
    olSafeApptItem.Send</code>

    Note: the address resolution was really critical! I picked this up from one of the pages I archived when I downloaded Redemption in 2003.

  9. #9
    Star Lounger
    Join Date
    Feb 2001
    Location
    San Francisco, California, USA
    Posts
    67
    Thanks
    0
    Thanked 1 Time in 1 Post

    Redemption & meeting invitation (Outlook 2002)

    Hello. I'm writing a script to invite Outlook users to a meeting. As written, the script creates an appointment in the sender's calendar, which is fine. It also sends an appointment email to the recipient - and that's the problem. I'd like it to send a meeting invitation, complete with Accept and Decline buttons, rather than just an appointment.

    Can anyone offer any suggestions? I've tried several permutations of the following code, to no avail.

    Thanks in advance for your help.

    Regards,

    Bob

    Const oAppointment = 1
    Const oMeeting = 1

    Set olApp = CreateObject ("Outlook.Application")
    Set olApptItem = olApp.CreateItem(oAppointment)
    Set olSafeApptItem = CreateObject ("MyRed.MySafeAppointmentItem")
    Set olSafeMeetingItem = CreateObject ("MyRed.MySafeMeetingItem")

    With olApptItem
    .Subject = "Very important meeting!"
    .Start = #6/30/2005 1:30:00 PM#
    .Duration = 90
    .Location = "Wherever"
    .MeetingStatus = oMeeting
    End With

    olSafeApptItem.Item = olApptItem

    With olSafeApptItem
    Set olOptionalAttendee = .Recipients.Add ("myRecipient@myCompany.com")
    olOptionalAttendee.Type = 2
    End With

    With olSafeMeetingItem
    .Item = olSafeApptItem
    .Send
    End With

  10. #10
    Star Lounger
    Join Date
    Feb 2001
    Location
    San Francisco, California, USA
    Posts
    67
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: Redemptin & meeting invitation (Outlook 2002)

    Thank you thank you thank you! It worked.

    It was indeed the address resolution that was the sticking point. Without it, no email got sent. With it, a perfect meeting request was sent.

    You have made my week! Thanks again.

Posting Permissions

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