API לשליחת קמפיין הודעות אישיות דרך אקסס

[יעקב139]

האם מישהו יודע איך לכתוב את הפקודה הזאת באקסס

https://www.call2all.co.il/ym/api/RunCampaign?token=0795555:7070&withSMS=1&ttsMode=1&phones={"0583212345":"TTS","0587777777":"SMS"}

בתודה מראש

[יעקב139]

לקחתי את זה מפה
https://f2.freeivr.co.il/topic/811/קמפיין-הודעות-אישיות-בapi-אפשרות-שהלקוח-יחזור-למספר-וישמע-את-ההודעה-שלו/2

[יעקב139]

@אריה שלום עזרת לי פעם תוכל לעזור לי גם הפעם? אודה לך מאוד.

[אריה]

@יעקב139
זה קוד קצר ובסיסי לשליחת בקשת GET דרך אקסס
תשלח את ה URL כפרמטר לקוד

Sub SendURL(strURL)
Dim Http As Object
Set Http = CreateObject("MSXML2.ServerXMLHTTP.6.0")
Http.Open "GET", strURL, False
Http.send
Debug.Print Http.responseText
End Sub

[יעקב139]

@אריה וואו תודה תודה רבה עובד מצוין!!!

[יעקב139]

@אריה בעניין אחר האם יש לך או למישהו אחר כאן קוד API להעלות קבצי שמע למערכת?

תודה מראש

[עמנואל]

@יעקב139 תוכל בבקשה לשתף קצת
איפה ואיך מכניסים את הקוד הזה
תודה

[יעקב139]

@עמנואל את הקוד הזה מכניסים במודול ואז איפה שאתה רוצה להפעיל את הפקודה אתה קורא לפקודה ובסוגריים מכניס את כל הקישור
לדוגמא:
SendURL("https://www.call2all.co.il/ym/api/RunCampaign?token=0795555:7070&withSMS=1&ttsMode=1&phones={"0583212345":"TTS","0587777777":"SMS"}")

[עמנואל]

@יעקב139 תודה רבה

[eliyahu]

@יעקב139 אני ממליץ להשתמש עם האפשרויות החדשות
SendTTS
SendSms

[יעקב139]

@eliyahu הפונקצייה sendtts מקריא את הטקסט פעמיים, זה בדווקא ככה? והאם יש אפשרות לשנות את זה?
ושאלה נוספת האם יש אפשרות להוציא צינתוק לאנשים עם קוד אימות שיופיע להם על הצג כמספר שמתקשר?

תודה מראש

[eliyahu]

@יעקב139 אמר בAPI לשליחת קמפיין הודעות אישיות דרך אקסס:

@eliyahu הפונקציה sendtts מקריא את הטקסט פעמיים, זה בדוקא ככה? והאם יש אפשרות לשנות את זה?

@שמואל

ושאלה נוספת האם יש אפשרות להוציא צינתוק לאנשים עם קוד אימות שיופיע להם על הצג כמספר שמתקשר?

בהחלט. עיין כאן

תודה מראש

בשמחה

[שמואל]

@יעקב139 אמר בAPI לשליחת קמפיין הודעות אישיות דרך אקסס:

@eliyahu הפונקצייה sendtts מקריא את הטקסט פעמיים, זה בדווקא ככה? והאם יש אפשרות לשנות את זה?

כן.
בערך repeatFile. זה מופיע בתיעוד.

[יעקב139]

@אריה אמר בAPI לשליחת קמפיין הודעות אישיות דרך אקסס:

@יעקב139
זה קוד קצר ובסיסי לשליחת בקשת GET דרך אקסס
תשלח את ה URL כפרמטר לקוד

Sub SendURL(strURL)
Dim Http As Object
Set Http = CreateObject("MSXML2.ServerXMLHTTP.6.0")
Http.Open "GET", strURL, False
Http.send
Debug.Print Http.responseText
End Sub

@אריה מה צריך לשנות בקוד הזה כדי שישלח את הפקודה בPOST ולא בGET?