How do I update appts in outlook?

[greaseman]

I have a form that contains a field for inputting a date. I would like to have this date get transferred to Outlook's calendar as an appointment. My kicker is, I need to have this appointment show up on several people's calendars at the same time.

Would I use a group concept in outlook, in other words, set up a group containing all desired names?

How might I do this?

Any ideas or suggestions are most welcome.

Thanks in advance!

 

[KeithG]

Use this code to create a new appointment.

Dim OL As New Outlook.Application
Dim olAppointment As Outlook.MeetingItem

Set olAppointment = OL.CreateItem(olAppointmentItem)


Now you can set it properties for the correct time and receipents.

 

[greaseman]

KeithG,

Thanks for your response..... what and how would I set it for a group of recipients?

 

[KeithG]

olAppointment.Recipients.Add ("[EmailAddress]")
...
...
...

 

[greaseman]

KeithG,

I tried what you suggested, but "JohnnyBoy" showed me his Outlook calendar, and there was nothing in his Outlook calendar. Here is the code I used:

Dim outobj As Outlook.Application
Dim outappt As Outlook.AppointmentItem
Dim outNS As Outlook.NameSpace
Dim strFind As String
Dim outCalFolder As Outlook.MAPIFolder
Dim colCalendar As Outlook.Items
Dim dHour As Date

dHour = #12:00:00 PM#
Set outobj = CreateObject("Outlook.application")
Set outNS = outobj.GetNamespace("MAPI")
Set outCalFolder = outNS.GetDefaultFolder(olFolderCalendar) ' 9
Set colCalendar = outCalFolder.Items

strFind = "[Subject] = " & gstrHoneywellPubNo
Set outappt = colCalendar.Find(strFind)
If Not outappt Is Nothing Then
outappt.Delete
End If

Set outappt = outobj.CreateItem(olAppointmentItem)

With outappt
.Recipients.Add ("MyEmailAddress")
.Recipients.Add ("JohnnyBoy")
.Subject = gstrHoneywellPubNo
.Start = TheDate & " " & dHour
.Duration = 200
.Save

End With

End Sub

Is this correct? It showed on my calendar with two attendees, but why would it not show anything on JohnnyBoy's? Thanks for all your help!!

 

[KeithG]

Did he except the invitation?

 

[greaseman]

I checked his e-mail, and he did not have an invitation.

 

[KeithG]

did you put JohnyBoy's email address in the line

outappt.Recipients.Add ("JohnyBoy@sbc.com")

 

[greaseman]

No... I put his address in as "JohnnyBoy" only. Also, when I checked my calendar, and then clicked "invite attendees", and then sent the invitation, he then recieved the appointment.

Is there something I'm missing from my code that would handle all this, or should my code, the way it is, do the ..."invite...." automatically??

t's the end of my work day, so hopefully we can continue this tomorrow?? In the meanwhile, thank you so much for your help today!! Looking forward to getting this resolved with your assistance.

Perhaps you have an example of code that works for you that you could share?

Thanks again!

 

[greaseman]

KeithG,

Good morning. Any further thoughts on my questions?

 

[KeithG]

I think you need a .Send after the .Save to send the meeting/Appointment to JohhnyBoy.

 

[greaseman]

KeithG,

Thanks!! I'll try that and see what comes of it.

I really appreciate your help.

 

[greaseman]

KeithG,

Still no go!! I just checked JohnnyBoy's e-mail and he had nothing, even after I used the .Send.

Isn't this fun ????