Re-bonjour
pour compléter, l'erreur "invalid Attchment file URL" vient du fait
qu'en déclarant annexes(1) As String
le service attend deux fichiers joints annexes(0) et annexe(1) et seul
le premier est rempli.
Autre précision on peut remplacer array(annexes(0)) par annexe() mais il
faut que la déclaration corresponde bien au nombre de fichiers à joindre
claude
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
---
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
