A veces, cuando redacta un correo electrónico, es posible que desee enviar este correo a las direcciones de correo electrónico en el cuerpo del mensaje. Este artículo lo guiará para obtenerlo rápidamente.
Por ejemplo, alguien le pide la información de contacto de algunas personas, como las direcciones de correo electrónico. En este caso, es posible que desee informar a estas personas sobre este asunto cuando envíe su información de contacto a otros. Por lo tanto, le gustaría copiar las direcciones de correo electrónico del cuerpo del mensaje al campo "CC". En general, debes hacerlo uno a uno manualmente. Pero es demasiado tedioso y engorroso. Entonces, a continuación, presentaremos una forma mucho más inteligente.
Copie las direcciones de correo electrónico que aparecen en el cuerpo al campo "CC" al redactar
- Desde el principio, presione las teclas "Alt + F11" para iniciar el editor de Outlook VBA.
- Luego, en la nueva ventana, coloque el siguiente código VBA en un módulo vacío.
Sub CopyEmailAddresses_FromBodyToCCField()
Dim objMail As Outlook.MailItem
Dim objMailDocument As Object
Dim objDocRange As Object
Dim objRecipient As Outlook.Recipient
'Get the current mail
Set objMail = Application.ActiveInspector.CurrentItem
Set objMailDocument = objMail.GetInspector.WordEditor
Set objDocRange = objMailDocument.Range
'Extract email addresses from mail body
With objDocRange.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "[A-z,0-9]{1,}\@[A-z,0-9,.]{1,}"
.MatchWildcards = True
.Wrap = wdFindStop
.Execute
End With
'Add the found email addresses as CC recipients
While objDocRange.Find.Found
Set objRecipient = objMail.Recipients.Add(objDocRange.Text)
objRecipient.Type = olCC
objDocRange.Collapse wdCollapseEnd
objDocRange.Find.Execute
Wend
'Resolve all recipients
objMail.Recipients.ResolveAll
End Sub
- Después de eso, salga del editor de VBA y agregue esta nueva macro a la barra de herramientas de acceso rápido de la ventana de mensajes haciendo referencia a "Cómo ejecutar código VBA en su Outlook".
- Eventualmente, puedes tomar una foto. Aquí está mi ejemplo real.
- En primer lugar, redacto un correo electrónico que contiene una pila de direcciones de correo electrónico en el cuerpo.
- Luego, haga clic en el botón de macro en la barra de herramientas de acceso rápido.
- Inmediatamente, cuando finalice la macro, todas las direcciones de correo electrónico en el cuerpo se copiarán en el campo "CC", como la captura de pantalla a continuación.
¿Qué pasa si sus datos de Outlook se dañan?
Es bien sabido que Outlook puede verse comprometido debido a una variedad de factores, como errores humanos, apagados repentinos, fallas internas del software de Outlook, así como fallas en el hardware de su computadora, etc. Por lo tanto, en realidad, muchos usuarios han estado sujetos a problemas similares en Outlook. Se admite que la most Un problema molesto y molesto es el daño del archivo de Outlook. En esa situación, deberá recurrir a profesionales Recuperación de PST servicio o software, 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 arreglar mdf y productos de software de reparación de Outlook. Para más información visite www.datanumen.com