Victor Ulloa
Guest
|
Hi,
I'm new to Add-in Express (I buy it today!), so excuse me if my question is too basic.
I'm trying to create an add-in that will manage the ItemSend event and add one recipient to the Recipients of a meeting request.
My code looks like this:
procedure TAddInModule.adxOutlookAppEvents1ItemSend(ASender: TObject;
const Item: IDispatch; var Cancel: WordBool);
var
Meeting : MeetingItem;
Appointment : AppointmentItem;
begin
if Assigned(Item) then
begin
Item.QueryInterface(IID__MeetingItem, Meeting );
if Assigned(Meeting) then
try
ShowMessage('Reunion');
Meeting.Body := Meeting.Body+'[Esta es automatica 20:21]';
Appointment := Meeting.GetAssociatedAppointment(false);
Appointment.RequiredAttendees := Appointment.RequiredAttendees+'; sistema_reuniones2@local.tierrafertil.com';
finally
Meeting := nil;
Appointment := nil;
end;
end;
end;
.
The event is firing (I see the "Reunion" Message). If I open the sent item (from the Sent Items folder) the body of the message and the recipient list are updated.
But it seems that the message is NOT sended to the added recipient. The body, however, is updated when the other recipients get the mail... but there are no traces of the added recipient.
The added recipient does not receive the message. The mail address is correct: if I manually send a mail to this address it's received ok.
I tried both Meeting.Recipients and Meeting.GetAssociatedAppointment(false).Recipients with the same result.
What am I missing?
Thanks! |
|
Dmitry Kostochko
Add-in Express team
Posts: 2880
Joined: 2004-04-05
|
Hi Victor,
I think you should add the recipient both to the RequiredAttendees property and to the Recipients collection. Also you need to call the ResolveAll method of the Recipients collection.
|
|
Victor Ulloa
Guest
|
Thank you, Dmitry!
I already spended some hours trying an alternate way using the BeforeCheckName sample on the Delphi How-to's page, but it's too cumbersome.
Yours it's the right way! Thanks! |
|