Re: [fr-users] Envoi mail par macro sous calc

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 <andriant.sandy@gmail.com> 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 ="r.tindel@free.fr"
>    end with
> endif
>
> Cordialement
> Sandy-Pascal Andriant
>
> Le 01/09/2018 à 07:40, demande_aide_fr@libreoffice.org 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 ="r.tindel@free.fr"
> >    end with
> > endif
>
>
> --
> Envoyez un mail à users+unsubscribe@fr.libreoffice.org 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 à users+unsubscribe@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy