Envía un correo electrónico a varios destinatarios y coloca algunos de ellos en el campo "CCO". Más adelante, si desea enviar un segundo correo solo a los destinatarios de CCO, puede utilizar los medios compartidos en este artículo.
¿Alguna vez ha enviado correos electrónicos de Outlook a varios destinatarios con algunos en el campo "CCO"? A veces, después de enviar un correo electrónico de este tipo, es posible que desee enviar un segundo a un tipo específico de destinatarios, como los destinatarios CCO. Por ejemplo, desea enviarles algunas notas adicionales particulares. Ahora, le presentaremos 2 formas. El primero es copiar y pegar. Y este último es en realidad mucho más efectivo debido al código VBA. Puede elegir según sus necesidades.
Método 1: copiar destinatarios CCO a un nuevo correo electrónico manualmente
- En primer lugar, en la lista de correo electrónico de la carpeta "Elementos enviados", seleccione el correo electrónico original.
- Luego, haga doble clic en este correo para abrirlo en su propia ventana de Mensaje.
- Posteriormente, en la nueva ventana, seleccione un destinatario en la línea "CCO".
- A continuación, presione "Ctrl + A" para seleccionar todos los destinatarios CCO.
- Más tarde, haga clic derecho y elija "Copiar" en el menú contextual.
- Después de eso, cierre este correo electrónico.
- Luego, cree un nuevo correo electrónico con el botón "Nuevo correo electrónico" en la pestaña "Inicio".
- Por último, pegue los destinatarios CCO copiados en el campo "Para" de este nuevo correo electrónico.
- En la actualidad, puedes redactar y enviar este nuevo correo a voluntad
Método 2: envíe un segundo correo electrónico a los destinatarios CCO a través de VBA
- En primer lugar, presione "Alt + F11" para acceder al editor de VBA.
- Luego, coloque el código VBA a continuación en un módulo no utilizado.
Sub SendAnotherEmailToBCCRecipients()
Dim objOriginalMail As Outlook.MailItem
Dim objRecipient As Outlook.Recipient
Dim objNewMail As Outlook.MailItem
Dim objNewRecipient As Outlook.Recipient
'Get source email
Select Case TypeName(Application.ActiveWindow)
Case "Inspector"
Set objOriginalMail = ActiveInspector.CurrentItem
Case "Explorer"
Set objOriginalMail = ActiveExplorer.Selection.Item(1)
End Select
'Copy the BCC recipients to "To" field in new mail
Set objNewMail = Outlook.Application.CreateItem(olMailItem)
For Each objRecipient In objOriginalMail.Recipients
If objRecipient.Type = olBCC Then
Set objNewRecipient = objNewMail.Recipients.Add(objRecipient)
objNewRecipient.Type = olTo
objNewRecipient.Resolve
End If
Next
'Change the new email details
With objNewMail
.Subject = "Additional Notes for " & objOriginalMail.Subject
.Body = "Type mail body here....."
.Attachments.Add ("E:\Dos & Don'ts.txt")
.Importance = olImportanceHigh
.ReadReceiptRequested = True
.Send
.Display
End With
End Sub
- Posteriormente, agregue esta macro a la barra de herramientas de acceso rápido haciendo referencia a "Cómo ejecutar código VBA en su Outlook".
- En última instancia, pruebe esta macro ahora mismo.
- Para empezar, seleccione o abra el correo electrónico original.
- Luego, haga clic en la macro en la barra de herramientas de acceso rápido.
- A continuación, se enviará un nuevo correo electrónico. Sus destinatarios son los destinatarios CCO del correo electrónico original, como en la siguiente imagen.
Recupere sus datos de Outlook a tiempo
Es muy recomendable reparar Outlook tan pronto como su Outlook esté dañado. En primer lugar, puede recurrir a la utilidad de reparación incorporada: Scanpst. Sin embargo, a veces, puede estar sujeto a fallas de Scanpst debido a que el daño ha excedido lo que puede hacer la herramienta de bandeja de entrada. En ese momento, su último recurso es utilizar una herramienta de terceros sólida y confiable, como DataNumen Outlook Repair.
Introducción del autor:
Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo mdf dañado y productos de software de reparación de Outlook. Para más información visite www.datanumen.com





