☰

Outlook 2007 在单击“发送”时提示保存或删除已发送项目

tag-icon • tag-icon microsoft-outlook prompt
Outlook 2007 在单击“发送”时提示保存或删除已发送项目

在 Outlook 2007 中，我希望在单击“发送”按钮后提示我保存或删除邮件。我该怎么做？

答案1

你可以创建 VBA 宏并将其附加到“申请表”。物品发送“ 事件。

这里有一些宏代码，您可以将其放入其中，它会询问您是否要将其保存到“已发送”文件夹，或者直接将其删除：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

  Dim mailItem As Outlook.mailItem
  Dim strPrompt As String
  Dim response As VbMsgBoxResult

  strPrompt = "Do you want to save this email in the Sent folder?"
  response = MsgBox(strPrompt, vbYesNo, "Save to Sent folder?")

  If (response = vbNo) Then
    Set mailItem = Item
    mailItem.DeleteAfterSubmit = True
  End If

End Sub

相关内容