Пересылка входящего письма VBA Outlook

[Екатерина Попкова]

Друзья,помогите с таким вопросом:
Как выделенное входящее сообщение переслать на эл.почту?Отправленное выделенное сообщение не должно оставаться в почте

Нашла тока как создать новое сообщение:

Public Sub CreateNewMail()
With Application.CreateItem(olMailItem)
.To = "arhiv.mails.2015@yandex.ru"
.Body = "Добавление в архив"
.Subject = "Попкова Е.С."
.Display '.Send
End With
End Sub

[doober]

Сообщение от Екатерина Попкова

Как выделенное входящее сообщение переслать "

Элементарно.

Sub Send_Selection()
On Error Resume Next
    Dim Item As MailItem
    Set Item = Application.ActiveWindow.Selection.Item(1)
    Item.To = "arhiv.mails.2015@yandex.ru"
    Item.DeleteAfterSubmit = True
    Item.Send
End Sub