...
Il faut maintenant permettre au serveur d'application Harmony de récupérer et exploiter ces nouvelles informations.
Pour cela, il faut lancer le programme diva xdivaltoparammapigsuite.dhop.
Ce programme va lire la liste des utilisateurs G Suite et extraire les comptes Windows associés à chaque utilisateur (en accédant à l'attribut personnalisé qui a été paramétré dans les étapes précédentes).
Il est nécessaire de renseigner un compte d'utilisateur G Suite (service@diva.com dans la capture ci-dessus). Ce compte DOIT disposer des droits d'accès en lecture aux informations des utilisateurs.
Pour autant, ce compte n'a pas besoin de droits d'administration, et non recommandons de ne pas utiliser un compte d'administration pour cette opération.
Remarque :
Les opérations décrites dans cette section rendent obsolète la Saisie des comptes G Suite dans Divalto Infinity.
Si des comptes G Suite ont déjà été renseignés dans l'ERP par des utilisateurs, il est conseillé que ceux-ci suppriment les paramètres qu'ils ont saisis car il pourrait y avoir conflit avec les DivaltoInfinityWinAccount du compte G Suite.
| Ancre | ||||
|---|---|---|---|---|
|
Dialogue entre le module CRM de Divalto ERP et G Suite
Le dialogue entre le module CRM de Divalto ERP et G Suite est possible (ex: création de rdv, envoi de mails, l'erp n’utilise pas les tâches mais le module Harmony permet leur création)
Vous aurez toutefois quelques restrictions avec ce mode :
Calendrier / rdv , seul les propriétés de base sont supportées, vous ne pourrez pas rajouter des propriétés spécifiques à outlook comme la prise de rdv teams, etc … (vous aurez probablement des propriétés outlook sans correspondance pour gsuite)
Dans les taches, il n'y a que le la date d'échéance de la tâche qui existe et seul la partie date est prise en compte ( il n'y a pas l'heure)
Vous n’avez pas non plus de notion de date début/fin, juste la date de création de la tâche
Dans les contacts, la définition de la photo du contact n’est pas prise en charge
L'envoi de mail est limité a 1500 mails par jour et par utilisateur, la lecture de la date d'envoi du mail n’est pas prise en charge
Ci-dessous un exemple de code Diva pour faciliter les tests et compréhension dans ce contexte
| Bloc de code |
|---|
;envoi de mail par mapi
NewMess = MapiCreateMessage("sujet : test html","Le texte est dans le fichier joint")
MapiSetExtendedText(NewMess ,fic,MAPI_BODY_AS_FILE + MAPI_TXT_HTML )
MapiAppendAddress(NewMess,MAPI_MAIL,"test@domaine.fr",MAPI_TO)
MapiSendMessage(NewMess)
MapiDeleteMessage(NewMess)
;ou
i = MapiOpen
i = MapiSend(MAPI_INTERNET, \ ; type de l'adresse
"test", \ ; sujet (max 255 c)
"simple test", \ ; texte (max 8191 c)
"mettre ici une adresse internet", \ ; adresse ( max 16 adresses)
"liste de fichiers") ; fichier(s) ( max 16 fichiers mais chaque nom de fichier ne
i = MapiClose
et avec le module youtlook
include "zyoutlook.dhsp"
module "youtlook.dhop"
i = OutlookOpen
;creation d'un contact
OutlookCreateMessage(olContactItem)
OutlookAddProp ("FirstName" ,"firstname")
OutlookAddProp ("LastName" ,"lastname")
OutlookAddProp ("FullName" ,"fullname")
OutlookAddProp ("Email1Address" ,"adr@domaine.fr")
OutlookAddProp("Email1AddressType" ,"SMTP")
OutlookAddProp("BusinessTelephoneNumber" ,"businesstelephonenumber")
OutlookAddProp("BusinessAddressStreet" ,"businessaddressstreet")
OutlookAddProp("BusinessAddressCity" ,"businessaddresscity")
OutlookAddProp("BusinessAddressPostalCode","businessaddresspostalcode")
OutlookAddProp("JobTitle" ,"directeur")
OutlookAddProp("CompanyName" ,"papyrus")
OutlookEndCreate(Outlook_SAVE)
OutlookExecuteMessage
;creation d'une tache
OutlookCreateMessage(olTaskItem)
OutlookAddProp("Subject",Sujet)
;ca n'existe pas dans gsuite , on met juste cet info dans la partie
;link (infos suplémebntaires) de la tâche
OutlookAddProp("Start",DateDebut,Heuredebut,PropDate)
............
OutlookAddProp("Categories","Divalto")
OutlookEndCreate(Outlook_SAVE)
OutlookExecuteMessage
;creation d'un rdv
OutlookCreateMessage(olAppointmentItem)
OutlookAddProp("MeetingStatus",olNonMeeting)
OutlookAddProp("Subject",Sujet)
OutlookAddProp("Start",DateDebut,HeureDebut,PropDate)
OutlookAddProp("End",DateFin ,HeureFin,PropDate)
OutlookAddProp("Importance",olImportanceHigh)
...............
OutlookAddProp("Body",NoteTexte.name," ",PropFileLoad)
OutlookAddProp("ReminderSet", 1, " ", Propbool)
OutlookAddProp("ReminderMinutesBeforeStart",45)
OutlookAddProp("Categories","Divalto")
OutlookEndCreate(Outlook_SAVE)
OutlookExecuteMessage
i = OutlookClose |