Hé, aide du
Using dessus ici je suis parvenu à faire un manuscrit qui quand j'ai cliqué un bouton dans l'accès qu'il ajouterait un rendez-vous dans le calendrier de someones, ceci est l'ive de codage employant, erreur secondaire du
On du
du
Private AddAppt_Click () le
d'ErrorHandler
obscurcissent l'appOutlook comme Outlook.Application
faibles nanomètres comme Outlook.NameSpace
faible Appt comme faible dteStartTime d'Outlook.AppointmentItem
comme faible dteEndTime de Date
en tant que le dteStartTime du
de Date
= CDate (CStr (DateAdd (« d », 2, la date)) et » dteEndTime du ")
de 9h00 du matin = CDate (CStr (DateAdd (« d », 2, date)) et » appOutlook du
du ")
de 10h00 du matin =
d'Appt de GetObject (, « Outlook.Application ») = d'appOutlook.CreateItem (olAppointmentItem) avec Appt
. Sujet = je ! Appt
. Début = dteStartTime
. Extrémité = dteEndTime
sinon IsNull (je ! ApptLocation) puis. Endroit = _
je ! ApptLocation
sinon IsNull (je ! ApptNotes) puis. Corps = je ! ApptNotes
.
de Recipients.Add (" [email protected].uk "). Display
.
ErrorHandlerExit de With
de fin de Send
: appOutlook du
=
ErrorHandler de Sub
de sortie de Nothing
:
du
si Err.Number = 429/> Else
Next
appOutlook de Then
= (No. MsgBox d'erreur de « Outlook.Application »)
d'Err.Number et « de procédé » _
de CreateApptWithRecipient et » ; Description : « Et le problème du
End Sub
My d'If
de fin d'ErrorHandlerExit
de résumé d'Err.Description
seulement est maintenant chaque fois que je clique le bouton que j'obtiens une erreur qui est soulevée en disant que « compiler l'erreur le type défini pour l'utilisateur non défini » lui accentue alors la présente partie « faible appOutlook pendant qu'Outlook.Application » ...... j'emploie MS Outlook et accède à 2003 sur un
Thanks des fenêtres 7.
class= de
|
