Ejercicio 3 Prompt Excel

📘 Ejercicio 3 – Envío automático de correos desde Excel

📌 Planteamiento del problema:

Una empresa desea enviar **correos automáticos** a los clientes con facturas vencidas. Se necesita una macro que:

• ✅ Revise en la hoja "Facturas" los clientes con estado “Vencido”.
• ✅ Abra Outlook y prepare un correo para cada cliente vencido.
• ✅ Use el correo que está en la columna Email.
• ✅ Envíe un mensaje predeterminado informando la deuda.
• ✅ Incluya una copia (CC) al gerente de cobranzas.

👉 Tu objetivo es redactar un prompt para que la IA cree esta macro de Outlook y Excel trabajando juntos.

"Escribe una macro en VBA que:
1️⃣ Revise en la hoja 'Facturas' todas las filas con estado 'Vencido'.
2️⃣ Para cada cliente vencido, cree un correo en Outlook.
3️⃣ Use la dirección en la columna 'Email'.
4️⃣ En el cuerpo del correo escriba: 'Estimado cliente, su factura está vencida. Por favor, regularice el pago.'.
5️⃣ Añada en CC a 'gerencia@empresa.com'.
6️⃣ Envíe todos los correos automáticamente."
  

Sub EnviarCorreosVencidos()
    Dim OutlookApp As Object, Correo As Object
    Dim ws As Worksheet
    Dim i As Long
    Dim email As String, nombre As String
    
    Set ws = Sheets("Facturas")
    
    ' Crear objeto Outlook
    Set OutlookApp = CreateObject("Outlook.Application")
    
    ' Recorrer facturas
    For i = 2 To ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
        If ws.Cells(i, 3).Value = "Vencido" Then
            email = ws.Cells(i, 2).Value
            nombre = ws.Cells(i, 1).Value
            
            ' Crear correo
            Set Correo = OutlookApp.CreateItem(0)
            With Correo
                .To = email
                .CC = "gerencia@empresa.com"
                .Subject = "Aviso de factura vencida"
                .Body = "Estimado " & nombre & "," & vbCrLf & _
                        "Su factura está vencida. Por favor, regularice el pago lo antes posible."
                .Send
            End With
        End If
    Next i
    
    MsgBox "✅ Correos enviados a todos los clientes con facturas vencidas."
End Sub