Hey, hulp
Using op hier slaagde ik erin om een manuscript te maken dat toen ik een knoop in Toegang klikte het een benoeming in someoneskalender zou toevoegen, is dit de codage ive gebruikend, Schemerige appOutlook van GoTo ErrorHandler
Private SubAddAppt_Click ()
On Fout/> als/> Schemerige nms Outlook.Application
Schemerige Appt als/> Schemerige dteStartTime Outlook.AppointmentItem
Schemerige dteEndTime Date
dteStartTime = CDate (CStr (DateAdd („D“, 2, Datum)) &“ 9:00 AM ")
dteEndTime = CDate (CStr (DateAdd („D“, 2, Datum)) & het“ 10:00 AM ")
plaatst appOutlook = GetObject (, „Outlook.Application“)
Vastgestelde Appt = appOutlook.CreateItem (olAppointmentItem)
met Appt
. Onderwerp = me! Appt
. Begin = dteStartTime
. Eind = dteEndTime
als niet IsNull (me! ApptLocation) toen. Plaats = _
me! ApptLocation
als niet IsNull (me! ApptNotes) toen. Lichaam = me! ApptNotes
. Recipients.Add (“ [email protected].uk ")
. Display
. Het Eind With
ErrorHandlerExit van Send
:
plaatste appOutlook = Nothing
Uitgang Sub
ErrorHandler:
als Err.Number = 429 Then
appOutlook = CreateObject („Outlook.Application“)
plaatsen hervat Next
Fout Nr van Else
MsgBox de „: “ & Err.Number _
& „in CreateApptWithRecipient procedure“ _
&“; Beschrijving: „& Hervatten Err.Description
/> het probleem van If
End Sub
My slechts nu is telkens als ik de knoop klik ik een fout krijg die op het zeggen „komt foutengebruiker compileer - het bepaalde bepaalde niet type“ het benadrukt dan dit deel „Schemerige appOutlook als Outlook.Application“ ...... Ik gebruik MS Outlook en Toegang 2003 op vensters 7 het werken system.
Thanks
|
