Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
Estimadas/os,
Junto con saludar, estoy recien empezando en este mundo del VB, y estuve trabajando en una macro que en función de una lista, empleo BUSCARV según vendedor y enviar al correo de forma separada con copia a jefaturas correspondiente.
La macro sería la siguiente:
Sub Enviar_Rango_a_Destinatario_de_correo()
ActiveSheet.Range("AG2:AX14").Select
For i = 1 To 13
ThisWorkbook.Sheets("RESUMEN").Range("X1").Value = i
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.To = ThisWorkbook.Sheets("Resumen").Range("X4").Value
.Item.cc = ThisWorkbook.Sheets("Resumen").Range("X5").Value
.Item.Subject = ThisWorkbook.Sheets("Resumen").Range("X2").Value
.Introduction = ThisWorkbook.Sheets("Resumen").Range("X7").Value
.Item.Send
End With
Next i
End Sub
Mi pregunta es... existe alguna manera para incorporar una firma en el mensaje (suponiendo que la firma en el excel la puse en una nueva celda X8).
De antemano, gracias!
Saludos