Outlook VBA发送后删除邮件

Question

我正在写一个宏，允许我通过附件转发当前邮件（通过功能区上的按钮运行宏），然后删除原始邮件。

但是，当我运行宏消息不会被删除，我收到一封来自“系统管理员”的电子邮件，消息是un-deliverable。

如果我注释掉该行.DeleteAfterSubmit = True该消息已发送但未删除。

Dim objAttachment As Attachment 
Dim strAttachment As String 
Set objItem = GetCurrentItem() 
Set objMsg = Application.CreateItem(olMailItem) 
strAttachment = "" 

For Each objAttachment In objItem.Attachments 
    strAttachment = strAttachment & " " & objAttachment.DisplayName ' FileName 
Next 

With objMsg 
    .Attachments.Add objItem, olEmbeddeditem 
    .Subject = objItem.Subject & " " & objItem.To 
    .To = "[email protected]" 
    .Body = "From: " & objItem.Sender & vbNewLine & _ 
      "Sent: " & objItem.ReceivedTime & vbNewLine & _ 
      "To: " & objItem.To & vbNewLine & _ 
      "CC: " & objItem.CC & vbNewLine & _ 
      "Subject: " & objItem.Subject & vbNewLine & _ 
      "Attachment: " & strAttachment & vbNewLine & vbNewLine & _ 
      objItem.Body 
    .DeleteAfterSubmit = True 
    .Send 
End With 

Answer 1

应该objItem.Delete外With...End With

With objMsg 
    .Attachments.Add objItem, olEmbeddeditem 
    .subject = objItem.subject & " " & objItem.To 
    .To = "[email protected]" 
    .Body = "From: " & objItem.sender & vbNewLine & _ 
      "Sent: " & objItem.ReceivedTime & vbNewLine & _ 
      "To: " & objItem.To & vbNewLine & _ 
      "CC: " & objItem.CC & vbNewLine & _ 
      "Subject: " & objItem.subject & vbNewLine & _ 
      "Attachment: " & strAttachment & vbNewLine & vbNewLine & _ 
    objItem.Body 
    .Send 
End With 

objItem.Delete