Creating an appointment in a specific folder 
Author Message
 Creating an appointment in a specific folder


I'm using this code to create appointments in Outlook from Access. The
problem is that the appoitment is created in my default calendar folder. I
want it to be created in Public folder on the server.

Thanks for help

Sub AddAppt()
    Dim objOutlook As Outlook.Application
    Dim apptOutlook As Outlook.AppointmentItem
    Set objOutlook = CreateObject("Outlook.Application")
    Set apptOutlook = objOutlook.CreateItem(olAppointmentItem)
    With apptOutlook
        'Set date and time of the appointment
        .Start = Date & " 2:00 pm"

        'Set length of appointment in minutes
        .Duration = 60

        'Set Subject, Body, and Location of the appointment
        .Subject = "Sales Meeting"
        .Body = "The sales meeting starts promptly at 2:00 PM." _
            & vbCrLf & "Please be on time."
        .Location = "Conference Room 1"

        'Set the attendees which must attend
        .RequiredAttendees = "Nancy Davolio;Andrew Fuller"

        'Set reminder for 10 minutes before appointment
        .ReminderMinutesBeforeStart = 10
        .ReminderSet = True
    End With
    Set apptOutlook = Nothing
    Set objOutlook = Nothing
End Sub

Tue, 10 Aug 2004 23:09:47 GMT  
 [ 1 post ] 

 Relevant Pages 

1. Creating appointment in a specific folder

2. Create appointment in new folder

3. How to create appointment items under non default folder

4. VB create appointment in Public Folder

5. Create appointment to a delegate folder

6. Creating appointments in public folders

7. how to create a custom field in a specific folder with using VBA

8. Creating a post to a specific public folder

9. Create a rule to save specific attachments from specific messages

10. Outlook specific appointment items to Excel?

11. How to loop thru all appointments at a specific time

12. How do I remove a specific appointment from calendar using VBScript


Powered by phpBB® Forum Software