发送电子邮件后设置提醒

Question

有没有办法在发送电子邮件后设置提醒？

我有创建电子邮件和设置提醒的 VBA 代码。

Sub RendaFixaAplicação()

Dim texto As String

Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

texto = Range("J2").Value & ",insert some text here"

With OutMail
    .Display
    .to = Range("J3").Value
    .CC = Range("J4").Value
    .Subject = "Insert a subject here " & Range("E2").Value
    .HTMLBody = texto & .HTMLBody
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

Call alerta1

End Sub

在代码末尾使用“Call alerta1”进行提醒，编程如下：

Sub alerta1()
Dim objOutlookApp As Outlook.Application
Dim objTask As Outlook.TaskItem
Dim hora As String
Dim wd As WorksheetFunction
Set wd = Application.WorksheetFunction
Dim diautil As Date
diautil = wd.WorkDay(Date, 1)

If Time > "15:00:00" Then
    hora = diautil & " 14:00:00"
Else
    If Time < "14:00:00" Then
        hora = Date & " 14:00:00"
    Else
        hora = Date & " 14:45:00"
    End If
End If

Set objOutlookApp = CreateObject("Outlook.Application")
Set objTask = objOutlookApp.CreateItem(olTaskItem)
objTask.Subject = "Insert a Subject Here - " & Range("E2").Value
objTask.Display

objTask.body = "Cliente: " & Range("K2").Value & vbNewLine & "Email cliente: " & Range("J3").Value
objTask.ReminderSet = True
objTask.ReminderTime = hora
objTask.DueDate = hora
objTask.Close (olSave)

End Sub

它设置我是否发送电子邮件的提醒。

我不能在电子邮件中使用 .Send，因为需要在电子邮件中进行一些编辑。

有没有办法让 Excel 等待电子邮件发送然后运行“alerta1”？

Answer 1

首先，不需要在每个方法中创建一个新的 Outlook 应用程序实例。

理想情况下，您可以在 Outlook 中的 Sent Items 文件夹上连接 ItemAdd 事件。但项目可能会在发送后被删除，而不会保存到Sent Items 文件夹中。 DeleteAfterSubmit 属性允许设置一个布尔值，如果邮件的副本在发送时未保存，则为 True，如果副本保存在“已发送邮件”文件夹中，则为 False。

所以，我建议处理 Application 类的 ItemSend 事件，只要用户通过检查器发送 Microsoft Outlook 项目就会触发该事件（在检查器关闭之前，但在用户单击发送按钮）或在程序中使用 Outlook 项目（例如 MailItem ）的 Send 方法时。在事件处理程序中，您将可以访问正在发送的项目并可以为其创建新任务。