LoScortese ha scritto:
Buon giorno a tutti.
Sto provando ad utilizzare WhatsApp Desktop tramite VBA. La gestione nonostante sia molto "macchinosa" e "acerba" per ora funziona. Ovvero riesco ad inviare messaggi di testo con dati presi dal Database.
Il problema è che ora vorrei oltre ad inviare un semplice messaggio testuale allegare anche dei file (nello specifico dei PDF). Il problema è come poter copiare un documento tramite VBA e incollarlo in WhatsApp Desktop. Il classico Ctrl+C / Ctrl+V per intenderci.
Qualcuno sa darmi una dritta?
Il Classico CTRL+C/V si appoggia alla CLIPBOARD di Windows, da VBA Access Nativo esiste la ClipBoard di Access che non fa al tuo caso.
Devi pertanto raggiungere la Clipboard di Win e lo puoi fare usando le API di Win... oppure sfruttando un Activex incluso in MSForms [DataObject].
Le API sono di un livello di complicazione x10, quì trovi qualche info:
https://docs.microsoft.com/en-us/office/vba/access/concepts/windows-api/send-information-to-the-clipboard
https://docs.microsoft.com/en-us/office/vba/access/concepts/windows-api/retrieve-information-from-the-clipboard
Magari prova il secondo se vuoi, quì qualche LINK:
https://wellsr.com/vba/2015/tutorials/vba-copy-to-clipboard-paste-clear/
https://www.appsloveworld.com/vba/100/1/how-to-copy-to-clipboard-using-access-vba
https://codekabinett.com/rdumps.php?Lang=2&targetDoc=vba-clipboard-file-content
Inserisci nei Riferimenti MSForms, poi per copiare:
Dim DataObject As New DataObject
Dim file As String = "C:\TESTE.PDF"
DataObject.SetData(DataFormats.FileDrop, True, file)
Per incollare GetData ed assegni as una variabile che poi passerai alle API di WhatsApp o come per ora hai gestito...
Tutto questo nella teoria... non l'ho mai usato quindi è da Studiare, provare e provare...