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
--
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
