¿Cómo agregar nombres a los campos CC y CCO desde Excel?

Para agregar nombres a los campos CC (Copia de Carbón) y CCO (Copia de Carbón Oculta) desde un archivo de Excel al enviar correos electrónicos, puedes hacerlo usando Microsoft Outlook junto con un poco de programación en VBA (Visual Basic for Applications). A continuación te explico un método para lograrlo:

Paso 1: Preparar el archivo de Excel

Crear una Hoja de Excel: Asegúrate de que tu archivo de Excel tenga columnas dedicadas para las direcciones de correo electrónico que deseas usar. Por ejemplo:

Columna A: Nombre
Columna B: Dirección de correo electrónico
Columna C: CC (si aplica)
Columna D: CCO (si aplica)

Llenar los Datos: Agrega los datos correspondientes en cada fila.

Paso 2: Configurar Outlook y VBA

     Sub EnviarCorreoDesdeExcel()
         Dim OutlookApp As Object
         Dim Correo As Object
         Dim i As Integer
         Dim Destinatario As String
         Dim CCList As String
         Dim CCOList As String
         Dim lRow As Long
         Dim ws As Worksheet
         
         ' Iniciar aplicación de Outlook
         Set OutlookApp = CreateObject("Outlook.Application")
         ' Establecer la hoja de trabajo
         Set ws = ThisWorkbook.Sheets("NombreDeTuHoja") ' Cambia "NombreDeTuHoja" por el nombre de tu pestaña
         
         ' Encontrar la última fila con datos en la columna B (cambiar si es necesario)
         lRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
         
         For i = 2 To lRow ' Empieza en 2 asumiendo que la primera fila tiene encabezados
             Destinatario = ws.Cells(i, 2).Value
             CCList = ws.Cells(i, 3).Value
             CCOList = ws.Cells(i, 4).Value

             If Destinatario <> "" Then
                 ' Crear un correo
                 Set Correo = OutlookApp.CreateItem(0)
                 With Correo
                     .To = Destinatario
                     .CC = CCList
                     .BCC = CCOList
                     .Subject = "Asunto del Correo"
                     .Body = "Este es el cuerpo del correo."
                     ' .Send ' Usa Send para enviar directamente o Display para verlo antes de enviar
                     .Display
                 End With
             End If
         Next i
         
         ' Limpiar objetos
         Set Correo = Nothing
         Set OutlookApp = Nothing
     End Sub

Abrir Outlook: Asegúrate de que Outlook está configurado y abierto.
Abrir el Editor de VBA en Excel:

Con el archivo de Excel abierto, presiona `ALT + F11` para abrir el editor de VBA.

Insertar un Nuevo Módulo:

En el menú, ve a `Insertar > Módulo` para crear un nuevo módulo.

Escribir el Código VBA:

Copia y pega el siguiente código en el módulo:

Personalizar el Código:

Cambia `»NombreDeTuHoja»` por el nombre real de la hoja de tu Excel.
Personaliza el asunto y el cuerpo del correo según tus necesidades.
Decide si quieres usar `.Send` para enviar directamente o `.Display` para revisar antes de enviar.

Ejecutar el Macro:

Vuelve a Excel, presiona `ALT + F8` para abrir la lista de macros, selecciona `EnviarCorreoDesdeExcel` y haz clic en `Ejecutar`.

Nota

Asegúrate de tener habilitadas las macros en Excel.
Considera las políticas de seguridad de tu organización al usar macros.
Siempre prueba con un conjunto pequeño de datos antes de enviar correos masivos.