[fr-users] Attachement invalide de la commande sendSimpleMailMessage

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 = "algol.formations@inforbur.com"
      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 à users+unsubscribe@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy