How can i edit this VBA code so it takes values of my excel sheet and adds it to the body of an email?

I have this VBA code.

    Sub EmailDirektSenden()

Dim objOutlook As Object
Dim objMail As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

With objMail   
.To = "[email protected]"  
.Subject = "xyz"   
.Body = "TOC is (value of "B";"row of the matching date")."   
.Send       

 End With

End Sub    

I need to send values from a my excel sheet when it matches today's date. For Example: in column "A" are the dates. In column "B" "C" "D" and "E" are the coresponding values. So now i want do press a button and the VBA code should search for todays date. Then take the values behind the date and add it to the .Body. In a given Text.

can someone help me edit the code or tell me how to do it?

https://i.stack.imgur.com/UmRxE.jpg

Quote from pHENOMEX

I have this VBA code.

Code

    Sub EmailDirektSenden()

Dim objOutlook As Object
Dim objMail As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

With objMail   
.To = "[email protected]"  
.Subject = "xyz"   
.Body = "TOC is (value of "B";"row of the matching date")."   
.Send       

 End With

End Sub    

Display More

I need to send values from a my excel sheet when it matches today's date. For Example: in column "A" are the dates. In column "B" "C" "D" and "E" are the coresponding values. So now i want do press a button and the VBA code should search for todays date. Then take the values behind the date and add it to the .Body. In a given Text.

can someone help me edit the code or tell me how to do it?

https://i.stack.imgur.com/UmRxE.jpg

I attached the Workbook to this Quote.