Screenshot Send via Whatssapp

ali zaib

Active Member
Joined
Nov 21, 2010
Messages
409
Support is requested to guide , Can we send excel range screenshot to any one via whatsapp .
i have below mention code but its send only text . i need to send picture which available in cell range or get screen shot of range

Dim text As String
Dim contact As String


text = Range("C1").Value
If text = "" Then
MsgBox "Enter the Message to be sent!", 64, "PROCEDURE ERROR"
Exit Sub
End If


'ActiveWorkbook.FollowHyperlink Address:=" https://web.whatsapp.com/"
'Shell "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" & " https://web.whatsapp.com/"


If MsgBox("Is WhatsApp Loaded?" & vbNewLine & vbNewLine & "Press No To Cancel", vbYesNo + vbQuestion + vbSystemModal, "WhatsApp DDos") = vbYes Then


'Fazer (60000)

startrow = 2
startcol = 2
Do Until Sheets(1).Cells(startrow, 1) = ""


'Fazer (2000)
contact = Cells(startrow, 1)


If contact = "" Then
MsgBox "Fill in the contact addresses!", 64, "Please enter at least one Contact"
Exit Sub
End If
text = "Hi " & Sheets(1).Cells(startrow, startcol).Value & "," & vbNewLine & Range("C1").Value & vbNewLine & "Regards," & vbNewLine & "Ravi Kant Agarwal"
'text = "Hi " & Sheets(1).Cells(startrow, startcol).Value & "," & Range("C1").Value & "Regards," & "Ravi Kant Agarwal"
'text = "Hi " & Sheets(1).Cells(startrow, startcol).Value & "," & Range("C1").Value


' Go To The WhatsApp Search Bar
Fazer (3000)


Call SendKeys("{TAB}", True)




' Go To The Contacts Chat
Fazer (1000)
Call SendKeys(contact, True)
Fazer (1000)
Call SendKeys("~", True)
Fazer (1000)
Call SendKeys(text, True)
Fazer (1000)
Call SendKeys("~", True)


'Fazer (3000)
' Call SendKeys("{TAB}", True)
' Call SendKeys(contact, True)
'Call SendKeys("~", True)
'
'Fazer (8000)
'Call SendKeys(text, True)
''SendKeys "{ENTER}", True
'Call SendKeys("~", True)
'
startrow = startrow + 1


Loop


Else
End If




'ActiveWorkbook.FollowHyperlink Address:=" https://web.whatsapp.com/"
'Shell "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" & " https://web.whatsapp.com/"
' 'Application.Wait TimeSerial(0, 0, 1)
' Fazer (7000)
' SendKeys "{TAB}", True
'' SendKeys "camilly", True
' Call SendKeys(text, True)
'SendKeys "{ENTER}", True
'
'Fazer (2000)
'Call SendKeys(text, True)
'SendKeys "{ENTER}", True
'Call SendKeys("~", True)




End Sub
 

Some videos you may like

Excel Facts

What did Pito Salas invent?
Pito Salas, working for Lotus, popularized what would become to be pivot tables. It was released as Lotus Improv in 1989.

Watch MrExcel Video

Forum statistics

Threads
1,096,369
Messages
5,450,010
Members
405,582
Latest member
Vathana

This Week's Hot Topics

Top