Using exact same method as other site, I cannot even get started, ie picking up the username input just fails. Wondering what is special here... could it be OAUTH? I know nothing about that... but saw it mentioned elsewhere. I have no idea even how to tell if this site uses some such authentication... any suggestions?
If I should open this in another thread.. let me know ;-)
If sessionId expires in a day or after few hours then you have to make one request for accepting the terms which sends jsessionId in cookie. Then you have to parse it using http.getAllResponseheaders() method and use it in further POST requests as mentioned.
Am reviewing these instructions to resolve the jsessionid cookie.
Any supportive links for instruction in this, greatly appreciated.
@ranjithkumar10 I incorporated the code into my existing code. I am getting a compile error, method ir data member not found. It is reacting to the items as outlook.items line. Here is the code I am testing.
Private WithEvents Items As Outlook.Items
Private Sub Application_Startup()
Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Set objNS = olApp.GetNamespace("MAPI")
Set Items = Outlook.Item
Set Item = Outlook.MailItem
singlefolder As Outlook.Folder
testfolders As Outlook.Folder
Set Items = objNS.GetDefaultFolder(olFolderInbox).Items
Private Sub Items_ItemAdd(ByVal Item As Object)
On Error GoTo ErrorHandler
'Only act if it's a MailItem
Dim Msg As Outlook.MailItem
If TypeName(Item) = "MailItem" Then
Set Msg = Item
'Set folder to save in.
Dim destfldr As Outlook.Folder
destfoldrId As String
Set Items = objNS.GetDefaultFolder(olFolderInbox).Item
Set Item = Items.GetFirst
destfoldrId = getfolderId("customfolder")
Dim myAttachments As Outlook.Attachments
'location to save in. Can be root drive or mapped network drive.
Const attPath As String = "T:\Daily Report Raw Data"
Const attPath2 As String = "T:\Programmatic Deal Raw Data"
'Change variables to match need. Comment or delete any part unnecessary.
If (Msg.SenderEmailAddress = "[email protected]") And _
(Msg.Subject = "Last 7 Day House Ads") And _
(Msg.Attachments.Count >= 1) Then
Set myAttachments = Item.Attachments
myAttachments.Item(1).SaveAsFile attPath & "\Daily House Ads.xls"
'mark as read
Msg.UnRead = False
Set destfldr = objNS.GetFolderFromID("DFPHouse")
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.