Saltar al contenido

Enviar 2 rangos en el cuerpo de un mail

publicado

Buenas a todos, he estado buscando por el foro, y no encuentro o no se encontrar nada referente a lo que quiero hacer.

Mi idea es que al ejecutar el macro, me envíe un mail con 2 rangos de diferentes hojas en el cuerpo del mail, visualizando todos los elementos que hay dentro de esos rangos, por ejemplo fotos, colores, etc.

En un principio he encontrado la solución de un solo rango gracias a los códigos de "Ron de Bruin", pero no consigo que me mande 2 rangos en el cuerpo.

El código de " Ron de Bruin" es este:

Sub Send_Range_Or_Whole_Worksheet_with_MailEnvelope()
Dim AWorksheet As Worksheet
Dim Sendrng As Range
Dim rng As Range
On Error GoTo StopMacro
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set Sendrng = Worksheets("Sheet1").Range("A1:B15")
Set AWorksheet = ActiveSheet
With Sendrng
.Parent.Select
Set rng = ActiveCell
.Select
ActiveWorkbook.EnvelopeVisible = True
With .Parent.MailEnvelope
.Introduction = "This is test mail 2."
With .Item
.To = "mail"
.CC = ""
.BCC = ""
.Subject = "My subject"
.Send
End With
End With
rng.Select
End With
AWorksheet.SelectStopMacro:
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
ActiveWorkbook.EnvelopeVisible = False
End Sub[/CODE]

Muchas gracias

Featured Replies

publicado

Júntalos en una hoja de trabajo y envíalos como uno solo.

publicado
  • Autor

Muchas gracias por la rapidez, y perdonar por no haberme explicado mejor. Tengo en un Excel dos hojas con varias informaciones para visualizarlas mejor, pero de esas informaciones tengo que enviar varios mail con la información de un rango de la primera hoja y otro rango de la segunda hoja. Cada mail que envió son rangos diferentes por eso no los puedo juntar en rangos correlativos, porque cada uno de los mail necesito enviar una información diferente. Pido disculpas por no explicarlo bien en el primer mail. Muchas gracias

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.