Sub Payment_Remittance_Ramesh()
'
' Payment_Remittance_Ramesh Macro
' To send the remittance to Vendor
Dim emailApplication As Object
Dim emailItem As Object
Set emailApplication = CreateObject("Outlook.Application")
Set emailItem = emailApplication.CreateItem(0)
emailItem.to = Range("I3").Value
emailItem.Subject = "Payment Remittance - Digi Canada Inc."
emailItem.Body = Range("A3") & Range("A6")
'Send the Email
'Use this OR .Display, but not both together.
emailItem.Send
' Display the Email so the user can change it as desired before sending it.
' Use this OR .Send, but not both together.
'emailItem.Display
End Sub
I want to select the email body as multiple cell value.
question from:
https://stackoverflow.com/questions/66049613/email-from-excel-vba 与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…