Incorporar Firma en una macro que sirve para enviar mail a múltiples destinatarios
publicado
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
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