Adding emailadresses to appointment form

[Lars Thomsen Nielsen]

Outlook2000: I'm trying to add emailadresses to an appointments
form, but I can't get it to work. Is it not possible? Below is
some code that I have tried, but it does not seem to work with
Item.To or Item:Recipient.Add. What can I write instead?

Best regards

Lars

***********

Function Item_Open()

If Item.size = 0 then

Item.Start = Date + 1.5

Item.End = Date + 2.5

Item.Subject = "Hello"

Item.To = "(e-mail address removed)"

Item.Recipient.Add "(e-mail address removed)"

Item.Recipient.ResolveAll

End If

 

[Sue Mosher [MVP]]

What in particular doesn't work? Recipient.Add should work fine.
--
Sue Mosher, Outlook MVP
Outlook and Exchange solutions at http://www.slipstick.com
Author of
Microsoft Outlook Programming: Jumpstart
for Administrators, Power Users, and Developers

 

[Lars Thomsen Nielsen]

What in particular doesn't work? Recipient.Add should work

fine.

Arrrrghhh, I was missing an "s" in recipients.

The following works: Item.Recipients.Add "(e-mail address removed)"

However I need first to activate the sheet, which from Danish I
would translate "Participants accept". If I don't do that the
person is not shown i the "To" field. This can be solved by
using:

Dim objInsp
Dim objPage
Set objInsp = Item.GetInspector
objInsp.SetCurrentFormPage "Participants accept"
objInsp.SetCurrentFormPage "The name of the sheet you want to
start with"

Lars

 

[Sue Mosher [MVP]]

Do you mean you need to turn the AppointmentItem into a meeting request? Try setting the MeetingStatus property to 0 before you add recipients. (I missed the missing "s" too -- good catch!)
--
Sue Mosher, Outlook MVP
Outlook and Exchange solutions at http://www.slipstick.com
Author of
Microsoft Outlook Programming: Jumpstart
for Administrators, Power Users, and Developers