foute datum in outlook na import uit access

[rbouwman]

ik heb gebruik gemaakt van http://msdn.microsoft.com/en-us/library/aa159619(v=office.11).aspx. wanneer ik een export maak uit access naar outlook wordt de afspaak naar de verkeerde datum in outlook gezonden. een afspraak van 27-12-2010 wordt op 9-7-2003 weggeschreven. kent iemand de oplossing?

 

[OctaFish]

Dan zul je eerst de code moeten laten zien die je gebruikt; het kan zijn dat je exportdatum niet de goede opmaak heeft.

 

[rbouwman]

code

ik maak gebruik van onderstaande code

Private Sub cmdAddAppt___Click()
On Error GoTo Add_Err

DoCmd.RunCommand acCmdSaveRecord

If Me!AddedToOutlook = True Then
MsgBox "This appointment is already added to Microsoft Outlook"
Exit Sub
Else
Dim objOutlook As Outlook.Application
Dim objAppt As Outlook.AppointmentItem
Dim objRecurPattern As Outlook.RecurrencePattern

Set objOutlook = CreateObject("Outlook.Application")
Set objAppt = objOutlook.CreateItem(olAppointmentItem)

With objAppt
.Start = Me!ApptDate & " " & Me!ApptTime
.Duration = Me!ApptLength
.Subject = Me!Appt

If Not IsNull(Me!ApptNotes) Then .Body = Me!ApptNotes
If Not IsNull(Me!ApptLocation) Then .Location = Me!ApptLocation
If Me!ApptReminder Then
.ReminderMinutesBeforeStart = Me!ReminderMinutes
.ReminderSet = True
End If

Set objRecurPattern = .GetRecurrencePattern

With objRecurPattern
.RecurrenceType = olRecursWeekly
.Interval = 1

.PatternStartDate = #7/9/2003#
.PatternEndDate = #7/23/2003#
End With

.Save
.Close (olSave)
End With
Set objAppt = Nothing
End If


Set objOutlook = Nothing


Me!AddedToOutlook = True
DoCmd.RunCommand acCmdSaveRecord
MsgBox "Appointment Added!"

Exit Sub

Add_Err:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
Exit Sub
End Sub

 

[PaccessB]

rbouwman,

Je gebruikt in je code vast omschreven data, terwijl je naar de data op het formulier moet verwijzen.

Jouw code gedeelte met vaste datum in amerikaanse opmaak (mm,dd,yyyy):

.PatternStartDate = #7/9/2003#
.PatternEndDate = #7/23/2003#

moet zijn:

.PatternStartDate = Me!ApptDate
.PatternEndDate = Me!ApptEnd (Kan in de afbeelding niet zien of er nog Date achter staat, anders is het Me!ApptEndDate).

Groeten, Paul