香港新浪網 MySinaBlog
« 上一篇 | 下一篇 »
Emily | 1st Feb 2006, 23:58 PM | Office Application | (1899 Reads)

用 Excel 建一個 Outlook 提醒

' Set reference to the Outlook library
Sub CreateOutlookAppointment()
    Dim objOL As Outlook.Application
    Dim objAppt As Outlook.AppointmentItem

    Set objOL = CreateObject("Outlook.Application")
    Set objAppt = objOL.CreateItem(olAppointmentItem)
    With objAppt
        .Subject = "Sectional Meeting Appointment"
        .Location = "Cat's Home"
        .ReminderSet = True
        .Start = "3/2/2006  10:00:00"    'd/m/yyyy
        .End = "3/2/2006 15:00"
        '.AllDayEvent = True
        .ReminderSet = True
        .ReminderMinutesBeforeStart = 30  'Mins
        .Save

        .display
    End With

    Set objOL = Nothing
    Set objAppt = Nothing
End Sub

 
 

  原來自己早已發佈了,參考:  Excel and Outlook Calendar 

Last update: 5 Feb 2006


[3]

錯誤! 使用者自定型態尚未定義!是怎麼一回事?
謝謝!


[引用] | 作者 ian | 17th Jun 2010 21:40 PM | [舉報垃圾留言]

[2]

歡迎光臨

一起學習


[引用] | 作者 Emily | 16th Feb 2006 23:55 PM | [舉報垃圾留言]

[1] 厉害呀

哈哈,原来你就是emily,我是从excelhome过来的,向高手学习啦


[引用] | 作者 shuyu4424 | 16th Feb 2006 16:08 PM | [舉報垃圾留言]