Le 27/09/2018 à 17:38, [email protected] a écrit :
Bonjour,
En mettant
.Attachement =array(annexes(0))
cela fonctionne chez moi sur Windows et libreoffice 6.1.0.3
Claude
Le 27/09/2018 à 13:13, Algol Formation a écrit :
Bonjour à tous,
Gros souci avec la commande sendSimpleMailMessage qui provoque dans
le code suivant l'erreur :
"Invalid Attachement file URL"
Sub EnvoiCourriel
Dim Messagerie As Object, Client As Object, Courrier As Object,
annexes(1) As String
Messagerie = CreateUnoService("com.sun.star.system.SimpleSystemMail")
Client = Messagerie.querySimpleMailClient()
Courrier = Client.createSimpleMailMessage()
With Courrier
.Subject = "Test envoi courriel"
.Recipient = "[email protected]"
annexes(0) = convertToURL("D:\Libre
Office\LOCalc\Calc_avec_codes\adresses.txt")
.Attachement = annexes(0)
.body = "ceci est un test"
/*Client.sendSimpleMailMessage(Courrier,0) :-\*/
End With
End Sub
Merci de votre aide.
Cordialement
Michel Blanchard
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel antivirus Avast.
https://www.avast.com/antivirus
Merci à tous,
C'est la fonction Array qui résout le mieux le plantage.
Cordialement
--
ALGOL - Formation - Coaching Bureautique
/5 rue de Vélantan/
*37130* Mazières de Touraine
http://www.inforbur.com
--
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
