这是一个创建于 4230 天前的主题,其中的信息可能已经有所发展或是发生改变。
Public Sub SendAndDelete()
Dim obj As Object
Dim Mail As Outlook.MailItem
If MsgBox("Delete email?", vbYesNo Or vbQuestion) = vbNo Then
Exit Sub
End If
Set obj = Application.ActiveInspector.CurrentItem
If TypeOf obj Is Outlook.MailItem Then
Set Mail = obj
Mail.DeleteAfterSubmit = True
Mail.Send
End If
End Sub
这段代码实现的是能够在发送邮件后经过确定立马删除邮件,我希望能够增加的是:
1、为这段脚本添加ctrl + \的快捷键,即可以在发送邮件页面通过这个快捷键启用该脚本
2、目前确定后邮件会彻底删除,我希望能让它将邮件放到deleted items即删除箱里面去,这样如果随后返回了自己也可以手动移回去
感谢~