能麻烦哪位熟悉vba的帮忙加两句代码改改一个outlook vba脚本吗

[pinkman]

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即删除箱里面去，这样如果随后返回了自己也可以手动移回去

感谢～