Boa tarde. Estou tentando criar uma macro que envie determinado intervalo de uma planilha para no corpo de um e-mail. Os destinatários desse e-mail deverão ser a partir de uma lista que pode estar localizada em uma outra aba.

Fiz algumas pesquisas, mas como sou bem iniciante nessa parte de vba não consegui chegar numa solução.

Atualmente consigo mandar apenas para os e-mails cadastrados dentro do código, gostaria de poder informar uma listagem de e-mail para poder mandar.

Segue abaixo o código que usei e também o arquivo anexo.

--------------------------------------------------------------------------------------------------------

Sub enviar_corpo_email()
' Seleciona o intervalo de células a serem enviadas por email.
ActiveSheet.Range("intervalo").Select
ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
.Introduction = ""
.Item.To = "[email protected]"
.Item.Subject = ""
.Item.Send
End With

ActiveCell.Activate
MsgBox "Sua mensagem foi enviada com sucesso!!"
Application.ScreenUpdating = True

End Sub

-------------------------------------------------------

Desde já obrigado

Murilo Maturana