Microsoft Access 2013将电子邮件发送时间戳保存到记录中的字段

时间:2017-12-13 23:03:39

标签: vba ms-access outlook

所以我一直在努力想出这个代码。我的访问表单上有一个命令按钮,它调用outlook并发送一封空白电子邮件。我想要发生的是,当发送电子邮件报告回访问时,访问可以在我的表中的字段中存储时间戳,以显示在发送电子邮件的表单上。请参阅下面的代码。非常感谢任何帮助,谢谢。 编辑此内容是因为它被标记为适用于excel的问题的副本。但是,我不需要excel代码,我需要访问代码。我不是程序员,所以有人可以解释一下这是否合理。

Private Sub Command190_Click()

'This is for the email only button

Dim oLook As Object
Dim oMail As Object
Dim fileName As String, todayDate As String

Set oLook = CreateObject("Outlook.Application")
Set oMail = oLook.CreateItem(0)

With oMail
    .Display
End With

Set oMail = Nothing
Set oLook = Nothing

End Sub

0 个答案:

没有答案