时间戳

首页 > 解决方案 > Excel 更新通知 - Lotus Notes

excel - Excel 更新通知 - Lotus Notes

问题描述

我对这一切都很陌生，但我有以下问题。我有一个在我公司的服务器上共享的 Excel 工作表，我想向不同的用户发送一封自动电子邮件，通知此文件已更新。我们使用莲花笔记，这可能吗？

我尝试了以下代码，但我没有工作

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    ActiveWorkbook.EnvelopeVisible = True

    With ActiveSheet.MailEnvelope
        .Introduction = "Hello, Tvoloria! - the workbook was saved by " & Environ("USERNAME") & " at " & Format(Now(), "ddd dd mmm yy hh:mm")
        .Item.To = "asd@asd.com"
        .Item.Subject = "Workbook Saved!"
        .Item.display
        '.Item.send
    End With
End Sub

标签： excellotus-notes

解决方案

你可以使用这样的东西来发送电子邮件

Sub test()

  Subject = "Workbook Saved!"
  body = "Hello, Tvoloria! - the workbook was saved by " & Environ("USERNAME") & " at " & Format(Now(), "ddd dd mmm yy hh:mm")
  Recipient = "you@xx.com"
  CopyTo = "you@xx.com"

  Set Session = CreateObject("Notes.NotesSession")
  Set Database = Session.GETDATABASE("", "")
  If Database.IsOpen = False Then Database.OPENMAIL
  Set Document = Database.CreateDocument

  With Document
    .SendTo = Recipient
    .CopyTo = CopyTo
    .Subject = Subject
    .body = body
    .SaveMessageOnSend = True
    .PostedDate = Now()
    .Send 0, Recipient
  End With


  Set Document = Nothing
  Set Database = Nothing
  Set Session = Nothing

End Sub

推荐阅读