Grizlore
Active Member
- Joined
- Aug 22, 2006
- Messages
- 259
Hi all
The code below is to create a meeting/appointment from a Userform and then email the details via Outlook
Everything works fine, however I can't find how to make the meeting reoccurring (or examples of)
Could anyone give me a pointer please?
Thanks
Any help would be greatly appreciated
The code below is to create a meeting/appointment from a Userform and then email the details via Outlook
Everything works fine, however I can't find how to make the meeting reoccurring (or examples of)
Could anyone give me a pointer please?
Thanks
Code:
Private Sub CommandButton5_Click()
Dim objOL 'As Outlook.Application
Dim objAppt 'As Outlook.AppointmentItem
Dim SecurityTeam As String
Dim MeetingDetail As String
Dim site As String
Site = UserForm1.ComboBox1
Const olAppointmentItem = 1
Const olMeeting = 1
Team= UserForm1.ComboBox2
Set objOL = CreateObject("Outlook.Application")
Set objAppt = objOL.CreateItem(olAppointmentItem)
With objAppt
.Subject = "My Test Appointment"
.Start = Now + 1
.End = DateAdd("n", 5, .Start)
.MeetingStatus = olMeeting
.RequiredAttendees = ""
.optionalAttendees = ""
.Resources = Team
.Location = "locallllll"
.display
End With
Set objAppt = Nothing
Set objOL = Nothing
End Sub
Any help would be greatly appreciated