Send message on UNSAVED NUMBERS from Excel to Whatsapp | VBA

[@laiqmehdi8704]

Well explained thnq soo much

[@techalertr]

Most welcome 😊
Please share the video on your social media & with your friends to help us.
Hope you subscribed our channel to support us.

[@Saregamakrishnagyan]

Code proper working sir you are tooooo good

[@techalertr]

It's my pleasure
Please share the video on your social media & with your friends to help us.
Hope you subscribed our channel to support us.

[@RobinsonMakwana-wi3ul]

thank u sir ... salute to you... for all stuff you have shared...

[@techalertr]

So nice of you
Please share the video on your social media & with your friends to help us.
Hope you subscribed our channel to support us.

[@shailendraarora]

😮 much needed

[@techalertr]

Thank you so much 😀

[@user-yk4or7un5n]

loved it

[@techalertr]

Thank you so much 😀

[@akhilprofit]

Thank you for Whatsapp code. A error in code. if sending msg to unsaved number and its not on whatsapp or deleted at whatsapp. the code execute to next i.e type msg in search box and start mulfuntion. can you write code to check the number is on whatsapp, if not on whatsapp escape and go to next number. And remark on the number.

[@D.E.DTravelAssistanceDocuments]

Please try this modified code.
Option Explicit
#If VBA7 Then
Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
#Else
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
#End If
Sub wamsg()
On Error GoTo ErrorHandler

Dim PhoneNumb As String, MsgText As String
Dim LastRow As Long
Dim attach As String, link As String
Dim i As Integer

LastRow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To LastRow
With Sheet1
PhoneNumb = .Cells(i, 1).Value
MsgText = .Cells(i, 2).Value
attach = .Cells(i, 3).Value
link = .Cells(i, 4).Value


AppActivate "WhatsApp"
Application.Wait (Now + TimeValue("00:00:03"))
SendKeys "^n", True
Application.Wait (Now + TimeValue("00:00:03"))
SendKeys "^a", True ' Ctrl+A to select all
Application.Wait (Now + TimeValue("00:00:03"))
SendKeys PhoneNumb, True
Application.Wait (Now + TimeValue("00:00:03"))
SendKeys "{Tab}", True
Application.Wait (Now + TimeValue("00:00:03"))
SendKeys "{Enter}", True
Application.Wait (Now + TimeValue("00:00:03"))
SendKeys MsgText, True
Application.Wait (Now + TimeValue("00:00:05"))
SendKeys "+{Tab}", True
Application.Wait (Now + TimeValue("00:00:03"))
SendKeys "{Enter}", True

If attach = "VIDEO" Or attach = "IMAGE" Or attach = "PDF" Then
Application.Wait (Now + TimeValue("00:00:03"))
SendKeys "{Enter}", True
Application.Wait (Now + TimeValue("00:00:03"))
SendKeys link, True
Application.Wait (Now + TimeValue("00:00:03"))
SendKeys "{Enter}", True
Application.Wait (Now + TimeValue("00:00:03"))
SendKeys "{Enter}", True
End If
End With

' Check if ESC key is pressed
If CheckESCKeyPressed() Then
Exit Sub ' Exit the sub if ESC key is pressed
End If
Next i
ExitSub:
Exit Sub ' Exit the sub normally
ErrorHandler:
MsgBox "An error occurred: " & Err.Description, vbExclamation
Resume ExitSub
End Sub
Function CheckESCKeyPressed() As Boolean
' Function to check if the ESC key is pressed
CheckESCKeyPressed = False
If GetAsyncKeyState(vbKeyEscape) Then
CheckESCKeyPressed = True
End If
End Function

[@ptjawaharlalnehrugovthssne6590]

thankyou

[@techalertr]

Thank you so much 😀

[@InformationTechy]

fabulous

[@techalertr]

Thank you so much 😀

[@sukhiramdehere3187]

awesomeee

[@techalertr]

Yes i am working on that code.
Please share the video on your social media & with your friends to help us.
Hope you subscribed our channel to support us.

[@aratipandey5679]

great

[@techalertr]

Thank you
Please share the video on your social media & with your friends to help us.
Hope you subscribed our channel to support us.

[@RTSHAAAA6]

Sir, If the mobile number is not registered on WhatsApp, all processes collapse. Please provide clarity on this issue.

[@patelck]

While sending the message, if the mobile number does not have WhatsApp account, then the program crashes.
Please rectify the same.
Also request you to add support for sending videos/images/documents/pdfs etc. to unsaved numbers
Thanks in advance

[@D.E.DTravelAssistanceDocuments]

Please try this modified code
Option Explicit
#If VBA7 Then
Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
#Else
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
#End If
Sub wamsg()
On Error GoTo ErrorHandler

Dim PhoneNumb As String, MsgText As String
Dim LastRow As Long
Dim attach As String, link As String
Dim i As Integer

LastRow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To LastRow
With Sheet1
PhoneNumb = .Cells(i, 1).Value
MsgText = .Cells(i, 2).Value
attach = .Cells(i, 3).Value
link = .Cells(i, 4).Value


AppActivate "WhatsApp"
Application.Wait (Now + TimeValue("00:00:03"))
SendKeys "^n", True
Application.Wait (Now + TimeValue("00:00:03"))
SendKeys "^a", True ' Ctrl+A to select all
Application.Wait (Now + TimeValue("00:00:03"))
SendKeys PhoneNumb, True
Application.Wait (Now + TimeValue("00:00:03"))
SendKeys "{Tab}", True
Application.Wait (Now + TimeValue("00:00:03"))
SendKeys "{Enter}", True
Application.Wait (Now + TimeValue("00:00:03"))
SendKeys MsgText, True
Application.Wait (Now + TimeValue("00:00:05"))
SendKeys "+{Tab}", True
Application.Wait (Now + TimeValue("00:00:03"))
SendKeys "{Enter}", True

If attach = "VIDEO" Or attach = "IMAGE" Or attach = "PDF" Then
Application.Wait (Now + TimeValue("00:00:03"))
SendKeys "{Enter}", True
Application.Wait (Now + TimeValue("00:00:03"))
SendKeys link, True
Application.Wait (Now + TimeValue("00:00:03"))
SendKeys "{Enter}", True
Application.Wait (Now + TimeValue("00:00:03"))
SendKeys "{Enter}", True
End If
End With

' Check if ESC key is pressed
If CheckESCKeyPressed() Then
Exit Sub ' Exit the sub if ESC key is pressed
End If
Next i
ExitSub:
Exit Sub ' Exit the sub normally
ErrorHandler:
MsgBox "An error occurred: " & Err.Description, vbExclamation
Resume ExitSub
End Sub
Function CheckESCKeyPressed() As Boolean
' Function to check if the ESC key is pressed
CheckESCKeyPressed = False
If GetAsyncKeyState(vbKeyEscape) Then
CheckESCKeyPressed = True
End If
End Function

[@DadysUpdate]

Bro, i want to add 30 second's before sending to next number please thank you for your efforts ❤❤❤

[@techalertr]

yes in the coding just add it brother
Please share the video on your social media & with your friends to help us.
Hope you subscribed our channel to support us.

[@ksshino]

how can we skip the step if one number is not having whatsapp on it?

[@newmovies179]

Brother good information but please share how Can we use this process directly though WhatsApp web

[@techalertr]

Please go through this video once : ruclips.net/video/_VfSrTMiz2M/видео.html
Plz share the video on your social media & with your friends to help us.
Hope you subscribed our channel to support us.

[@bhojpuri_song385]

🎉🎉

[@techalertr]

Thanks for the visit
Please share the video on your social media & with your friends to help us.
Hope you subscribed our channel to support us.

[@Drone-pk]

Thank you soo much for a quick responce and a video made on it. 😊
One thing more please if the number is blocked by me earlier and if the number does not exist (lets suppose i have a list of numbers as some may not be correct or unavaliable) will it skip that number or not?

[@techalertr]

No, it won't work like that. it will send messages to all the numbers in the excel file. if the no.is wrong, then code might not work properly.
Please share the video on your social media & with your friends to help us.
Hope you subscribed our channel to support us.

[@Drone-pk]

@@techalertr ok thank you for the guidance but wating for your new working in which if a number is not found or is invalid it should skip
all the old vba's are now not working

[@Drone-pk]

@@techalertr and can you make it possible that if there no image/pdf file to attach it skips that also

[@mohanadal-far748]

Thank you first, and can you make a new video to solve such issues, ​@@techalertr

[@ayaanus-mom]

Please make a video about sending pdf files to unsaved numbers

[@techalertr]

Yes I have created a video on that topic and I am editing that video. Will publish in 6 to 7 days. Stat tuned with us.
Hope you liked the video and subscribed our channel to support us.

[@ayaanus-mom]

@@techalertr thank you sir

[@sachinkale4544]

Same bhau

[@starshine7559]

Brother not working with not registered numbers on whatsapp. if you are completed the code please share

[@techalertr]

Please go through this video once : ruclips.net/video/COg2MFQjUbA/видео.html
Plz share the video on your social media & with your friends to help us.
Hope you subscribed our channel to support us.

[@EraPrimePulse]

Mera code run ho raha but invalid show WhatsApp ..why .give me solution

[@techalertr]

install whatsapp desktop version.
;login and start the whatsapp
the run the code.
for more details, contact us on instagram.
Please share the video on your social media & with your friends to help us.
Hope you subscribed our channel to support us.

[@sachingrpl]

Hi... nice one but this code is not working with unsaved numbers. tried a lot but not working with unsaved numbers

[@techalertr]

Yes brother, it was working but due to recent whatsapp update, now its not working for unsaved numbers. I am working on the new code. Hope will publish a new video soon.
Please share the video on your social media & with your friends to help us.
Hope you subscribed our channel to support us.

[@RAJESH-qb6gm]

Its NOT happening ... can you help

[@techalertr]

Please go through this video once : ruclips.net/video/dN7_9AmHbdI/видео.html
Plz share the video on your social media & with your friends to help us.
Hope you subscribed our channel to support us.

[@adityadudam8993]

Hi bro, great work. But im facing an issue, my whatsapp is not opening with AppActivate "WhatsApp" command. It gives run-time error '5' , invalid procedure call or argument.
My code is working when i open the whatsapp application before i run the code. And its sending 3-4 messages and after then whatsapp application is closing directly during the execution(run-time).
Please suggest a solution for my issue.

[@user-oh9pz6ei1i]

Hey, did you get the solution facing same issue

[@mandanadonoghue5938]

Same issue here

[@saleemfaizynenmini]

How to send image unsaved number different like Id card

[@techalertr]

Hello sir,
i will publish a video on this topic in 6 to 7 days.
Please share the video on your social media & with your friends to help us.
Hope you subscribed our channel to support us.

[@saleemfaizynenmini]

@@techalertr nice

[@kundanroy8205]

but I'm not able to activate WhatsApp as it's giving the error of "run time error 5, Invalid procedure call or argument"

[@shiroya4037]

sathe me photo kese lagaye bro

[@techalertr]

Please go through this video once : ruclips.net/video/COg2MFQjUbA/видео.html
Plz share the video on your social media & with your friends to help us.
Hope you subscribed our channel to support us.

[@bharatrasve3566]

Appactivate isn't working on vba code

[@techalertr]

have you installed whatsapp desktop version?
Please share the video on your social media & with your friends to help us.
Hope you subscribed our channel to support us.

[@prameshkudalkar520]

Suppose start mai sirf Hi beja aur reply aane ke baad macro kaise banaye ki baad Mai promotion ka msg chale jaye

[@techalertr]

brother iska code soch rha hu. bt ab tk success nhi hua. jaise hi code krunga i will upload a video for sure.
Please share the video on your social media & with your friends to help us.
Hope you subscribed our channel to support us.

[@sachinkale4544]

Wow kya mind.. chating setup.. good idea

[@waqasriaz4543]

es sy whatsapp ban to nai hoga qke hamari whatsapp pehle 4 sy 5 bar ban ho chuki hai msg send krte krte to kya es method sy whatsapp ban to nai hoga plz guide krden, thnkyou

[@techalertr]

Hi,
agar proper time gap hai msgs me to ban nahi hoga. jaise video me maine 18sec.ka gap rkha h msgs me to is condition me ban nhi hoga. agar ap 10 sec.ya usse kam ka gap rkhenge to block ho skta hai.
Please share the video on your social media & with your friends to help us.
Hope you subscribed our channel to support us.

[@tarun3458]

Number seen in formula box

[@apnipathsala9557]

Bhai jaise 100 store ka data nikale or direct bhejna suru kiye to ho sakta kisi ka WhatsApp na ho to usko skip kar de Aisa kuchh ho sakta h ??

[@abdulrahmansyed6736]

I am searching for the same.

[@apnipathsala9557]

@@abdulrahmansyed6736 mile to reply kijiyega

[@techalertr]

Brother i am working on that code.
Please share the video on your social media & with your friends to help us.
Hope you subscribed our channel to support us.

[@techalertr]

Brother i am working on that code.
Please share the video on your social media & with your friends to help us.
Hope you subscribed our channel to support us.

[@sachinkale4544]

Mera bhi yahi saval hai

[@saleemfaizynenmini]

How to send different pdf to unsaved numbers

[@apnipathsala9557]

Use different location

[@techalertr]

I will upload a video on this topic soon.
Please share the video on your social media & with your friends to help us.
Hope you subscribed our channel to support us.

[@saleemfaizynenmini]

Hlo​@@techalertr

[@saleemfaizynenmini]

When upload that vedio​@@techalertr

[@TechMe.79]

I tried to send to 100 contacts. It was sending upto 7 messages perfectly but then it could not perform. Can you help it

[@D.E.DTravelAssistanceDocuments]

Try one more time. me too faced the same problem. but it only for the first time. now i can send 100, 500 messages

[@VesrnTechnologies]

Sir! If number is not belongs to Whatsapp, then entire process will collapsed

[@himanshuharplani3113]

WhatsApp baar baar band ho raha h, after sending messages to 3-4 contacts. What can be done?

[@KingEditsmuz]

Duration badha do

[@PrimeStudyOfficial]

Poora video hi mask kar diya. Viewers ko kuch to dikhna chahiye

[@techalertr]

Brother contacts n messages nhi show kr skta na. mechanism show Kiya hu. Excel template provide kiya hu.
Aur doubts h to Instagram pe contact kr skte h

[@udaramjakhar76]

Sir Help me
Sub Example()
If (Computer Me Network Na Hone Par)
Mgs box "Network Not Available"
Exit sub
Else
Code Run (Whatsapp Msg)
End if

[@techalertr]

Ok. i will work on this code/
Please share the video on your social media & with your friends to help us.
Hope you subscribed our channel to support us.

[@NSPMATHS]

can i contact you for my same app creation?

[@techalertr]

Yes sir you can contact me on instagram.
Please share the video on your social media & with your friends to help us.
Hope you subscribed our channel to support us.

[@sachinkale4544]

list me whatsapp aur non whatsapp number hai to shirf whatsapp number ko sms jaye..non whatsapp number ko egnore kare error na aye