Posts by Yash20

Re: VBA code to wait until file download from IE is complete

thanks skywriter!!!

Hello All,

I'm trying to download an excel file from a webpage and so far I was able to open the webpage, navigate and click on save button but I need to access that excel file once it is downloaded. But sometimes it takes time to download depending on the size of the file. Is there any way we can check the window and see if the download is complete and only then to proceed to open the downloaded file. Below is the code.

Dim o As IUIAutomation
Dim e As IUIAutomationElement
Set o = New CUIAutomation
h = IE.Hwnd


h = FindWindowEx(h, 0, "Frame Notification Bar", vbNullString)


If h = 0 Then


MsgBox "Not Found"


End If




Set e = o.ElementFromHandle(ByVal h)
Dim iCnd As IUIAutomationCondition
Set iCnd = o.CreatePropertyCondition(UIA_NamePropertyId, "Save")


Dim Button As IUIAutomationElement
Set Button = e.FindFirst(TreeScope_Subtree, iCnd)
Dim InvokePattern As IUIAutomationInvokePattern
Set InvokePattern = Button.GetCurrentPattern(UIA_InvokePatternId)
InvokePattern.Invoke

Also Posted here: http://stackoverflow.com/questions/3...ie-is-complete
http://www.excelforum.com/show…052&p=4498382#post4498382

Re: Paste Lotus Notes email body to Word Document

Thank you so much John!!!!
This works like charm, u r truly a genius. I had posted this question in some other blogs as well but there was not much response.
You have made my impossible work easy...

Re: Paste Lotus Notes email body to Word Document

Thanks cytop!!!

Re: Paste Lotus Notes email body to Word Document

Hello Cytop,

Let me know if there is any progress?

Re: Paste Lotus Notes email body to Word Document

Hello Kenneth,

I tried the link you have provided above but I get below error for the code

Set db = session.CurrentDatabase

Session has not been initialized

Kindly let me know wat is wrong here.

Re: Copy from Lotus note body in mail to excel cells.

Hello John,

I know its an old thread but I really needs ur support here.

http://<Snip>

I have copied the body of the Lotus Notes email and tried to paste it into the Word document but it pastes a text/string, I wud need to have all the formatted texts also included while pasting. I tried to post this in many other blogs but hardly got any help.

Awaiting for your favorable response!!!

Re: Paste Lotus Notes email body to Word Document

Thanks cytop for the prompt response, I understand the rules and here is the link

http://stackoverflow.com/quest…#comment65056946_38827408

Re: Paste Lotus Notes email body to Word Document

Thanks all for your response, its very unfortunate that nobody could provide the solution!!!

Re: Paste Lotus Notes email body to Word Document

Thanks felim for ur input but unfortunately it doesn't work that way.

Re: Paste Lotus Notes email body to Word Document

Hello Kenneth,

The reason why I am trying to copy the entire content of email and pasting into word document is, I was unable to copy the hyperlink from the email body as it was in hotspot properties. Hence I thought I will copy the email body content into word document and from there I could retrieve only the entire hyperlink

Re: Paste Lotus Notes email body to Word Document

I am unable to declare New NOTESUIWORKSPACE and also Dim doc As New NotesDocument(db).
Also I could not understand the statement all doc.ReplaceItemValue("Form", "MailAudit")

Re: Paste Lotus Notes email body to Word Document

Hello Kenneth,

I have used early binding only, I have referenced 2 libraries Lotus Domino Objects and Lotus Notes Automation Classes.

But NotesUIWorkspace does not get instanciate, is there any other work around for this?

Re: Paste Lotus Notes email body to Word Document

Thanks Kenneth, but when I declare

Dim wsp As New NotesUIWorkspace
Dim curruidoc As NotesUIDocument
Dim currdoc As NotesDocument

This gives me an error, hence I'm unable to proceed further. Kindly provide me code which I can continue from where I have been stuck!!!

Re: Paste Lotus Notes email body to Word Document

Sorry Kenneth, I'm unable to try the method which you suggested.

Re: Paste Lotus Notes email body to Word Document

Thanks Kenneth for the response, I will try what u said and keep you posted!!!

Hello All,

I am trying to paste the Lotus Notes email body to Word document and I'm almost successful in doing that. But when I paste the content to word it does not show the hyperlinks, it will just paste as text. Below is what I have tried so far. I would want the hyperlinks also from body of the email to be pasted to word document.

Set NSession = CreateObject("Notes.NotesSession")
Set NMailDb = NSession.GetDatabase("", "")




    If Not NMailDb.IsOpen Then
    
        NMailDb.OPENMAIL
        
    End If
    
Set NDocs = NMailDb.GetView(view)
NDocs.Clear




    If filterText <> "" Then
    
        NDocs.FTSEARCH filterText, 0
        
    End If
    
Set NDoc = NDocs.GetFirstDocument




    Do Until Left(NDoc.GETITEMVALUE("PostedDate")(0), 8) <> Left(Now(), 8)
    
        Set NNextDoc = NDocs.GetNextDocument(NDoc)
        
        If Left(NDoc.GETITEMVALUE("PostedDate")(0), 8) = Left(Now(), 8) Then
        
        
            If InStr(3, NDoc.GETITEMVALUE("From")(0), "From", vbTextCompare) > 0 Then




                Set NItem = NDoc.GetFirstItem("Body")
            
                Set wrdApp = CreateObject("Word.Application")
                Set wrdDoc = wrdApp.Documents.Open("C:\https.docm")
                wrdApp.Visible = True
                Set objSelection = wrdApp.Selection
                                                        
                objSelection.TypeText NDoc.GETITEMVALUE("Body")(0)

Re: Unable to click on a link from webpage

Hello All,

There is no one who can resolve this?

Re: Unable to click on a link from webpage

Hello Norie,

I have seen your multiple threads related to IE issues and I know you wud be the right person for me to help.

Kindly let me know if there are any solutions to achieve this?

Re: Unable to click on a link from webpage

@ Super Moderator thank you!!!