Get email address and subject from cell

[josros60]

Hi,

I have the code below how can I modify it to get the email address and the subject with payment amount from the cell and add signature.

Sub Send_Range()   
   ' Select the range of cells on the active worksheet.
   ActiveSheet.Range("A1:D15").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 = "Please apply payment to the account, invoice(s) listed below, if you have any questions please let me know."
      .Item.To = "josejrossi@gmail.com"
      .Item.CC = ""
      .Item.Subject = "EFT Remittance $"
      .Item.Display
      
   End With
End Sub

thank you,

 

[josros60]

Any help, please, much appreciated.