Введение
В этом руководстве мы создадим простые примеры для отправки сообщений через API WhatsApp с использованием OCaml.
Первое сообщение WhatsApp API с использованием 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 *)Отправить изображение
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 *)Отправить документ
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 *)Отправить аудио
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 *)Отправить голос
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 *)Отправить видео
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 *)Отправить ссылку
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 *)Отправить контакт
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 *)Отправить местоположение
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 *)Отправить открытку
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 *)наконец, вы можете ознакомиться с полной документацией по Whatsapp API и часто задаваемыми вопросами.