Redireccion emails
Publicado por Morpvin (4 intervenciones) el 25/08/2018 14:12:19
Hola,
A ver si me podéis echar una mano, necesito redireccionar correos recibidos en una cuenta a varias automaticamente, sin que los correos parezcan redireccionados, encontré esto y si es lo que necesito, ya que quita FW del asunto y deja el texto tal que el original, pero no se como añadir que lo envie a varias cuentas y para mas inri necesitaría que la dirección de respuesta sea la del que lo envió originalmente, ya que la gente pulsa responder y no hay modo de que se fijen de que no deben responder a un mensaje reenviado, espero haberme explicado y que alguien me eche un cable, muchas gracias.
A ver si me podéis echar una mano, necesito redireccionar correos recibidos en una cuenta a varias automaticamente, sin que los correos parezcan redireccionados, encontré esto y si es lo que necesito, ya que quita FW del asunto y deja el texto tal que el original, pero no se como añadir que lo envie a varias cuentas y para mas inri necesitaría que la dirección de respuesta sea la del que lo envió originalmente, ya que la gente pulsa responder y no hay modo de que se fijen de que no deben responder a un mensaje reenviado, espero haberme explicado y que alguien me eche un cable, muchas gracias.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub RedirectEmail()
Dim olItem As MailItem
Dim olNewMail As MailItem
Set olItem = Application.ActiveExplorer.Selection.Item(1)
If olItem.Class = olMail Then
Set olNewMail = olItem.Forward
With olNewMail
'Remove "FW" prefix in subject
.Subject = olItem.Subject
.HTMLBody = olItem.HTMLBody
.DisplayEnd With
End If
End Sub
Valora esta pregunta
0
