Bonjour
Je viens d'installer la dernière version de LibreOffice proposée par la logithèque ubuntu. LibreOffice stable 6.4.0.3 snap1.
J'utilise souvent l'option d'envoyer des pièces jointes .pdf de Calc ou Writer
J'ai bien pris le soin d'indiquer mon exécutable client de messagerie dans Outils/Options/Internet/Courriel (Thunderird 68.5.0)
>> par le menu
Fichier/Envoyer/Envoyer par courriel en PDF...
rien ne se passe ! thunderbird n'est pas lancé
>> par le
BASIC avec la fonction Shell()
sub EnvoieMailTest
Dim Appli,Sujet, Corps, Exp, Des as String
Dim Fichier as string 'Utilisée pour pièce jointes
Dim retour as variant
Exp = "expediteur@numericable.fr" 'Expediteur
Des = "destinataire@mailo.com" 'Destinataire
'Des = "'toto.machin@truc.fr, titi.bidule@truc.fr'"
'fichier(s) à envoyer
Fichier = "file:///home/pierre/F30668-201607-DURA"+".pdf" ' une seule pièce jointe
'Fichier = "'" & Fichier & ",file:///C:/Users/moi/Desktop/macro libreoffice/fich2.csv'" ' si plusieurs pièces jointes
Sujet = "Coucou"
Corps = "Bonjour" & "%2C" & "%0A" & "%0A" & "Vous trouverez ci-joint un fichier." & "%0A" & "%0A" & "Cordialement"
Appli="file:///home/usser/Applications/thunderbird/thunderbird-bin"
retour= shell(ConvertToURL(Appli),3,_
"-compose body=" & Corps & _
",subject=" & Sujet & _
",from=" & Exp & _
",to=" & Des & _
",attachment=" & Fichier,False)
end sub
La fonction retourne 0 (executé) mais rien ne se passe thunderbird n'es pas lancé
Je n'avais pas de problèmes avec les versions de LO non snap !
N'y aurait-il pas un problème avec le snap ? Une autorisation non ouverte ? je n'ai rien trouvé comme option au moment de l'installation.
Merci pour votre aide.
