Attachement invalide de la commande sendSimpleMailMessage

fr-users
#1

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

#2

Bonjour,

perso, ça bloque déjà à la création de l'objet client sous mon Ubunut :slight_smile:
sinon, j'aurais mis le client.send.... hors de la boucle with pour voir si
ça peut débloquer.
(je suppose que le convertourl pointe bien vers un fichier existant....)

Yves

#3

Bonjour,

En mettant
   .Attachement =array(annexes(0))
cela fonctionne chez moi sur Windows et libreoffice 6.1.0.3

Claude

#4

Merci à tous,

C'est la fonction Array qui résout le mieux le plantage.
Cordialement

#5

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