Hey, ayuda encendido aquí manejé hacer una escritura que cuando chasqué un botón en el acceso que agregaría una cita en calendario de los someones, esto es el ive de la codificación que utiliza, error secundario del
Using del
On del
del
Private AddAppt_Click () el
de ErrorHandler
amortigua el appOutlook como Outlook.Application
nanómetros déviles como Outlook.NameSpace
Appt dévil como dteStartTime dévil de Outlook.AppointmentItem
como dteEndTime dévil de Date
como el dteStartTime = CDate (CStr (DateAdd (“d”, 2, la fecha) del
) de Date
y dteEndTime del
del” 9:00 ") = CDate (CStr (DateAdd (“d”, 2, fecha)) y appOutlook del
del
del” 10:00 ") =
de Appt de GetObject (, “Outlook.Application”) = de appOutlook.CreateItem (olAppointmentItem) con Appt
. ¡Tema = yo! Appt
. Comienzo = dteStartTime
. ¡Extremo = dteEndTime
si no IsNull (yo! ApptLocation) entonces. ¡Localización = _
yo! ¡ApptLocation
si no IsNull (yo! ApptNotes) entonces. ¡Cuerpo = yo! ApptNotes
.
de Recipients.Add (” [email protected].uk "). Display
.
ErrorHandlerExit de With
del final de Send
: appOutlook del
=
ErrorHandler de Sub
de la salida de Nothing
:
del
si Err.Number = 429/> determinado Else
Next
appOutlook de Then
= (No. MsgBox del error de “Outlook.Application”)
de Err.Number y “en el procedimiento” _
de CreateApptWithRecipient y”; Descripción: “Y el problema del
End Sub
My de If
del final de ErrorHandlerExit
del curriculum vitae de Err.Description
solamente ahora está cada vez que chasco el botón que consigo un error que suba diciendo que “compilar el error el tipo definido por el usario no definido” le entonces destaca esta parte “appOutlook dévil mientras que Outlook.Application” ...... yo están utilizando MS Outlook y tienen acceso a 2003 en las ventanas 7 system.
Thanks
class= del
|
