help with linkedin message macro

[uppi28]

Hi,

I am new to his forum and very happy to be here in Mrexcel as a member.

Would like to make a request who is expert to help me in Linkedin message macro.

I have few linkedin groups id where i need send them messages.
so here is the script which i got from one of my friend.

Sub LinkedInMsg()

Dim ie As Object
Dim sResult As String
Dim strURL As String
Dim dtTimer As Date
Dim lAddTime As Long

strURL = CStr(Sheets("Sheet1").Range("A1").Value)
Const lREADYSTATE_COMPLETE As Long = 4

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate strURL

dtTimer = Now
lAddTime = TimeValue("00:00:20")

Do Until ie.readystate = lREADYSTATE_COMPLETE And Not ie.busy
DoEvents
If dtTimer + lAddTime > Now Then Exit Do
Loop

ie.Document.getElementByID("subject-msgForm").Value = Sheets("Sheet1").Range("B1").Value
ie.Document.getElementByID("body-msgForm").Value = Sheets("Sheet1").Range("C1").Value

End Sub

it does works in IE till the filling the content in the message subject and body. but it does not sends message and closed tab to switch to the next link.

I would appreciate if it is done in firefox or else IE is fine (but it is slow in progress)

 

[hippiehacker]

have you tried with sendkeys? to send tab and enter keys?