Hola, tengo una macro que envía directamente un rango a "[email protected]" pero me gustaría que lo enviara al mail que hay en una celda en concreto (B7)
Sub Send_Range()
' Select the range of cells on the active worksheet.
ActiveSheet.Range("D2:J22").Select
' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True
' Set the optional introduction field thats adds
' some header text to the email body. It also sets
Del mismo modo, también me gustaría que el asunto (Item.subject) estuviese vinculado a la celda B8.
Muchas gracias con antelación. Entiendo que este tema ya ha ha sido planteado, pero no he encontrado exactamente lo que buscaba y mis conocimientos en VBA son nulos.
Saludos y gracias de nuevo.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola, tengo una macro que envía directamente un rango a "[email protected]" pero me gustaría que lo enviara al mail que hay en una celda en concreto (B7)
Sub Send_Range()
' Select the range of cells on the active worksheet.
ActiveSheet.Range("D2:J22").Select
' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True
' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = "Buenas tardes, adjuntamos última proforma."
.Item.To = "[email protected]"
.Item.Subject = "Asunto prueba"
.Item.Send
End With
End Sub
Del mismo modo, también me gustaría que el asunto (Item.subject) estuviese vinculado a la celda B8.
Muchas gracias con antelación. Entiendo que este tema ya ha ha sido planteado, pero no he encontrado exactamente lo que buscaba y mis conocimientos en VBA son nulos.
Saludos y gracias de nuevo.