וואצאפ

[lironcoh81]

מקרו לשליחת הודעות בוואצאפ
האם יש למישהו כאן מקרו לשליחת הודעות תפוצה מאקסל לוואצאפ עיסקי?

 

[ziv98]

הסרת אחריות...:
את המתואר בהמשך ניסיתי לפני זמן רב, יתכן והשתנו דברים.

1. יש להתקין whatsapp desktop ולהתחבר
2. במאקרו יש לשלב פתיחת לינק מהסוג:

https://wa.me/1XXXXXXXXXX?text=I'm%20interested%20in%20your%20car%20for%20sale

כך ש:
1. רווחים בטקסט הוחלפו ב - "+" או ב - "%20".
2. מספר הטלפון מלא, כולל מדינה, וללא סימנים מיוחדים (אין "-" למשל).

אפשר לייצר לינק כזה ידנית, ולהפעיל מהכרום, כדי לוודא שהכל עובד, לפני שמשקיעים בקוד.
יש לשים לב למגבלות הספאם, אחרת החשבון נחסם.
לדעתי היתה לי בעיה עם השליחה עצמה: הוא הציב את ההודעה עם הנמען הנכון ולא לחץ "שלח" (אני לא יכול לבדוק עכשיו).

לינק להגדרות:

How to use click to chat | WhatsApp Help Center

faq.whatsapp.com

 

[lironcoh81]

הסרת אחריות...:
את המתואר בהמשך ניסיתי לפני זמן רב, יתכן והשתנו דברים.

1. יש להתקין whatsapp desktop ולהתחבר
2. במאקרו יש לשלב פתיחת לינק מהסוג:

https://wa.me/1XXXXXXXXXX?text=I'm%20interested%20in%20your%20car%20for%20sale

כך ש:
1. רווחים בטקסט הוחלפו ב - "+" או ב - "%20".
2. מספר הטלפון מלא, כולל מדינה, וללא סימנים מיוחדים (אין "-" למשל).

אפשר לייצר לינק כזה ידנית, ולהפעיל מהכרום, כדי לוודא שהכל עובד, לפני שמשקיעים בקוד.
יש לשים לב למגבלות הספאם, אחרת החשבון נחסם.
לדעתי היתה לי בעיה עם השליחה עצמה: הוא הציב את ההודעה עם הנמען הנכון ולא לחץ "שלח" (אני לא יכול לבדוק עכשיו).

לינק להגדרות:

How to use click to chat | WhatsApp Help Center

faq.whatsapp.com

תודה !
יש לך מקרו לדוגמא שעשית?

 

[ziv98]

הקוד הבא:

Sub w()
Application.DisplayAlerts = False
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    
    p = "97252123456" 'phone - must be in contacts
    m = "טקסט לשליחה" 'text to send
    m = Replace(m, " ", "%20")
    u = "whatsapp://send?phone=" & p & "&text=" & m
    
    IE.navigate u
    Application.Wait Now() + TimeSerial(0, 0, 3)
    SendKeys "~"

    Set IE = Nothing
    Application.DisplayAlerts = True
End Sub

מקפיץ הודעה תוך כדי התהליך, אבל שולח את ההודעה אם מאשרים.
חפש איך לבטל את ההודעה (אולי בהגדרות דפדפן, בכלל לא בקוד).

 

[lironcoh81]

אפשר להכניס את הקוד ללולאת for ולהריץ על רשימת מספרים?
ולהוסיף תמונה לטקסט ? זה בעייתי?

 

[ziv98]

לופ: אין שום בעיה. בדיוק בגלל זה הפרמטרים בדוגמה הם מול משתנים ולא משורשרים ישירות בלינק. בנה לולאה, והזן טלפון וטקסט מתוך הגיליון.
לגבי תמונה - לא ניסיתי אף פעם.

 

[lironcoh81]

ניתן להוסיף לקוד תיבה ששם יכתבו את ההודעה וזה ימשיך לקוד?

 

[ziv98]

אפשר הכל.

m=inputbox...

צריך להתחיל במה שיש - עובד ? התגברת על ההודעה ? (/ אין לך בעיה עם ההודעה ?)
אם כן - צריך להגדיר מה הקוד עושה מהתחלה ועד הסוף.

 

[lironcoh81]

אפשר הכל.

m=inputbox...

צריך להתחיל במה שיש - עובד ? התגברת על ההודעה ? (/ אין לך בעיה עם ההודעה ?)
אם כן - צריך להגדיר מה הקוד עושה מהתחלה ועד הסוף.

תודה רבה! בודק