Responder apenas ao último e-mail no Outlook do Excel VBA

[Laucir Miranda]

Olá,
Consegui adaptar o código acima para uma aplicação que tenho. No entanto, também gostaria de após encontrar o último e-mail enviado copiar intervalo que tenho no excel (A2:F40) no corpo do e-mail e após o envio do e-mail, e-mail em uma pasta específica para fora do Outlook (tenho o nome da pasta e do arquivo em um intervalo no excel (A41:A42). Se Puderem me ajudar com o código...

Meu Script (VBA):

Sub Encaminhar_No_Movements()
'ZVI:2018-11-29 Responder apenas ao último e-mail no Outlook do Excel VBA

' constante do Outlook
Const olFolderSentMail = 5

' Variáveis
Dim OutlookApp como objeto
Dim IsOutlookCriado como booleano
Dim sFilter As String, sSubject As String



' Obtém/cria objeto do Outlook
Em Erro Continuar Próximo
Definir OutlookApp = GetObject(, "Outlook.Application")
Se Errar Então
Set OutlookApp = CreateObject("Outlook.Application")
IsOutlookCreated = Verdadeiro
Fim se
Em erro GoTo 0

'Restringir itens
sAssunto = ActiveCell.Value
sFilter = "[Assunto] = '" & sAssunto & "'"

' Diretor
Com OutlookApp.Session.GetDefaultFolder(olFolderSentMail).Items.Restrict(sFilter)
Se .Contagem > 0 Então .Classificar
"ReceivedTime", Verdadeiro
'Com .Item(1).ResponderTodos
Com .Item(1).Encaminhar
.Para = Planilhas("Planilha3").Range("C10")
'.Destinatários.Adicione " seuemail@email.com.br "

.Exibição
'.Mandar


Terminar com
Senão
MsgBox "Nenhum email encontrado com Assunto:" & vbLf & "'" & sSubject & "'"
Fim se
Terminar com

' Sai da instância do Outlook foi criada por este código
If IsOutlookCreated Then
OutlookApp.Quit
Definir OutlookApp = Nada
Fim se

Finalizar Sub