He,
Using Hilfe an hier ich erreichte, einen Index zu bilden, der, als ich einen Knopf im Zugang anklickte, den er eine Verabredung in someones Kalender hinzufügen, dieses das verwendende Kodierung ive ist,
Private VorAddAppt_Click ()
On Störung Goto- ErrorHandler
appOutlook als Outlook.Application
schwache Nanometer als Outlook.NameSpace
schwaches Appt als Outlook.AppointmentItem
schwaches dteStartTime als Date
schwaches dteEndTime als Date
dteStartTime = CDate verdunkeln (CStr (DateAdd („d“, 2, Datum)) u.“ 9:00 morgens ")
dteEndTime = CDate (CStr (DateAdd („d“, 2, Datum)) u.“ 10:00 morgens ")
gesetztes appOutlook = GetObject (, „Outlook.Application“)
gesetztes Appt = appOutlook.CreateItem (olAppointmentItem)
mit Appt
. Thema = ich! Appt
. Anfang = dteStartTime
. Ende = dteEndTime
wenn nicht IsNull (ich! ApptLocation) dann. Position = _
ich! ApptLocation
wenn nicht IsNull (ich! ApptNotes) dann. Körper = ich! ApptNotes
. Recipients.Add (“ [email protected].uk ")
. Display
. Send
Ende With
ErrorHandlerExit:
gesetztes appOutlook = Nothing
Ausgang Sub
ErrorHandler:
, wenn Err.Number = 429 Then
gesetztes/> Else
Next
appOutlook = („Outlook.Application“)
u. „im CreateApptWithRecipient Verfahren“ _
u.“; Beschreibung: „U. Err.Description
Zusammenfassung ErrorHandlerExit
Ende If
End Sub
My nur ist Problem jetzt, jedes Mal wenn ich den Knopf anklicke, den ich eine Störung erhalte, die Sprechen „kompilieren Störung aufkommt, die verbraucherbestimmte Art, die nicht“ ihm definiert dann, dieses Teil „schwaches appOutlook hervorhebt, während Outlook.Application“ ...... ich MS Outlook benutzen und auf 2003 auf einem Fenster 7 Betriebssystem.
Thanks zurückgreifen
|
