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

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