November 19, 2008 02:35am pst

1. capricorn1 1,164,378
2. LSMCons... 643,742
3. boag2000 584,207
4. DatabaseMX 439,605
5. peter57r 402,190
6. harfang 277,504
7. matthews... 220,454
8. jimhorn 192,522
9. TextReport 132,746
10. MikeToole 120,513
11. omgang 115,275
12. frankytee 99,014
13. koutny 94,835
14. GRayL 90,855
15. angelIII 90,320
16. irudyk 89,074
17. LennyGray 81,272
18. mbizup 79,933
19. Rick_Ric... 79,617
20. hnasr 76,855
21. cactus_d... 71,848
22. JDettman 69,055
23. eghtebas 68,487
24. jmoss111 68,371
25. rorya 64,932

1. capricorn1 1,785,223
2. LSMCons... 875,861
3. DatabaseMX 742,330
4. peter57r 639,699
5. boag2000 624,119
6. harfang 459,052
7. jimhorn 388,512
8. matthews... 369,718
9. jefftwilley 353,737
10. mbizup 275,650
11. frankytee 234,267
12. MikeToole 225,563
13. stevbe 222,014
14. omgang 187,510
15. GRayL 176,661
16. rockiroads 166,783
17. LPurvis 144,870
18. JDettman 138,915
19. angelIII 133,378
20. TextReport 133,246
21. ragoran 112,130
22. koutny 109,860
23. dqmq 106,796
24. Rick_Ric... 103,217
25. eghtebas 96,062

08.12.2008 at 06:56AM PDT, ID: 23641187

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

9.9

VBA Code from Access to Outlook Appointment - Problems with Recurrence

Asked by ovie911 in Access Coding/Macros, Access Forms, Visual Basic v1.0.5.x

Tags: Microsoft, Outlook, Access, 2003

Hello,
I am trying to automate an Outlook Appointment from Access and having difficulties with the recurrence code. Below is what I have so far and it works - except it creates the appointment weekly rather than monthly. What I am trying to do is create an appointment that has a recurrence of 60, 30 and on the expiration date.

Also, in the following line:
.Subject = [LastName] & ("Expiring Employment Agreement on") & [ExpirationDate]
It does not add any spaces between either of the &. So it looks like DoeExpiringEmploymentAgreementon8/12/08. How do I get the spaces in there?
Any help would be much appreciated! Thanks in advance!Start Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

           
           
             Dim objOutlook As Outlook.Application
    Dim objCalendar As Outlook.MAPIFolder
    Dim objAppt As Outlook.AppointmentItem
    
    Set objOutlook = CreateObject("Outlook.Application")
    Set objCalendar = OpenMAPIFolder("\Mailbox - Legal - US\Calendar")
    Set objAppt = objCalendar.Items.Add
    
    With objAppt
        .AllDayEvent = True
        .Subject = [LastName] & ("Expiring Employment Agreement on") & [ExpirationDate]
        .BusyStatus = olFree
        .GetRecurrencePattern.RecurrenceType = olRecursMonthly
        .GetRecurrencePattern.Interval = 2
        .GetRecurrencePattern.PatternStartDate = [ExpirationDate] - 60
        .GetRecurrencePattern.PatternEndDate = [ExpirationDate]
        .Display
        .Save
    End With

           
         

Keywords: VBA Code from Access to Outlook Ap…

	Title
1	Appointments Disappearing
2	Advice on becoming self employed fixi…
3	VBA to create Outlook Calendar Appoi…
4	Appointments form ?
5	2-weekly recurring appointment
6	Invitting Attendees from MS Access in …

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628

VBA Code from Access to Outlook Appointment - Problems with Recurrence

Asked by ovie911 in Access Coding/Macros, Access Forms, Visual Basic v1.0.5.x

Tags: Microsoft, Outlook, Access, 2003

About this solution