Sandy, Basic n'est pas sensible à la casse, donc MonMel, monmel, c'est toujours son mail.
Si tu copies-colles ce code dans LibreOffice, tu constates que l'objet client de messagerie n'est pas créé derrière l'appel à CreateUnoService. Comme je l'indiquais, tu peux faire un XRay sur cet objet et tu constateras qu'il n'existe pas. Pour le reste, ce bout de code est manifestement un extrait, qui sera utilisé à plein le jour où le client de messagerie aura été implémenté, d'où la déclaration prévisionnelle de quelques variables complémentaires. En fait, telle qu'elle, cette macro fonctionne parfaitement, sauf que l'API de mail est juste déclarée, pas implémentée... Voilà. Thierry Le sam. 1 sept. 2018 à 10:06, sandy andriant <[email protected]> a écrit : > Bonjour, > > Si ce que vous avez mis dans votre message est un copié/collé, normal > que ça ne fonctionne pas pour plusieurs raisons > > Des coquilles : > > Vous définissez MonMel avec 2 majuscules : > > MonMel as object > > mais vous l'appelez avec des minuscules : > > with monmel > > => Erreur : variable non définie > > Une autre sans incidence : > > msgbox("Clent de messagerie non disponoble",16) > > Clent => Client, disponoble => disponible > > > pour le reste, la macro est incomplète. > > A quoi servent les variables : > encopie(), annexes() > ... > > > Sub Main > dim Sv as object, UnClient as object, MonMel as object > dim encopie(1) as string, annexes(1) as string > Sv = createUnoService("com.sun.star.system.SimpleSystemMail") > UnClient = Sv.querySimpleMailClient > if IsBull(UnClient) then > msgbox("Clent de messagerie non disponoble",16) > with monmel > .Recipient ="[email protected]" > end with > endif > > Cordialement > Sandy-Pascal Andriant > > Le 01/09/2018 à 07:40, [email protected] a écrit : > > Sub Main > > dim Sv as object, UnClient as object, MonMel as object > > dim encopie(1) as string, annexes(1) as string > > Sv = createUnoService("com.sun.star.system.SimpleSystemMail") > > UnClient = Sv.querySimpleMailClient > > if IsBull(UnClient) then > > msgbox("Clent de messagerie non disponoble",16) > > with monmel > > .Recipient ="[email protected]" > > end with > > endif > > > -- > Envoyez un mail à [email protected] pour vous > désinscrire > Les archives de la liste sont disponibles à > https://listarchives.libreoffice.org/fr/users/ > Privacy Policy: https://www.documentfoundation.org/privacy > -- Envoyez un mail à [email protected] pour vous désinscrire Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/ Privacy Policy: https://www.documentfoundation.org/privacy
