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

ESTEBAN JAVIER CHAMORRO ALVARADO 0 Puntos de reputación
2024-10-30T21:12:20.5533333+00:00

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.

Preguntas y respuestas (Q&A) de Microsoft
Preguntas y respuestas (Q&A) de Microsoft
Use esta etiqueta para compartir sugerencias, solicitudes de características y errores con el equipo de Microsoft Q&A. El equipo de Microsoft Q&A evaluará sus comentarios periódicamente y proporcionará actualizaciones a lo largo del proceso.
354 preguntas
0 comentarios No hay comentarios
{count} votos

1 respuesta

Ordenar por: Muy útil
  1. Gao Chen 1,545 Puntos de reputación Proveedor de Microsoft
    2024-10-31T17:14:31.46+00:00

    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.

    0 comentarios No hay comentarios

Su respuesta

Las respuestas se pueden marcar como respuestas aceptadas por el autor de la pregunta, lo que ayuda a los usuarios a conocer la respuesta que resolvió el problema del autor.