Visual Basic - Redireccion emails

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 7
Ha disminuido su posición en 8 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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.

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
            .Display
       End With
    End If
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.807
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Redireccion emails

Publicado por Andres Leonardo (1553 intervenciones) el 27/08/2018 17:33:44
1
2
3
4
5
6
7
8
With olNewMail
           .to = "direccion1@loquesea.com;direccion2@otrodominio.com"
           .cc = "direccion3@loquesea.com;direccion4@otrodominio.com"
             'Remove "FW" prefix in subject
            .Subject = olItem.Subject
            .HTMLBody = olItem.HTMLBody
            .Display
       End With
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 7
Ha disminuido su posición en 8 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Redireccion emails

Publicado por Morpvin (4 intervenciones) el 27/08/2018 17:36:10
Gracias,

Me puedes indicar como añadir para que la direccion de respuesta sea la misma que la del remitente del correo original? Muchas gracias por la respuesta.

Agradecido.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar