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
