** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Reenvio de email (automatizacion)
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoReenvio de email (automatizacion)

 Responder Responder
Autor
Mensaje
01loko Ver desplegable
Colaborador
Colaborador


Unido: 17/Agosto/2017
Localización: Santander
Estado: Sin conexión
Puntos: 762
Enlace directo a este mensaje Tema: Reenvio de email (automatizacion)
    Enviado: 26/Marzo/2021 a las 22:23
Buenas noches:

Mi pregunta , a los genios de la automatización de Outlook, ¿Existe alguna forma de reenviar correos dependiendo del remitente? (por supuesto desde Access)

Gracias por anticipado, como siempre
Recordar de que soy nuevo y estoy aprendiendo.
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 12529
Enlace directo a este mensaje Enviado: 27/Marzo/2021 a las 09:12
Si. 
- abres Outlook, 
- seleccionas la carpeta que desees, 
- recorres los correos existentes en la misma, 
- analizas el contenido / propiedades de cada uno de ellos
- en función de éste análisis realizas las acciones oportunas:
    - lo borrar, lo copias a otra carpeta, lo contestas, lo .....



Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
01loko Ver desplegable
Colaborador
Colaborador


Unido: 17/Agosto/2017
Localización: Santander
Estado: Sin conexión
Puntos: 762
Enlace directo a este mensaje Enviado: 04/Abril/2021 a las 18:16
Por fin lo he dejado así:

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

PD: el hilo se puede cerrar, gracias .


Editado por 01loko - 04/Abril/2021 a las 18:18
Recordar de que soy nuevo y estoy aprendiendo.
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 12529
Enlace directo a este mensaje Enviado: 04/Abril/2021 a las 18:39
Gracias .. Wink

Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable