damienenglish
Technical User
Hi All
I have been working on a solution to extract certain data from a spreadsheet to email, which is then sent to a particular client. I need to be able to send multiple bunches of data to different clients. I have managed to put together the following script:
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open _
("C:\Users\desktop\CLW.xls")
IntRow = 2
Do Until objExcel.Cells(IntRow, 2).Value = "***SEND"
Wscript.Echo objExcel.Cells(IntRow, 2).Value
IntRow = IntRow + 1
Loop
objExcel.Quit
What I want to do, is to tell the script to search for a variable called: ***SEND and to them copy the proceeding data in all cells to an email until it comes across the next ***SEND in the spreadsheet.
Then I want to script to copy all data within the two ***SEND areas and paste it into an email in Outlook.
Does anyone have any suggestions on this? I have exhausted my VBA knowledge and am struggling a bit!
Many Thanks
I have been working on a solution to extract certain data from a spreadsheet to email, which is then sent to a particular client. I need to be able to send multiple bunches of data to different clients. I have managed to put together the following script:
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open _
("C:\Users\desktop\CLW.xls")
IntRow = 2
Do Until objExcel.Cells(IntRow, 2).Value = "***SEND"
Wscript.Echo objExcel.Cells(IntRow, 2).Value
IntRow = IntRow + 1
Loop
objExcel.Quit
What I want to do, is to tell the script to search for a variable called: ***SEND and to them copy the proceeding data in all cells to an email until it comes across the next ***SEND in the spreadsheet.
Then I want to script to copy all data within the two ***SEND areas and paste it into an email in Outlook.
Does anyone have any suggestions on this? I have exhausted my VBA knowledge and am struggling a bit!
Many Thanks