¿cómo puedo crear una macro que re-envie un correo al nombre que aparece en asunto y otros correos? me pueden guiar

Question

Buen día

En mi día llegan correos de reportes con los nombres de diferentes personas en el asunto.

Estoy creando una macro o scrpit que al llegar a mi bandeja de entrada, recoja el nombre que aparece en el asunto, para luego re enviarlo al mismo nombre y otros destinatarios.

me podrían guiar , además de como guardar las macros pq guerdo la que tengo pero cuando la quiero probar no aparece.

gracias.

Answer 1

Hola de nuevo ESTEBAN JAVIER CHAMORRO ALVARADO,

Sera que puedes verificar que las macros estén habilitadas en Outlook? Puedes verificar esto en Archivo > Opciones > Centro de confianza > Configuración del Centro de confianza > Configuración de macros >``Asegúrate de que la opción "Habilitar todas las macros" esté seleccionada``.

Me avisas si las tienes habilitadas.

Answer 2

adjunto imagen

Answer 3

Hola ESTEBAN JAVIER CHAMORRO ALVARADO,

¡Bienvenido(a) a Microsoft Q&A!

En este caso, se deberia crear la macro para recoger el nombre del asunto y luego guardarla correctamente. Puedes seguir los siguientes pasos:

Crear la Macro

Si estás usando Outlook, puedes usar VBA (Visual Basic for Applications) para crear una macro que recoja el nombre del asunto y reenvíe el correo. Aquí tienes un ejemplo básico:

Sub ReenviarCorreo()
    Dim miBandeja As Outlook.Folder
    Dim miCorreo As Outlook.MailItem
    Dim nombre As String
    Dim destinatarios As String

    ' Establece la bandeja de entrada
    Set miBandeja = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)

    ' Recorre los correos en la bandeja de entrada
    For Each miCorreo In miBandeja.Items
        If miCorreo.Subject <> "" Then
            ' Extrae el nombre del asunto
            nombre = miCorreo.Subject
            
            ' Define los destinatarios adicionales
            destinatarios = "destinatario1@example.com; destinatario2@example.com"

            ' Crea un nuevo correo para reenviar
            Dim nuevoCorreo As Outlook.MailItem
            Set nuevoCorreo = Application.CreateItem(olMailItem)
            nuevoCorreo.To = nombre & "@example.com" ' Cambia esto según sea necesario
            nuevoCorreo.CC = destinatarios
            nuevoCorreo.Subject = "Reenvío: " & miCorreo.Subject
            nuevoCorreo.Body = miCorreo.Body
            nuevoCorreo.Send
        End If
    Next miCorreo
End Sub

Guardar la Macro

Para guardar la macro en Outlook:

1. Abre el Editor de VBA: Presiona ALT + F11.
2. Inserta un Módulo: Haz clic derecho en “VBAProject (tu archivo de Outlook)” > Insertar > Módulo.
3. Pega el Código: Copia y pega el código de la macro en el módulo.
4. Guarda el Proyecto: Ve a Archivo > Guardar.
5. Cierra el Editor de VBA.

Para probar la macro:

1. Vuelve a Outlook.
2. Ejecuta la Macro: Ve a Vista > Macros > selecciona tu macro y haz clic en Ejecutar.

Yo te recomendaria que te asegures de que las macros estén habilitadas en tu configuración de Outlook. Tambien, si la macro no aparece, verifica que esté guardada en el módulo correcto y que no haya errores en el código.

Espero que información brindada fuera útil. Si necesitas más asistencia, estoy a tu disposición.

Atentamente,

Gao.

---

Si esta respuesta resolvió tu consulta, por favor haz clic en 'Aceptar respuesta'. Esto nos ayuda a mejorar continuamente la calidad y relevancia de nuestras soluciones.