Sub Enviar_Correos()
'***Macro Para enviar correos
Set dam = CreateObject("outlook.application").CreateItem(0)
col = Range("f7").Column ' Define el número de la columna, a partir de la cual la macro buscará archivos para adjuntar al email
For i = 8 To Range("B" & Rows.Count).End(xlUp).Row ' Bucle, que recorrera desde la fila 8 hasta la última fila hacia bajo que encuentre diligeciada
Set dam = CreateObject("Outlook.Application").CreateItem(0) ' Configuración de obejto outlook para usar esta aplicación como servicio de envío
'
dam.To = Range("B" & i).Value 'Celda donde se encuenta el Destinatarios (la i es el valor de la variable en el bucle)
dam.CC = Range("C" & i).Value 'Con copia
'dam.BCC = Range("D" & i).Value 'Con copia oculta
dam.Subject = Range("D" & i).Value '"Asunto"
dam.HTMLBody = cuerpo & dam.HTMLBody 'Con esta parte se agre la firma
dam.Body = Range("E" & i).Value '"Cuerpo del mensaje"
'Agregación de archivos adjuntos
For j = col To Cells(i, Columns.Count).End(xlToLeft).Column - 3
archivo = Cells(i, j).Value
If archivo <> "" Then dam.Attachments.Add archivo ' Con el condicional IF, el mismo SI que utilziamos en Excel, sabremos si hay archivos o no para adjuntar.
Next
Dam. Send 'El correo se envía en automático
'dam. Display 'El correo se muestra
Next
MsgBox "Correos enviados", vbInformation, "www.excelparatodos.com" ' Mensaje de confirmación
End Sub
no puedo agregar mi firma oajala puedan ayudarme
Comentario borrado por el autor - Leonardo Valdez Hernández