Reenvio de email (automatizacion) |
Responder |
Autor | |
01loko
Colaborador Unido: 17/Agosto/2017 Localización: Santander Estado: Sin conexión Puntos: 807 |
Tema: Reenvio de email (automatizacion) Enviado: 26/Marzo/2021 a las 22:23 |
Buenas noches: Gracias por anticipado, como siempre
|
|
Recordar de que soy nuevo y estoy aprendiendo.
|
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14025 |
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 ..... |
|
01loko
Colaborador Unido: 17/Agosto/2017 Localización: Santander Estado: Sin conexión Puntos: 807 |
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.
|
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14025 |
Enviado: 04/Abril/2021 a las 18:39 |
Gracias ..
|
|
Responder | |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |