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:
- Abre el Editor de VBA: Presiona
ALT + F11
. - Inserta un Módulo: Haz clic derecho en “VBAProject (tu archivo de Outlook)” >
Insertar
>Módulo
. - Pega el Código: Copia y pega el código de la macro en el módulo.
- Guarda el Proyecto: Ve a
Archivo
>Guardar
. - Cierra el Editor de VBA.
Para probar la macro:
- Vuelve a Outlook.
- Ejecuta la Macro: Ve a
Vista
>Macros
> selecciona tu macro y haz clic enEjecutar
.
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.