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