求助：excel表里到期的项目在Outlook的行事历里自动出现提示

ck1668 · 发表于 2006-2-26 16:24

各位高手，请帮忙编制程序，将excel表里到期的项目在Outlook的行事历里自动出现提示。条件是：不需要打开Excel表，每天只要打开Outlook，如Excel表里有到期的项目就会自动在Outlook里出现一个提醒视窗。（注明：这个帖子原来发在Excel程序版里，通过好几位Excel 程序高手和专家的帮忙，最后还是没能解决。其中有一位chijanzen专家提及这个问题涉及到Outlook程序http://www.vba.com.tw/plog/post/1/273，但他对Outlook程序却不熟悉。故现转贴到这里，希望能得到各位会Outlook程序的高手和专家的帮忙）

FUOoFeok.rar (81.47 KB, 下载次数: 106)

[此贴子已经被作者于2006-2-26 16:25:09编辑过]

Kevin · 发表于 2006-2-27 09:34

在Outlook的ThisOutlookSession中，写入代码，并引用Excel对象。（以下代码结合了chijanzen的代码）。再把源数据文件保存为E:\OL_Reminder.xls。

Option Explicit
Private Sub Application_Startup()
  CreateNewAM
End Sub

Private Sub CreateNewAM()
  Dim XL_app As Excel.Application
  Dim XL_wb As Excel.Workbook
  Dim OLAitem As Outlook.AppointmentItem
  Dim Bodytxt As String
  Dim i As Integer


  Set XL_app = CreateObject("Excel.Application")
  Set XL_wb = XL_app.Workbooks.Open("E:\OL_Reminder.xls")


    Bodytxt = "今天到期生產單號" & Chr(10)
    i = 9
    With XL_app.Workbooks("OL_Reminder.xls").Sheets(2)
        Do While .Cells(i, 9) <>  ""
            If CDate(.Cells(i, 9)) = Date Then
                Bodytxt = Bodytxt & .Cells(i, "B") & Chr(10)
            End If
            i = i + 1
        Loop
    End With

    On Error GoTo 0
    Set OLAitem = CreateItem(olAppointmentItem)  '工作
    On Error Resume Next
    With OLAitem
        .Subject = "今天到期的工作"
        .Start = Now
        .End = Now
        .ReminderMinutesBeforeStart = 30    '30分鐘前提醒
        .Body = Bodytxt
        .Save
        .Display
    End With

    XL_app.ActiveWorkbook.Saved = True
    XL_app.Workbooks.Close
    Set XL_app = Nothing

End Sub

[此贴子已经被作者于2006-6-29 14:23:05编辑过]

lotustower · 发表于 2006-2-27 12:46

Tested OK [em17]
' Set reference to Microsoft Excel 11 Object Library
With XL_app.Workbooks("OL_Reminder.xls").Sheets(2)
Do While .Cells(i, 9) <> ""

[此贴子已经被作者于2006-2-27 12:55:57编辑过]

Kevin · 发表于 2006-2-27 14:02

Thanks Emily!

<> will be show, same characters (<>) with no color will be hide, so strange!

[此贴子已经被作者于2006-2-27 14:05:43编辑过]

ck1668 · 发表于 2006-2-28 08:37

总版主，您好！我已把您２楼的代码写入在Outlook的ThisOutlookSession中，但我不知道怎样叫做＂引用Excel对象＂。

还有，lotustower写在３楼的代码，以及您写在４楼的那一句代码又是怎么回事？因我对程序方面可是一窍不通，烦请再给我指点一下，多谢！

Kevin · 发表于 2006-2-28 09:59

已经附上图，3、4楼的发言你不必理会。

ck1668 · 发表于 2006-2-28 10:28

以下是引用[I]Kevin[/I]在2006-2-28 9:59:18的发言：
已经附上图，3、4楼的发言你不必理会。

总版主，我按照您的做法引用了Excel对象，但还是不行。您帮我看看是不是Excel里的程序代码有问题，现附上之前chijanzen做的代码，请看附件，谢谢！

74USxxDB.rar (14.18 KB, 下载次数: 36)

[此贴子已经被作者于2006-2-28 10:29:06编辑过]

Kevin · 发表于 2006-2-28 10:53

请把你在一楼的附件文件，保存为E:\OL_Reminder.xls。

代码不会有问题，我和lotustower都测试过了。

ck1668 · 发表于 2006-2-28 11:07

总版主，一楼的附件里没有代码，而现在我再蒋chijanzen的代码copy进去时，代码很多都变成了问号"？"，请问是怎么回事？

ck1668 · 发表于 2006-2-28 11:45

现在代码不会变成问号了，但Outlook里还是没有出现到期的提醒视窗。到底是哪里的问题？

		自动登录	找回密码
密码			免费注册