Sub reenvioCorreosDeOutlook()

Dim Outlook_Aplicacion As Object

Dim My_NameSpace As Object

Dim my_carpeta As Object

Dim my_mail_buscado As Object

Dim my_carpeta2 As Object

Dim texto As String

texto = "<p align=center> <b>___ BOLETIN______________________________________________________________________________ BOLETIN  ____ <BR><BR><BR></B></P>"

Set Outlook_Aplicacion = CreateObject("Outlook.Application")

Set My_NameSpace = Outlook_Aplicacion.GetNamespace("MAPI")

Set my_carpeta = My_NameSpace.Folders("micuenta@correo.com").Folders("1")

Set my_carpeta2 = My_NameSpace.Folders("micuenta@correo.com").Folders("2")

For Each my_mail_buscado In my_carpeta.Items

If my_mail_buscado.SenderEmailAddress = "remitente_buscado@email.com" Then

Set myforward = my_mail_buscado.Forward

MsgBox (my_mail_buscado.SenderEmailAddress & vbLf & vbLf & my_mail_buscado.Subject & vbLf & a & vbLf)

   myforward.Recipients.Add "a_quien_reenvio@email.com"

   myforward.Subject = "BOLETIN " '& oAtt.FileName

   myforward.HTMLBody = texto & vbCrLf & vbCrLf & vbCrLf & vbCrLf & my_mail_buscado.HTMLBody

   myforward.Send

   

'myforward.Display

my_mail_buscado.Move my_carpeta2

End If

Next my_mail_buscado

salto:

Set Outlook_Aplicacion = Nothing

Set My_NameSpace = Nothing

Set my_carpeta = Nothing

Set my_carpeta2 = Nothing

End Sub

os lo dejo, por si es de valor