Hey, помощь дальше здесь я управлял сделать сценарием который когда я щелкнул кнопкой в доступе, котор он добавил бы назначение в календар someones, это будет ive кодирвоания используя, ошибка
Using
On
Private Sub AddAppt_Click () переход
ErrorHandler
затемняет appOutlook как Outlook.Application
тусклые nms как Outlook.NameSpace
тусклое Appt как dteStartTime Outlook.AppointmentItem
тусклое как dteEndTime Date
тусклое как dteStartTime
Date
= CDate (CStr (DateAdd («d», 2, дата)) &» dteEndTime
AM 9:00 ") = CDate (CStr (DateAdd («d», 2, дата)) &» appOutlook
AM 10:00 ") установленные =
установленное
Appt GetObject (, «Outlook.Application») = appOutlook.CreateItem (olAppointmentItem) с Appt
. Вопрос = я! Appt
. Старт = dteStartTime
. Конец = dteEndTime
если не IsNull, то (я! ApptLocation) после этого. Положение = _
я! ApptLocation
если не IsNull, то (я! ApptNotes) после этого. Тело = я! ApptNotes
.
Recipients.Add (" [email protected].uk "). Display
.
ErrorHandlerExit With
конца Send
: appOutlook
установленные =
ErrorHandler Sub
выхода Nothing
:
если Err.Number = 429/> Else
Next
appOutlook Then
установленного = («нет MsgBox ошибки Outlook.Application»)
Err.Number & «в процедуре по» _
CreateApptWithRecipient &»; Описание: «& проблемой
End Sub
My If
конца ErrorHandlerExit
резюма Err.Description
только теперь будет каждое время, котор я щелкаю кнопкой я получаю ошибку приходит вверх по говорить «составляет потребителя ошибки - определенный определенный тип» ему после этого выделяет эту часть «тусклое appOutlook по мере того как Outlook.Application» ...... я используют внешний вид MS и достигают 2003 на окна 7 работая system.
Thanks
class=
|
