hi @cturley I think the issue is in the line Set olDestFldr = objNS.Folders("DFPHouse")

Folder cannot be set in that way. You have to use one of the getFolder methods.

Here's some sample code I wrote to move one item from default folder to customfolder

Sub outlooktest() Dim olApp As New Outlook.Application, objNS As Outlook.Namespace, items As Outlook.items, item As Outlook.MailItem, singlefolder As Outlook.Folder, testfolders As Outlook.Folders Dim destFolder As Outlook.Folder, destfolderId As String Set objNS = olApp.GetNamespace("MAPI") Set items = objNS.GetDefaultFolder(olFolderInbox).items Set item = items.GetFirst destfolderId = getfolderId("customfolder") Set destFolder = objNS.GetFolderFromID(destfolderId) item.Move destFolder End Sub Function getfolderId(foldername) Dim olApp As New Outlook.Application, objNS As Outlook.Namespace, mainfolder As Outlook.Folder, subfolders As Outlook.Folders, singlefolder As Outlook.Folder Set objNS = olApp.GetNamespace("MAPI") Set mainfolder = objNS.Folders.GetFirst Set subfolders = mainfolder.Folders For Each singlefolder In subfolders If singlefolder.name = foldername Then getfolderId = singlefolder.EntryID End If Next End Function

Usually custom folders get created inside the main folder so I wrote above function to look for subfolders in the main folder. Modify it if your folder hierarchy is different. Let me know if that helps.

This script won't work because your field names are wrong. Look at this line - var location = e.namedValues.Location[0] The field name should match exactly with the name of the field in your form.

I had a look at your form in your website. According to that I'm guessing that the field name would be something like this -

var location = e.namedValues['Skill Sprout Clinic Location:'][0]

I can't tell that for sure unless I have full access to form. If you don't want to use namedValues then you can use e.values which would be something like this -

var location = e.values[2] //Assuming that location is the second field in your form

Understand the code before implementing it and debug it using Logger.log method.

Verify if the script is being triggered or not like this -

function autoResponder(e){ Logger.log("script started"); Logger.log(e); //Other code }

Then check our logs in script editor after submitting the form by pressing Ctrl + Enter or View > Logs

Hi Glen,

The data in that page is rendered client side by making a call to their API. Read more about client side rendering here and how to scrape such sites here - https://codingislove.com/best-practices-scraping-website-data/

Here's the API Url for your understanding - https://www.cscjes-cronfa.co.uk/api/events?startDate=2017-07-26T00%3A00%3A00%2B05%3A30&take=25&skip=0&_=1501015156446

If you make a GET request to this URL then you'll get that data.

Hi @elfrom I tried this but there's an issue with the library which is throwing an error out of stack space if nested levels are more than 3. I'll keep trying to find any workaround and let you know if I find something. And yes this is one complicated recursion!

Hi, just try this. Neither any reference nor any external library is needed:

Sub Parsing_json() Dim http As New XMLHTTP60, itm As Variant With http .Open "GET", "http://jsonplaceholder.typicode.com/users", False .send itm = Split(.responseText, "id"":") End With x = UBound(itm) For y = 1 To x Cells(y, 1) = Split(Split(itm(y), "name"": """)(1), """")(0) Cells(y, 2) = Split(Split(itm(y), "username"": """)(1), """")(0) Cells(y, 3) = Split(Split(itm(y), "email"": """)(1), """")(0) Cells(y, 4) = Split(Split(itm(y), "street"": """)(1), """")(0) Cells(y, 5) = Split(Split(itm(y), "suite"": """)(1), """")(0) Cells(y, 6) = Split(Split(itm(y), "city"": """)(1), """")(0) Cells(y, 7) = Split(Split(itm(y), "zipcode"": """)(1), """")(0) Cells(y, 8) = Split(Split(itm(y), "phone"": """)(1), """")(0) Cells(y, 9) = Split(Split(itm(y), "website"": """)(1), """")(0) Cells(y, 10) = Split(Split(Split(itm(y), "company"": ")(1), "name"": """)(1), """")(0) Cells(y, 11) = Split(Split(itm(y), "catchPhrase"": """)(1), """")(0) Cells(y, 12) = Split(Split(itm(y), "bs"": """)(1), """")(0) Next y End Sub

Here's the tutorial - Fetching weather data in Excel VBA

@Mustapha-Aliyu This query should work

SELECT Table1.houseid, Table1.flatnumber, Table1.roomnumber, Max(Table1.payscale) AS [Max Of payscale] FROM Table1 GROUP BY Table1.houseid, Table1.flatnumber, Table1.roomnumber;

But It won't return tenant number. I'm trying to get that too. I'll let you know if I could get it!

Thanks for sharing!

Thanks for your response. The data of that site more specifically any site is not important to me at all. However, what does important to me is that whatever the structure of a site is, I can deal with that. That is why I rove different sites and try to understand their pattern. That's it.

@bennyys It's hard to debug without looking at the actual URL. Above posted HTML is also not in the right format.

Great! That did the trick. Thank you so much.....

thank you ranjithkumar10 fro the link.

I've got it sorted. Turn out that when I downloaded the updated chromedriver.exe and pasted it to this folder "C:\Program Files\SeleniumBasic", It works like magic without adding any argument in my script.

@ranjithkumar10 ,
Thanks a ton. The great thing about creating any thread in the forum of your blog is that you never disappoint anyone from your support. Btw, according to the link you have provided above, if we get this feature [Try/Catch/Finally ] in vba then it will be awesome.

Thanks Ranjith, for your reply. I've already got it sorted.

You can use filters or sort by order to group rows vertically as shown in this gif - http://i.imgur.com/rZWI5fA.gif
But I'm not sure if you can get all the users horizontally in the same row unless you write a custom script.

Hi @ranjithkumar10,
Apart from I can't use simple GET to log in to FB, could you please check Function PageAuthorized above if you can manage to get it works.

Regards,
Benny

your welcome.

There isn't really anything to learn about scripting dictionary. It's just a key value pairs object.
http://stackoverflow.com/documentation/vba/3667/scripting-dictionary-object#t=201705202049493519399