Imprimir página | Cerrar ventana

Reenvio de email (automatizacion)

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=85912
Fecha de impresión: 29/Marzo/2024 a las 06:28


Tema: Reenvio de email (automatizacion)
Publicado por: 01loko
Asunto: Reenvio de email (automatizacion)
Fecha de publicación: 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.



Respuestas:
Publicado por: Mihura
Fecha de publicación: 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.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Publicado por: 01loko
Fecha de publicación: 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 .


-------------
Recordar de que soy nuevo y estoy aprendiendo.


Publicado por: Mihura
Fecha de publicación: 04/Abril/2021 a las 18:39
Gracias .. Wink



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

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es



Imprimir página | Cerrar ventana