Hey, aiuto sopra qui sono riuscito a fare uno scritto che quando ho scattato un tasto nell'accesso che avrebbe aggiunto un appuntamento nel calendario dei someones, questo è il ive di codificazione che usando, errore secondario del
Using del
On del
del
Private AddAppt_Click () il
di ErrorHandler
oscura il appOutlook come Outlook.Application
nanometri fiochi come Outlook.NameSpace
Appt fioco come dteStartTime fioco di Outlook.AppointmentItem
come dteEndTime fioco di Date
come il dteStartTime del
di Date
= CDate (CStr (DateAdd (“d„, 2, data)) &„ dteEndTime del
di di 9:00 ") = CDate (CStr (DateAdd (“d„, 2, data)) &„ appOutlook del
del
di di 10:00 ") =
di appOutlook.CreateItem = di Appt di GetObject (, “Outlook.Application„) (olAppointmentItem) con Appt
. Oggetto = me! Appt
. Inizio = dteStartTime
. Estremità = dteEndTime
se non IsNull (me! ApptLocation) allora. Posizione = _
me! ApptLocation
se non IsNull (me! ApptNotes) allora. Corpo = me! ApptNotes
.
di Recipients.Add (" [email protected].uk "). Display
.
ErrorHandlerExit di With
di conclusione di Send
: appOutlook del
=
ErrorHandler di Sub
dell'uscita di Nothing
:
del
se Err.Number = 429 di errore di Outlook.Application„)
appOutlook di Then
= riassunto Next
Else
stabilito “: „ & _
di Err.Number & “nella procedura„ _
di CreateApptWithRecipient &„; Descrizione: “& il problema del
End Sub
My di If
di conclusione di ErrorHandlerExit
del riassunto di Err.Description
soltanto ora è ogni volta che scatto il tasto che ottengo un errore che viene sul dire “compila l'errore il tipo prestabilito dall'utente non definito„ esso allora evidenzia questa parte “appOutlook fioco mentre Outlook.Application„ ...... io sto usando MS Outlook ed accedono a 2003 sull'finestre 7 system.
Thanks
class= del
|
