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?