WD utiliser WhatsApp

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

 

je t'ai donné une formation à 10 $

 

Bonsoir
Avec WhatsApp Web on peut faire :
"

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

"&"654321789"&"?&text="&"Bonjour, ci-joint votre facture"
A completer avec du code VBS

 

Bonjour
Un exemple avec VBA Excel :

Code (Text):

Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

'Mi canal de YouTube | youtube.com/user/sergioacamposh
'Mi Sitio | exceleinfo.com
'Descarga mi add-in | addin.exceleinfo.com
'Obtén la Certificación Excel Expert | exceleinfo.com/certificacion-mos

Sub EnvíoVencimientos()
Dim Status As String
Dim Teléfono As String
Dim Texto As String
Dim Celda As Range
Dim Mensaje As String

For Each Celda In Hoja1.Range("Clientes[TELÉFONO]")
    Status = Celda.Offset(0, 4).Value
 
    If Status = "VENCIDO" Then
 
        Teléfono = Celda.Value
        Texto = Celda.Offset(0, 6).Value
     
        Mensaje = VBA.Replace("whatsapp://send?phone=" & Teléfono & "&text=" & Texto, " ", "%20")
     
        'ThisWorkbook.FollowHyperlink "https://web.whatsapp.com/send?phone=" & Teléfono & "&text=" & Texto
     
        Ejecutar = ShellExecute(hwnd, "Open", Mensaje, &O0, &O0, SW_NORMAL)
        Application.Wait Now + TimeValue("00:00:05")
        Call SendKeys("~", True)
 
    Else
    End If
 
Next Celda

End Sub
 

 

Franchement, le moyen normal en entreprise, c'est le mail. Pourquoi Whatsapp ?

 

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

Est ce qu'on peut convertir ce code windev ?

Cliquez pour agrandir...