Perfeccionar macro Excel y Outlook

Hola expertos, tengo el siguiente código:

Sub SOLICITUD()

ASUNTO = "SOLICITUD: " & Cells(2, 2) & " " & Cells(2, 4) & " " & Cells(2, 5)
CUERPO = "Favor de procesar:" & Chr(13) & Chr(13) & "Saludos."

UserForm2.Show

On Error GoTo FIN

Set objOutlook = CreateObject("Outlook.Application")

Select Case CORR

Case Is = "REEN"
Set objMesage = objOutlook.ActiveInspector.CurrentItem
Set objMailItem = objMesage.Forward

Case Is = "DESD"
Set objMailItem = objOutlook.CreateItem(0)
objMailItem.Attachments.Add "C:\Users\huertas.m.2\Documents\Cot SAT.xlsx"

End Select

objMailItem.Recipients.Add "[email protected]"
objMailItem.Subject = ASUNTO
objMailItem.Body = CUERPO

MENSAJE = MsgBox("¿DESEAS ENVIAR EL CORREO?", vbYesNo)
Select Case MENSAJE
Case vbYes
objMailItem.Send
Case vbNo
objMailItem.Display
End Select

objMesage.Delete
objMesage = Nothing

FIN: Range("B2").Select

End Sub

La macro me funciona muy bien, sin embargo, necesito algunas cosas:

Primero que en vez de borrar el mensaje, lo cierre; he intentado con objMesage.Close o con objMesage.Display = False pero nada-

Segundo, me gustaría que al escoger reenviar en el userform, no tuviera que abrir mail que voy a reenviar, sino que reenviara el mail que tengo seleccionado en outlook.

Tercero quisiera que una vez terminado el proceso de reenviar, el correo reenviado se moviera a otra carpeta.

Gracias expertos y saludos.