Question

如何将Microsoft Access链接到Microsoft Outlook以生成Microsoft Access数据库中截止日期的提醒？

Answer 1

这应该很安静，您需要将Calendar表链接到Access。请查看此链接以获取更多信息：http://www.fmsinc.com/microsoftaccess/email/linked/index.htm

Answer 2

我会用这样的东西

https://support.microsoft.com/en-us/kb/162371，但我对它做了一些“改进”，以便在使用变量时使其更具功能性。

Function AddOutLookTask(reminderDateAndTime As Date, dueDate As Date)
     Dim appOutLook As Outlook.Application
     Dim taskOutLook As Outlook.TaskItem
     Set appOutLook = CreateObject("Outlook.Application")
     Set taskOutLook = appOutLook.CreateItem(olTaskItem)
  With taskOutLook
      .Subject = "This is the subject of my task"
      .Body = "This is the body of my task."
      .ReminderSet = True
      .ReminderTime = reminderDateAndTime
      .dueDate = dueDate                                              
      .ReminderPlaySound = True
       'add the path to a .wav file on your computer.
      .ReminderSoundFile = "C:\Windows\media\Notify.wav"

     .Save
  End With
End Function

您可以使用以下代码使用原始数字，变量等在即时窗口中对其进行测试。请确保包含Microsoft Outlook 8.0或更高版本的对象库参考，否则它将无效

?addOutlookTask(#6/10/2015 3:45PM#, #6/11/2015#)

将Microsoft Access链接到Microsoft Outlook

2 个答案: