introduzione
In questo tutorial creeremo semplici esempi per inviare messaggi tramite l’API di WhatsApp utilizzando OCaml.
Primo messaggio API WhatsApp utilizzando OCaml
open Cohttp_lwt_unix
open Cohttp
open Lwt
let uri = Uri.of_string "https://api.ultramsg.com/instance1150/messages/chat" in
let body = Cohttp_lwt_body.of_string "token=token_here&to=966550883606&body=WhatsApp API on UltraMsg.com works good&priority=10&referenceId=" in
Client.call ~body `POST uri
>>= fun (res, body_stream) ->
(* Do stuff with the result *)Invia immagine
open Cohttp_lwt_unix
open Cohttp
open Lwt
let uri = Uri.of_string "https://api.ultramsg.com/instance1150/messages/image" in
let body = Cohttp_lwt_body.of_string "token=token_here&to=966550883606&image=https://file-example.s3-accelerate.amazonaws.com/images/test.jpg&caption=image Caption&referenceId=" in
Client.call ~body `POST uri
>>= fun (res, body_stream) ->
(* Do stuff with the result *)Invia documento
open Cohttp_lwt_unix
open Cohttp
open Lwt
let uri = Uri.of_string "https://api.ultramsg.com/instance1150/messages/document" in
let body = Cohttp_lwt_body.of_string "token=token_here&to=966550883606&filename=hello.pdf&document=https://file-example.s3-accelerate.amazonaws.com/documents/cv.pdf&referenceId=" in
Client.call ~body `POST uri
>>= fun (res, body_stream) ->
(* Do stuff with the result *)Invia audio
open Cohttp_lwt_unix
open Cohttp
open Lwt
let uri = Uri.of_string "https://api.ultramsg.com/instance1150/messages/audio" in
let body = Cohttp_lwt_body.of_string "token=token_here&to=966550883606&audio=https://file-example.s3-accelerate.amazonaws.com/audio/2.mp3&referenceId=" in
Client.call ~body `POST uri
>>= fun (res, body_stream) ->
(* Do stuff with the result *)Invia voce
open Cohttp_lwt_unix
open Cohttp
open Lwt
let uri = Uri.of_string "https://api.ultramsg.com/instance1150/messages/voice" in
let body = Cohttp_lwt_body.of_string "token=token_here&to=966550883606&audio=https://file-example.s3-accelerate.amazonaws.com/voice/oog_example.ogg&referenceId=" in
Client.call ~body `POST uri
>>= fun (res, body_stream) ->
(* Do stuff with the result *)Invia video
open Cohttp_lwt_unix
open Cohttp
open Lwt
let uri = Uri.of_string "https://api.ultramsg.com/instance1150/messages/video" in
let body = Cohttp_lwt_body.of_string "token=token_here&to=966550883606&video=https://file-example.s3-accelerate.amazonaws.com/video/test.mp4&referenceId=" in
Client.call ~body `POST uri
>>= fun (res, body_stream) ->
(* Do stuff with the result *)Invia il link
open Cohttp_lwt_unix
open Cohttp
open Lwt
let uri = Uri.of_string "https://api.ultramsg.com/instance1150/messages/link" in
let body = Cohttp_lwt_body.of_string "token=token_here&to=966550883606&link=https://en.wikipedia.org/wiki/COVID-19&referenceId=" in
Client.call ~body `POST uri
>>= fun (res, body_stream) ->
(* Do stuff with the result *)Invia contatto
open Cohttp_lwt_unix
open Cohttp
open Lwt
let uri = Uri.of_string "https://api.ultramsg.com/instance1150/messages/contact" in
let body = Cohttp_lwt_body.of_string "token=token_here&to=966550883606&[email protected]&referenceId=" in
Client.call ~body `POST uri
>>= fun (res, body_stream) ->
(* Do stuff with the result *)Invia posizione
open Cohttp_lwt_unix
open Cohttp
open Lwt
let uri = Uri.of_string "https://api.ultramsg.com/instance1150/messages/location" in
let body = Cohttp_lwt_body.of_string "token=token_here&to=966550883606&address=ABC company \n Sixth floor , office 38&lat=25.197197&lng=55.2721877&referenceId=" in
Client.call ~body `POST uri
>>= fun (res, body_stream) ->
(* Do stuff with the result *)Invia Vcard
open Cohttp_lwt_unix
open Cohttp
open Lwt
let uri = Uri.of_string "https://api.ultramsg.com/instance1150/messages/vcard" in
let body = Cohttp_lwt_body.of_string "token=token_here&to=966550883606&vcard= BEGIN:VCARD\nVERSION:3.0\nN:lastname;firstname\nFN:firstname lastname\nTEL;TYPE=CELL;waid=14000000001:14000000002\nNICKNAME:nickname\nBDAY:01.01.1987\nX-GENDER:M\nNOTE:note\nADR;TYPE=home:;;;;;;\nADR;TYPE=work_:;;;;;;\nEND:VCARD&referenceId=" in
Client.call ~body `POST uri
>>= fun (res, body_stream) ->
(* Do stuff with the result *)infine, puoi vedere la documentazione completa dell’API di Whatsapp e le domande frequenti .