Outlook Ответить, а затем удалить элемент почты

Question

Этот фрагмент кода немного грубоват, но это всего лишь макет. Что это делает в основном:

Когда из моего письма приходит электронное письмо и строка темы начинается с 'batch':

• копирует электронную почту в другую папку
• ответы на электронную почту
• удаляет исходное письмо

На данный момент делает все, что я хочу, кроме удаления электронной почты в конце. После того, как я ответил на электронное письмо и, кажется, не могу достать исходный объект электронной почты, чтобы удалить его. Я знаю, что это будет что-то простое, но я не вижу этого.....

Sub Check_For_Ticket(MyMail As MailItem)
Dim mysubject As String
Dim strEmail As String

'On Error GoTo Ticketerror

myemail = "pb***********@hotmail.com"
mysubject = "Batch*"

strEmail = MyMail.SenderEmailAddress
strSubject = MyMail.Subject
If strEmail = myemail And strSubject Like mysubject Then
    MsgBox "yes" & strSubject
    Call pbMoveMessageToTestFolder(MyMail)
    Call AutoReply(MyMail)
Else
    MsgBox "no" & strSubject
End If

MsgBox "this email is: " & strSubject
'Ticketerror:
'    MsgBox "There is an error "
'    MsgBox Err.Number & " : " & Err.Description
End Sub
Sub pbMoveMessageToTestFolder(MyMail As MailItem)

' Works on one selected item

    Dim myNameSpace As Outlook.NameSpace
    Dim myInbox As Outlook.Folder
    Dim myDestFolder As Outlook.Folder
    Dim myItem As Object
    Dim objcopy As Object

        MsgBox "into 2nd sub"

    Set myNameSpace = Application.GetNamespace("MAPI")
    Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)

    ' Add As many  .Folders("SubfolderName")  as needed
    Set myDestFolder = myInbox.Folders("To_Process")
    Set myItem = MyMail
    'Application.ActiveExplorer.Selection.Item (1)

    Dim copy As Object
    Set copy = myItem.copy
    'move copy to folder
    copy.Move myDestFolder

        MsgBox "should of copied"

    Set myNameSpace = Nothing
    Set myInbox = Nothing
    Set myDestFolder = Nothing
    Set myItem = Nothing

End Sub
Sub AutoReply(olItem As Outlook.MailItem)
'declaring variables
Dim olOutMail As Outlook.MailItem
Dim olOutMail2 As Outlook.MailItem
Dim strpbsubject As String
Dim strSubject As String
Dim Str As String

Str = olItem.Subject

MsgBox "3rd sub - subject: " & Str

strpbsubject = "This is an auto-reply from ***, confirming that " & strMid & " has been successfully received at " & Format(DateTime.Now, "dd-MM-yyyy hh:mm:ss")


'Creating the reply email

    With olItem
        Set olOutMail2 = olItem.Reply
        With olOutMail2
            .Body = strpbsubject 'Placing the body of the email in place
            .Subject = "Delivered: " & Str 'appending "Delivered" to the subject line
            .Send        ' This is a changeable variable to display the reply change to .Display
                        ' to deliver the response change to .Send
            .UnRead = True 'makes the email unread after the  auto response is sent
        End With
    Set olOutMail2 = Nothing



    End With

End Sub

Answer 1

Попробуйте добавить MyMail.Delete после Call AutoReply(MyMail)

If strEmail = myEmail And mysubject Like mysubject Then
    MsgBox "yes" & mysubject
    Call pbMoveMessageToTestFolder(MyMail)
    Call AutoReply(MyMail)
    MyMail.Delete
Else