Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

yhoo chat via excel spread sheet

Posted on 2014-02-03
26
Medium Priority
?
701 Views
Last Modified: 2014-02-09
Hi Experts,

Is there any way to yahoo chat via excel spread sheet?

Thanks
0
Comment
Question by:Naresh Patel
  • 16
  • 10
26 Comments
 
LVL 28

Expert Comment

by:MacroShadow
ID: 39831136
Here's a snippet using Office Communicator:

1) Install Office Communicator[
2) Alt-F11 (to open the VBE)
3) Tools > References
4 Check box of anything beginning with Microsoft Offcie Communicator
5) Save, Close Excel, Reopen, try again

Sub SendIM()

    Dim msgr As CommunicatorAPI.IMessengerConversationWndAdvanced
    Dim ToUser As String
    Dim message As String

    Application.ScreenUpdating = False

    ToUser = "someone@somewhere.com”"
    message = "test vba communicator”"

    On Error Resume Next
    Set msgr = Messenger.InstantMessage(ToUser)
    '
    'Send message to window
    '
    msgr.SendText (message)
    msgr.Close

    Application.ScreenUpdating = True

End Sub

Open in new window


from: http://vbaninja.wordpress.com/excel/how-to-send-an-instant-message-from-excel-using-communicator/
0
 
LVL 8

Author Comment

by:Naresh Patel
ID: 39831195
Mr.MacroShadow,

will you provide me exact link for download office communicator, I had visited your link but I cant find any  option for to download.

thanks
0
 
LVL 8

Author Comment

by:Naresh Patel
ID: 39831212
I found this as per sound step VBA reff


Thanks
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 
LVL 8

Author Comment

by:Naresh Patel
ID: 39831221
or is there any way to click on excel sheet button & some range data copy & past to yahoo messenger window which is on desktop & sent?


Thanks
0
 
LVL 8

Author Comment

by:Naresh Patel
ID: 39831225
apology as I am now off the desk for 9 hours.


thanks
0
 
LVL 8

Author Comment

by:Naresh Patel
ID: 39832063
I am back online Sir
0
 
LVL 28

Expert Comment

by:MacroShadow
ID: 39832200
1. Microsoft Office Communicator 2007 R2 Trial is available to download from http://www.microsoft.com/en-us/download/details.aspx?id=8468

2. You can probably use the Yahoo! Messenger library, hit F2 in the VBE to see what functions and methods it made available to developers.

3. You can use Microsoft Spy++ to find the hwnd of yahoo chat application and its text box.

Then you can use the following APIs findwindow, findwindowx and sendmessage to send text to that text box.
0
 
LVL 8

Author Comment

by:Naresh Patel
ID: 39832258
ok got it let me check what can do as you suggested.

but still this is possible
or is there any way to click on excel sheet button & some range data copy & past to yahoo messenger window which is on desktop & sent?



Thanks
0
 
LVL 28

Expert Comment

by:MacroShadow
ID: 39832277
That was point #3.
0
 
LVL 8

Author Comment

by:Naresh Patel
ID: 39832283
See Sir I am not IT guy or Programmer so it is beyond my understanding. I had installed
1. Microsoft Office Communicator 2007 R2 Trial is available to download from

now what you suggest?

Thanks
0
 
LVL 28

Expert Comment

by:MacroShadow
ID: 39832296
0
 
LVL 8

Author Comment

by:Naresh Patel
ID: 39832473
1) Install Office Communicator[
2) Alt-F11 (to open the VBE)
3) Tools > References
4 Check box of anything beginning with Microsoft Offcie Communicator
5) Save, Close Excel, Reopen, try again

Too many options what to select all 3 or any one?
Thanks
0
 
LVL 28

Expert Comment

by:MacroShadow
ID: 39832548
"anything".
0
 
LVL 8

Author Comment

by:Naresh Patel
ID: 39832649
ok done
Sub SendIM()

    Dim msgr As CommunicatorAPI.IMessengerConversationWndAdvanced
    Dim ToUser As String
    Dim message As String

    Application.ScreenUpdating = False

    ToUser = "someone@somewhere.com”"
    message = "test vba communicator”"

    On Error Resume Next
    Set msgr = Messenger.InstantMessage(ToUser)
    '
    'Send message to window
    '
    msgr.SendText (message)
    msgr.Close

    Application.ScreenUpdating = True

End Sub

Open in new window



Do u want me to add this code as module?

Thanks
0
 
LVL 28

Expert Comment

by:MacroShadow
ID: 39832691
Yes.

Change line 10 to the cell that holds the message to send. i.e. message = Range("A1")
0
 
LVL 8

Author Comment

by:Naresh Patel
ID: 39832993
Error Message
0
 
LVL 8

Author Comment

by:Naresh Patel
ID: 39833006
Exactly this one
0
 
LVL 28

Expert Comment

by:MacroShadow
ID: 39833036
Did you follow steps 1-5?
0
 
LVL 8

Author Comment

by:Naresh Patel
ID: 39833081
yes
0
 
LVL 28

Expert Comment

by:MacroShadow
ID: 39833123
What happens if you delete the following:
As CommunicatorAPI.IMessengerConversationWndAdvanced

Open in new window

so you're left with:
Dim msgr

Open in new window

0
 
LVL 8

Author Comment

by:Naresh Patel
ID: 39833145
nothing is happening. i had crated macro button & assigen this Code. but while clicking previously getting error message & after
Dim msgr

Open in new window

.

Nothing happen..
0
 
LVL 8

Author Comment

by:Naresh Patel
ID: 39833625
?
0
 
LVL 28

Expert Comment

by:MacroShadow
ID: 39841180
How about this:
Dim msgr As Object
Set msgr = CreateObject("CommunicatorAPI.IMessengerConversationWndAdvanced")

Open in new window


Instead of this:
Dim msgr As CommunicatorAPI.IMessengerConversationWndAdvanced

Open in new window

0
 
LVL 8

Author Comment

by:Naresh Patel
ID: 39843284
Error MessageDebugThanks & Sorry For Delay In Reply.
0
 
LVL 28

Accepted Solution

by:
MacroShadow earned 2000 total points
ID: 39844360
Just a silly question, is Microsoft Office Communicator running when you run your code? If not it will certainly explain your error.

Try this (first run the first sub then the second):
Sub LaunchCommunicator()
    Dim oCom As Object
    Set oCom = CreateObject("Communicator.UIAutomation")
    oCom.AutoSignin
End Sub

Sub SendIM()

    Dim msgr As CommunicatorAPI.IMessengerConversationWndAdvanced
    Dim ToUser As String
    Dim message As String

    Application.ScreenUpdating = False

    ToUser = "someone@somewhere.com”"
    message = "test vba communicator”"

    On Error Resume Next
    Set msgr = Messenger.InstantMessage(ToUser)
    '
    'Send message to window
    '
    msgr.SendText (message)
    msgr.Close

    Application.ScreenUpdating = True

End Sub

Open in new window

0
 
LVL 8

Author Closing Comment

by:Naresh Patel
ID: 39846587
Excellent
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Excel can be a tricky bit of software to get your head around. Whilst you’ll be able to eventually get to grips with the basic understanding of how to get by, there are a few Excel tips that not everybody will even know about let alone know how to d…
This article describes how you can use Custom Document Properties to store settings and other information in your workbook so that they will be available the next time you open the workbook.
This Micro Tutorial will demonstrate in Google Sheets how to use the HYPERLINK function to create live links inside your spreadsheet.
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

885 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question