Send message on UNSAVED NUMBERS from Excel to Whatsapp | VBA

  Рет қаралды 5,912

Tech ALERT

Tech ALERT

Күн бұрын

If you want to send messages from ms excel to whatsapp then this video is for you. In this video, i will teach you how you can send messages using automation from excel to whatsapp on unsaved numbers. In our last videos, you have seen how to send messages on saved contacts but now we will learn how to Send message on UNSAVED NUMBERS from Excel to Whatsapp using VBA code.
Notepad file of code : drive.google.com/file/d/1wzS_...
Excel demo file : drive.google.com/file/d/1xkf2...
#techalert #technical #howto
================Direct Code==============================
Option Explicit
Sub wamsg()
Dim PhoneNumb As String, MsgText As String
Dim LastRow As Long
Dim i As Integer
LastRow = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LastRow
With Sheet1
PhoneNumb = .Cells(i, 1).Value
MsgText = .Cells(i, 2).Value
AppActivate "WhatsApp"
Application.Wait (Now + TimeValue("00:00:03"))
SendKeys "^n", True
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:03"))
SendKeys "{Enter}", True
End With
Next i
End Sub
=======================================================
Time Stamp:
0:00 Introduction
1:03 Creating Template
1:40 Writing and Understanding the Coding
7:20 Saving the Code
7:53 Creating the button
8:13 Executing the Code
Our social media accounts :
Facebook : / techalertr
Instagram : / techalertr
Twitter : / techalertr
Pinterest : / techalertr
Reddit : / techalertr
Tumblr : techalertr.tumblr.com
Our Other channels :
1. kzfaq.info...
2. kzfaq.info...
Join this channel to get access to perks:
/ @techalertr
==================================================================
Disclaimer : This video is only for educational Purpose. The information provided in this video is for general informational purposes only and should not be considered as professional advice. We make no representations or warranties of any kind regarding the accuracy, completeness, reliability, suitability, or availability of the information presented. Any reliance you place on the information in this video is strictly at your own risk. We are not liable for any loss or damage incurred from the use of this video. Additionally, the inclusion of any links or references does not imply endorsement or responsibility for the content on external websites. Please consult with a qualified professional for personalized advice.
==================================================================
SEO:
Send message on UNSAVED NUMBERS from Excel to Whatsapp, VBA

Пікірлер: 82
@RobinsonMakwana-wi3ul
@RobinsonMakwana-wi3ul 2 ай бұрын
thank u sir ... salute to you... for all stuff you have shared...
@techalertr
@techalertr 2 ай бұрын
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
@shailendraarora 4 ай бұрын
😮 much needed
@techalertr
@techalertr 4 ай бұрын
Thank you so much 😀
@user-yk4or7un5n
@user-yk4or7un5n 4 ай бұрын
loved it
@techalertr
@techalertr 4 ай бұрын
Thank you so much 😀
@InformationTechy
@InformationTechy 4 ай бұрын
fabulous
@techalertr
@techalertr 4 ай бұрын
Thank you so much 😀
@sukhiramdehere3187
@sukhiramdehere3187 4 ай бұрын
awesomeee
@techalertr
@techalertr 3 ай бұрын
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.
@ksshino
@ksshino 28 күн бұрын
how can we skip the step if one number is not having whatsapp on it?
@RTSHAAAA6
@RTSHAAAA6 2 ай бұрын
Sir, If the mobile number is not registered on WhatsApp, all processes collapse. Please provide clarity on this issue.
@aratipandey5679
@aratipandey5679 3 ай бұрын
great
@techalertr
@techalertr 24 күн бұрын
Thank you Please share the video on your social media & with your friends to help us. Hope you subscribed our channel to support us.
@ptjawaharlalnehrugovthssne6590
@ptjawaharlalnehrugovthssne6590 4 ай бұрын
thankyou
@techalertr
@techalertr 4 ай бұрын
Thank you so much 😀
@bhojpuri_song385
@bhojpuri_song385 4 ай бұрын
🎉🎉
@techalertr
@techalertr 4 ай бұрын
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.
@patelck
@patelck 4 ай бұрын
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
@D.E.DTravelAssistanceDocuments 3 ай бұрын
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
@akhilprofit
@akhilprofit 3 ай бұрын
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
@D.E.DTravelAssistanceDocuments 3 ай бұрын
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
@DadysUpdate 3 ай бұрын
Bro, i want to add 30 second's before sending to next number please thank you for your efforts ❤❤❤
@techalertr
@techalertr 24 күн бұрын
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.
@Drone-pk
@Drone-pk 4 ай бұрын
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
@techalertr 4 ай бұрын
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
@Drone-pk 4 ай бұрын
@@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
@Drone-pk 4 ай бұрын
@@techalertr and can you make it possible that if there no image/pdf file to attach it skips that also
@mohanadal-far748
@mohanadal-far748 Ай бұрын
Thank you first, and can you make a new video to solve such issues, ​@@techalertr
@newmovies179
@newmovies179 Ай бұрын
Brother good information but please share how Can we use this process directly though WhatsApp web
@techalertr
@techalertr Ай бұрын
Please go through this video once : kzfaq.info/get/bejne/lbyWhtWFss_eYoE.html Plz share the video on your social media & with your friends to help us. Hope you subscribed our channel to support us.
@tarun3458
@tarun3458 Ай бұрын
Number seen in formula box
@kundanroy8205
@kundanroy8205 3 ай бұрын
but I'm not able to activate WhatsApp as it's giving the error of "run time error 5, Invalid procedure call or argument"
@starshine7559
@starshine7559 Ай бұрын
Brother not working with not registered numbers on whatsapp. if you are completed the code please share
@techalertr
@techalertr Ай бұрын
Please go through this video once : kzfaq.info/get/bejne/ebWXZbB3ttC5knU.html Plz share the video on your social media & with your friends to help us. Hope you subscribed our channel to support us.
@ayaanus-mom
@ayaanus-mom 4 ай бұрын
Please make a video about sending pdf files to unsaved numbers
@techalertr
@techalertr 4 ай бұрын
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
@ayaanus-mom 4 ай бұрын
@@techalertr thank you sir
@sachinkale4544
@sachinkale4544 4 ай бұрын
Same bhau
@saleemfaizynenmini
@saleemfaizynenmini 4 ай бұрын
How to send image unsaved number different like Id card
@techalertr
@techalertr 4 ай бұрын
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
@saleemfaizynenmini 4 ай бұрын
@@techalertr nice
@sachingrpl
@sachingrpl 2 ай бұрын
Hi... nice one but this code is not working with unsaved numbers. tried a lot but not working with unsaved numbers
@techalertr
@techalertr 2 ай бұрын
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.
@adityadudam8993
@adityadudam8993 2 ай бұрын
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
@user-oh9pz6ei1i Ай бұрын
Hey, did you get the solution facing same issue
@mandanadonoghue5938
@mandanadonoghue5938 14 күн бұрын
Same issue here
@TechMe.79
@TechMe.79 4 ай бұрын
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
@D.E.DTravelAssistanceDocuments 3 ай бұрын
Try one more time. me too faced the same problem. but it only for the first time. now i can send 100, 500 messages
@shiroya4037
@shiroya4037 2 ай бұрын
sathe me photo kese lagaye bro
@techalertr
@techalertr 2 ай бұрын
Please go through this video once : kzfaq.info/get/bejne/ebWXZbB3ttC5knU.html Plz share the video on your social media & with your friends to help us. Hope you subscribed our channel to support us.
@prameshkudalkar520
@prameshkudalkar520 4 ай бұрын
Suppose start mai sirf Hi beja aur reply aane ke baad macro kaise banaye ki baad Mai promotion ka msg chale jaye
@techalertr
@techalertr 4 ай бұрын
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
@sachinkale4544 4 ай бұрын
Wow kya mind.. chating setup.. good idea
@waqasriaz4543
@waqasriaz4543 4 ай бұрын
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
@techalertr 4 ай бұрын
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.
@VesrnTechnologies
@VesrnTechnologies Ай бұрын
Sir! If number is not belongs to Whatsapp, then entire process will collapsed
@RAJESH-qb6gm
@RAJESH-qb6gm Ай бұрын
Its NOT happening ... can you help
@techalertr
@techalertr Ай бұрын
Please go through this video once : kzfaq.info/get/bejne/mrRnkpxy0q7GlH0.html Plz share the video on your social media & with your friends to help us. Hope you subscribed our channel to support us.
@apnipathsala9557
@apnipathsala9557 4 ай бұрын
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
@abdulrahmansyed6736 4 ай бұрын
I am searching for the same.
@apnipathsala9557
@apnipathsala9557 4 ай бұрын
@@abdulrahmansyed6736 mile to reply kijiyega
@techalertr
@techalertr 4 ай бұрын
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
@techalertr 4 ай бұрын
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
@sachinkale4544 4 ай бұрын
Mera bhi yahi saval hai
@bharatrasve3566
@bharatrasve3566 4 ай бұрын
Appactivate isn't working on vba code
@techalertr
@techalertr 4 ай бұрын
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.
@saleemfaizynenmini
@saleemfaizynenmini 4 ай бұрын
How to send different pdf to unsaved numbers
@apnipathsala9557
@apnipathsala9557 4 ай бұрын
Use different location
@techalertr
@techalertr 4 ай бұрын
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
@saleemfaizynenmini 4 ай бұрын
Hlo​@@techalertr
@saleemfaizynenmini
@saleemfaizynenmini 4 ай бұрын
When upload that vedio​@@techalertr
@himanshuharplani3113
@himanshuharplani3113 4 ай бұрын
WhatsApp baar baar band ho raha h, after sending messages to 3-4 contacts. What can be done?
@KingEditsmuz
@KingEditsmuz 2 ай бұрын
Duration badha do
@PrasenJeet
@PrasenJeet 2 ай бұрын
Poora video hi mask kar diya. Viewers ko kuch to dikhna chahiye
@techalertr
@techalertr 2 ай бұрын
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
@NSPMATHS
@NSPMATHS 4 ай бұрын
can i contact you for my same app creation?
@techalertr
@techalertr 4 ай бұрын
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
@sachinkale4544 4 ай бұрын
list me whatsapp aur non whatsapp number hai to shirf whatsapp number ko sms jaye..non whatsapp number ko egnore kare error na aye
@udaramjakhar76
@udaramjakhar76 4 ай бұрын
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
@techalertr 4 ай бұрын
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.
NERF WAR HEAVY: Drone Battle!
00:30
MacDannyGun
Рет қаралды 54 МЛН
How to send Whatsapp Bulk Message with image using Excel.
5:34
MASTER EDUCATION( Computer science )
Рет қаралды 112 М.
How To Send WhatsApp Messages From Excel Using VBA (Free & Easy) 📲
8:43
NERF WAR HEAVY: Drone Battle!
00:30
MacDannyGun
Рет қаралды 54 МЛН