Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

OpenOffice & LibreOffice Discussion :

Macro : Problème macro corps de mail


Sujet :

OpenOffice & LibreOffice

  1. #1
    Futur Membre du Club
    Homme Profil pro
    Ressources humaines
    Inscrit en
    avril 2019
    Messages
    21
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 36
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Ressources humaines

    Informations forums :
    Inscription : avril 2019
    Messages : 21
    Points : 8
    Points
    8
    Par défaut Macro : Problème macro corps de mail
    Bonjour,

    Voilà j'ai une macro qui fonctionne pour l'envoi d'un pdf en pièce jointe dans un mail seulement j'aimerais introduire automatiquement un message dans le corps du mail ainsi que mettre une adresse en copie mais voilà cela ne fonctionne pas.
    je mets mon code si une âme charitable pouvait me dépanner ça.
    Pour info la boîte mail utilisée est Outlook 2016
    Merci d'avance

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
     
     Dim oShell As Object
         dim strMail as string
         Dim monDocument as Object, MesFeuilles as Object, MaFeuille as Object
         Dim litCellule as String, litobjet as String, litBody as String
         Dim litCelluleCC as string, litemetteur as string
         Dim Reponse as string
         dim pieces(0) as string
         MonDocument = ThisComponent
         MesFeuilles = MonDocument.sheets
         MaFeuille = MesFeuilles.GetByName("Bilan individuel trimestriel")
         litCellule= MaFeuille.getCellRangeByName("A2").String
         litCelluleCc = MaFeuille.getCellRangeByName("D12").String
         litemetteur = MaFeuille.getCellRangeByName("D13").String
         litobjet = MaFeuille.getCellRangeByName("D20").String
         litBody = MaFeuille.getCellRangeByName("A1").String
     
    Rem *** Initialisation du mail ***
     
         Reponse = MsgBox ("Souhaitez-vous envoyer ce bilan individuel par Email ?",132,"Envoi par Email") 
     
         	If Reponse = 6 then goto Suite
         	Stop
     
     
    	Suite:
     
    	on error resume next
    	ochaos=createUnoService("com.sun.star.system.SimpleSystemMail")
    	mail=ochaos.querySimpleMailClient()	
    	lemessage=mail.createsimplemailmessage()
    	lemessage.setrecipient(litCellule)
    	lemessage.setCcrecipient(litCelluleCC)
    	lemessage.setOriginator(litemetteur)
    	lemessage.setsubject(litobjet)
    	lemessage.setbody(litBody)
     	pieces(0)=Fichier
    	lemessage.setAttachement(pieces())	
    	mail.sendSimpleMailMessage(lemessage,0)	
     
     
    	End Sub

  2. #2
    Membre habitué
    Homme Profil pro
    Retraité
    Inscrit en
    septembre 2009
    Messages
    109
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Vendée (Pays de la Loire)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : septembre 2009
    Messages : 109
    Points : 148
    Points
    148
    Par défaut Problème macro corps de mail
    Bonjour,

    Tu ne dis pas si tu utilises Libre Office ou Open Office. Les deux API sont différentes, sous Libre Office le service com.sun.star.system.SimpleSystemMail ne permet le corps du texte.

    Voir ce fil ci-dessous pour avoir toutes les explications :

    https://forum.openoffice.org/fr/foru...p?f=15&t=39844



    Cordialement
    Libre Office Version: 6.3.4.2 (x64)
    Windows 10

  3. #3
    Futur Membre du Club
    Homme Profil pro
    Ressources humaines
    Inscrit en
    avril 2019
    Messages
    21
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 36
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Ressources humaines

    Informations forums :
    Inscription : avril 2019
    Messages : 21
    Points : 8
    Points
    8
    Par défaut
    Désolé pour l’oubli, pour répondre à ta question c’est libre office.

  4. #4
    Membre habitué
    Homme Profil pro
    Retraité
    Inscrit en
    septembre 2009
    Messages
    109
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Vendée (Pays de la Loire)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : septembre 2009
    Messages : 109
    Points : 148
    Points
    148
    Par défaut Problème macro corps de mail
    Donc à ma connaissance, avec le service le service com.sun.star.system.SimpleSystemMail de libre office actuel, il n'est pas possible d'avoir les trois en même temps (sujet, destinataires et pièce(s) jointes(s).

    Cordialement
    Libre Office Version: 6.3.4.2 (x64)
    Windows 10

  5. #5
    Expert confirmé
    Avatar de jurassic pork
    Homme Profil pro
    Bidouilleur
    Inscrit en
    décembre 2008
    Messages
    1 627
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Bidouilleur
    Secteur : Industrie

    Informations forums :
    Inscription : décembre 2008
    Messages : 1 627
    Points : 4 069
    Points
    4 069
    Par défaut
    hello,
    si c'est possible ! voir ici ou avec l'extension LibreOffice EasyDev ici.

    ​ami calmant, J.P
    Jurassic computer : Sinclair ZX81 - Zilog Z80A à 3,25 MHz - RAM 1 Ko - ROM 8 Ko

  6. #6
    Futur Membre du Club
    Homme Profil pro
    Ressources humaines
    Inscrit en
    avril 2019
    Messages
    21
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 36
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Ressources humaines

    Informations forums :
    Inscription : avril 2019
    Messages : 21
    Points : 8
    Points
    8
    Par défaut
    si je comprends bien la seule solution à mon problème est le téléchargement de Easy dev ??

  7. #7
    Membre habitué
    Homme Profil pro
    Retraité
    Inscrit en
    septembre 2009
    Messages
    109
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Vendée (Pays de la Loire)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : septembre 2009
    Messages : 109
    Points : 148
    Points
    148
    Par défaut
    Bonjour,

    La réponse est oui.
    Sous Open Office c'est possible, mais pas encore sous Libre Office.

    Cordialement
    Libre Office Version: 6.3.4.2 (x64)
    Windows 10

  8. #8
    Nouveau membre du Club Avatar de ptissendier
    Homme Profil pro
    Retraité
    Inscrit en
    juillet 2011
    Messages
    44
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : juillet 2011
    Messages : 44
    Points : 38
    Points
    38
    Par défaut
    Bonjour
    Avec le code ci-dessous tu peux peut-être paramétrer beaucoup de choses
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    Sub EnvoieMail(FicAdresse as string,Destinataire as String , DateFacture As String  )
     
    	Dim Sujet, Corps, Exp, Dest, Pj as String
     
    	Pj = FicAdresse     ' une seule pièce jointe
           'Pj = "'" & Fichier & ",file:///C:/Users/moi/Desktop/macro libreoffice/fich2.csv'"      ' si plusieurs pièces jointes
    	Sujet =  "Votre facture de loyer pour " + Format(DateFacture,"MM-YYYY")
    	Corps = "Bonne réception"+Chr(10)+"Cordialement"+Chr(10)+"Signé Moi"
    	Dest =Destinataire
    	'Des = "'toto.machin@truc.fr, titi.bidule@truc.fr'"
    	Exp = "compte.expediteur@numericable.fr"
     
          'Lance le client de messagerie
    	shell("file:///home/moi/thunderbird/thunderbird",3, _
    	   "-compose body=" & Corps & _
    	    ",subject=" & Sujet & _
    	   ",from=" & Exp & _
    	   ",to=" & Dest & _
               ",cc=" & CC & _
               ",bcc="& cci & _
    	   ",attachment=" & Pj)
     
    End Sub
    Il suffit pour le "corps" que tu le constitues avant puis de le passer en paramètre (comme DateFacture pa exemple) dans la sub
    Voici pour thunderbird les parametres http://kb.mozillazine.org/Command_li...Thunderbird%29
    Pour outlook le shell=("file:///C:/Programmes/Outlook. exe/c ipm. note/m user@contoso. com ? subject = test&Body = Hello .......)
    ou voir par ici https://www.extendoffice.com/documen...mand-line.html
    Pour le shell il faut mettre exactement l'adresse de l'executable outlook, le même que celui que tu as mis dans Outils/Options/Internet/Courrier
    J'espère t'avoir donné quelques pistes.

Discussions similaires

  1. Réponses: 1
    Dernier message: 17/09/2013, 06h10
  2. Problème Macro envoi plusieurs mails à la suite
    Par chausette dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 14/02/2013, 16h10
  3. Macro excel envoi mail PJ et corps de texte
    Par arcana2001 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 09/06/2012, 11h42
  4. Macro excel envoi mail PJ et corps de texte
    Par guillaume660 dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 24/02/2012, 09h36
  5. [XL-2007] Macro pour ajouter du texte dans le corps du mail
    Par EmmanuelleFFH dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 10/02/2011, 11h37

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo