¿Cómo agregar automáticamente un contacto desde un correo electrónico al responder en Outlook?
Al responder correos electrónicos, es posible que desee añadir automáticamente al remitente o destinatarios a sus contactos de Outlook. Esto le ahorrará tiempo y garantizará que nunca pierda información de contacto importante. Aunque Outlook no incluye de forma nativa la opción de añadir contactos automáticamente al responder, a continuación le explico dos métodos para lograrlo, incluida una función de Kutools para Outlook.
Añadir automáticamente Agregar contacto desde un correo de Outlook al responder con VBA
Añadir automáticamente Agregar contacto desde un correo de Outlook al responder con VBA
Este código VBA añadirá automáticamente al remitente y a todos los destinatarios del correo como contactos al responder al mensaje en Outlook. Siga estos pasos:
1. Pulse las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Expanda Project1 y haga doble clic en ThisOutlookSession para abrirla. A continuación, pegue el siguiente código VBA en la ventana ThisOutlookSession. Vea la captura de pantalla:
VBA: Añadir automáticamente Agregar contacto desde un correo al responder en Outlook
Public WithEvents xExplorer As Outlook.Explorer
Public WithEvents xMailItem As Outlook.MailItem
Sub Application_Startup()
Set xExplorer = Outlook.Application.ActiveExplorer
End Sub
Private Sub xExplorer_SelectionChange()
On Error Resume Next
Set xMailItem = xExplorer.Selection.Item(1)
End Sub
Private Sub xMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
Dim xNameSpace As NameSpace
Dim xSenderAddress As String
Dim xContactItems As Outlook.Items
Dim i, k As Long
Dim xFilterAddress As String
Dim xContact As Outlook.ContactItem
Dim xNewContact As Outlook.ContactItem
Dim Arr() As String
Dim ArrName() As String
Dim xArrCount As Integer
On Error Resume Next
ReDim Arr(xMailItem.Recipients.Count + 1)
ReDim ArrName(xMailItem.Recipients.Count + 1)
xSenderAddress = xMailItem.SenderEmailAddress
Arr(0) = xSenderAddress
ArrName(0) = xMailItem.SenderName
For i = LBound(Arr) + 1 To UBound(Arr) - 1
Arr(i) = xMailItem.Recipients.Item(i).Address
ArrName(i) = xMailItem.Recipients.Item(i).Name
Next i
Set xNameSpace = Outlook.Application.GetNamespace("MAPI")
Set xContactItems = xNameSpace.GetDefaultFolder(olFolderContacts).Items
For i = LBound(Arr) To UBound(Arr) - 1
For k = 1 To 3
xFilterAddress = "[Email" & k & "Address] = " & Arr(i)
Set xContact = xContactItems.Find(xFilterAddress)
If Not (xContact Is Nothing) Then
Exit For
End If
Next k
If xContact Is Nothing Then
Set xNewContact = Outlook.Application.CreateItem(olContactItem)
With xNewContact
.FullName = ArrName(i)
.Email1Address = Arr(i)
.Categories = "From Email"
.Save
End With
End If
Next i
End Sub
3. Guarde el código VBA y reinicie Microsoft Outlook.
A partir de ahora, al responder a un correo en Outlook, el remitente y todos los destinatarios del mensaje se guardarán automáticamente como contactos en la carpeta de contactos predeterminada de la cuenta de correo principal.
Añadir Agregar en lote varios remitentes y destinatarios desde Elementos seleccionados a contactos con Kutools
Kutools para Outlook simplifica la tarea de añadir contactos con su función Añadir remitentes y múltiples destinatarios de los correos seleccionados a contactos. Esto le permite agregar en lote contactos desde uno o varios correos electrónicos.
Paso 1. Descargue e instale Kutools para Outlook. A continuación, vaya a la carpeta Elementos enviados (u otra carpeta) y seleccione los mensajes cuyos remitentes y destinatarios desee añadir a sus contactos.
Paso 2. Haga clic en Kutools > Agregar contacto > Añadir remitentes y múltiples destinatarios de los correos seleccionados a contactos.
Paso 3. En el cuadro de diálogo «Añadir contactos desde correo electrónico»,
Seleccione una carpeta de contactos: elija la carpeta en la que desea guardar el contacto.
Seleccione las direcciones: De forma predeterminada, se seleccionan todas las direcciones excepto las ya existentes. Revise la lista y desmarque aquellas que no quiera añadir.
Haga clic en Aceptar: confirme su selección y guarde los contactos en la carpeta elegida.
Paso 4. Aparecerá un cuadro de diálogo que muestra el número de contactos agregados exitosamente. Haga clic en Aceptar para cerrar el cuadro de diálogo.
Artículos relacionados
Las mejores herramientas de productividad para Office
¡Descubra el nuevo Kutools para Outlook con 100+ funciones increíbles!¡Haga clic para descargar ahora!
📧Automatización de correo electrónico: Respuesta automática (disponible para POP e IMAP) / Programar el envío de correos electrónicos / CC/BCC automático según reglas al enviar correos / Reenvío automático (regla avanzada) / Añadir saludo automáticamente / Dividir automáticamente los correos con múltiples destinatarios en mensajes individuales...
📨Gestión de correo electrónico: Recupera tus correos electrónicos / Bloquea correos fraudulentos por asunto y otros criterios / Elimina correos electrónicos duplicados / Búsqueda avanzada / Organiza tus carpetas…
📁Archivos adjuntos Pro: Guardar en lote / Desvincular en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto comprimir...
🌟Magia de la interfaz: 😊Más emojis bonitos y modernos / Le avisa cuando llegan correos importantes / Minimiza Outlook en lugar de cerrarlo…
👍Maravillas con un solo clic: Responder a Todos con Adjuntos / Correos electrónicos antiphishing / 🕘 Mostrar zona horaria: hora actual del remitente...
👩🏼🤝👩🏻Contactos y calendario: Crear contactos en lote a partir de correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...
Utilice Kutools en su idioma preferido: compatible con inglés, español, alemán, francés, chino y más de 40 idiomas adicionales.
🚀 Descarga con un solo clic — Obtenga todos los complementos de Office
Muy recomendado: Kutools for Office (5 en 1)
Un solo clic para descargar cinco instaladoresa la vez —Kutools para Excel, Outlook, Word, PowerPointy Office Tab Pro.¡Haga clic para descargar ahora!
- ✅Comodidad con un solo clic: Descargue los cinco paquetes de instalación de una sola vez.
- 🚀Listo para cualquier tarea de Office: Instale los complementos que necesite, justo cuando los necesite.
- 🧰Incluido: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint