请教Excel达人关于excel自动发email reminder的问题

homeandaway

各位Excel达人，公司目前用一个很庞大的excel来跟踪3000多个零件完成情况，每个零件有个完成的outlook date，现在领导要我们把outlook date都放入lotus notes里面的to do list，然后设置reminder来提醒自己，这增加了多少工作量啊，而且如果excel中的outlook date改了，lotus notes里面的date也要改，就是说我们还要人工做synchronization的工作，不犯错才怪。所以，我想问的问题是excel能按照outlook date自动发email reminder吗？比如A零件的outlook date 是 7月31，能否设置outlook date的4周前，即7月3日自动发email reminder？小弟先谢过了。

bats

outlook可以，lotus不会

yang~_~

可以。很简单，在lotus中建个agent，定时每日扫描此excel文件，发邮件提醒即可。

homeandaway

原帖由 bats 于 2012-7-2 15:05 发表
outlook可以，lotus不会

outlook怎么实现这个功能呢？有code吗？谢谢！

homeandaway

原帖由 yang~_~ 于 2012-7-2 16:31 发表
可以。很简单，在lotus中建个agent，定时每日扫描此excel文件，发邮件提醒即可。

yang，

能否稍微具体点，在哪里建agent？可以定时扫描指定excel中的某列cell？并能对比该列cell和当前的日期看是否在1周，或2周，或3周内due？谢谢诶！

yang~_~

在任意database中都可建。如果excel文件是大家公用的，首先要确保lotus domino服务器能访问到此文件，其次domino服务器上要装office软件。具体定时代理的代码很容易，如果需要，把具体要求给我，我给你写代码（免费 ）。

homeandaway

原帖由 yang~_~ 于 2012-7-2 19:06 发表
在任意database中都可建。如果excel文件是大家公用的，首先要确保lotus domino服务器能访问到此文件，其次domino服务器上要装office软件。具体定时代理的代码很容易，如果需要，把具体要求给我，我给你写代码（免费 ）。

非常感谢热心yang。Excel文件是大家公用的，而且有passcode，怎样才能确认lotus domino服务器能访问到此文件（我们有很多公用的drive，而且权限不同）？如果不能访问的话，是否可以通过excel里的VBA来实现呢？如何确认服务器上装了office软件？谢谢！

yang~_~

我不知道VBA能否自动运行，发Notes邮件还是能做到的，需要把Notes注册为OLE object。你在VBA中试一下这个代码：
Set aNotes = CreateObject("Notes.NotesSession")
MsgBox aNotes.UserName
Set aNotes = Nothing
如果不能弹出当前Notes用户名，则说明Notes客户端没装好，运行一下NotesW32.reg文件或重装客户端。如果一切正常，我再给你发邮件的代码，自己改改就行了。

bats

如果要excel实现，可以看看这里：
http://www.rondebruin.nl/notes.htm
例子很详细了

homeandaway

原帖由 yang~_~ 于 2012-7-3 10:01 发表
我不知道VBA能否自动运行，发Notes邮件还是能做到的，需要把Notes注册为OLE object。你在VBA中试一下这个代码：
Set aNotes = CreateObject("Notes.NotesSession")
MsgBox aNotes.UserName
Set aNotes = Nothing
如果不能 ...

谢谢yang，我试试。

homeandaway

原帖由 bats 于 2012-7-3 11:06 发表
如果要excel实现，可以看看这里：
http://www.rondebruin.nl/notes.htm
例子很详细了

谢谢Bat。 这个我前几天看过，教你怎么VBA发email，可是没有找到如果通过检查excel中的outlook date来发reminder email。可能我没有看仔细，能否在指点一下？谢谢！

bats

原帖由 homeandaway 于 2012-7-3 13:51 发表

谢谢Bat。 这个我前几天看过，教你怎么VBA发email，可是没有找到如果通过检查excel中的outlook date来发reminder email。可能我没有看仔细，能否在指点一下？谢谢！

outlook is easy. just add the following:
for example:
      .DeferredDeliveryTime = "03/07/2012 2:18 PM"
or if use a range:
.DeferredDeliveryTime = range("A1")
don't know about lotus though

yang~_~

你的outlook date是excel中某一列吧，以下是提前7天通知的VBA代码，有问题就问。首先建一个邮件库到本地，最简单的做法，右键点击你的邮件库复制到本地。密码需要输入你当前ID密码，如果不想输密码，则运行VBA时需要你的Notes客户端已经打开。

Sub CheckExcel()
      
    Dim i As Integer
    i = 2
    tempdate = Sheets("sheet1").Cells(i, 1).Value
    While Not tempdate = ""
        If tempdate - Date >= 7 Then
        
            Call SendEmailByNotes
        End If
        i = i + 1
        tempdate = Sheets("sheet1").Cells(i, 1).Value

    Wend
   
End Sub
Function SendEmailByNotes()

    Dim Maildb As Object
    Dim MailDoc As Object
    Dim Body As Object
    Dim Session As Object
    Dim nSend As Variant
    Dim nRTItem As Object

        
    On Error GoTo errHandle
        nSend = VBA.Array("name1@xxx.com", "name2@xxx.com")

        Set Session = CreateObject("Lotus.NotesSession")
        
        Call Session.Initialize("<password>")
        Set Maildb = Session.GETDATABASE("", "C:\Program Files\IBM\Lotus\Notes\data\testmail.nsf")
        If Not Maildb.IsOpen = True Then Call Maildb.Open
        'Create the Mail Document
        Set MailDoc = Maildb.CREATEDOCUMENT
        'Set subject of the mail
        Call MailDoc.REPLACEITEMVALUE("Subject", "Test")
       'Set the Recipient of the mail
        Call MailDoc.REPLACEITEMVALUE("SendTo", nSend)
        Call MailDoc.REPLACEITEMVALUE("Form", "Memo")
        MailDoc.SAVEMESSAGEONSEND = True
        Call MailDoc.REPLACEITEMVALUE("PostedDate", Now())
       'Create and set the Body content of the mail
        Set nRTItem = MailDoc.CREATERICHTEXTITEM("Body")
        Call nRTItem.AddNewLine(2)
        Call nRTItem.AppendText("This is a test mail")

        Call MailDoc.SEND(False)
   
        Set Maildb = Nothing
        Set MailDoc = Nothing
        Set Body = Nothing
        Set nRTItem = Nothing
        Set Session = Nothing
        
errHandle:
        Set Maildb = Nothing
        Set MailDoc = Nothing
        Set Body = Nothing
        Set nRTItem = Nothing
        Set Session = Nothing
End Function