Discussion :

[macaborape]

Bonjour
J'ai récupéré ce code sur un forum :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub cmdMail()
    Dim oForm as Object
    Dim Sujet as String, Corps as String, Des as String, Exp as String
       If Dir(ConvertToURL("C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe"), 0) <> "" then
       Else
          MsgBox("thunderbird n'éxiste pas dans le dossier",16,"Courriel")
          Exit Sub
       End If
       Sujet = "Correction de votre dossier"
       Corps = "Ceci est un essai"
       Des = "adresseDestinataire@yahoo.fr"
       shell(ConvertToURL("/usr/bin/thunderbird"),3, "-compose body=" & Corps & ",subject=" & Sujet & ",to=" & Des & ",attachment='C:\temp\info.doc,C:\temp\food.doc'" )
    End Sub

J'aimerais savoir si on peut également indiquer l'expéditeur car dans Thunderbird j'ai plusieurs comptes de messagerie
Merci de votre aide
Cordialement

[Mobydick_62]

Bonjour,
Avec ta méthode je ne sais pas. Mais avec ce code c'est possible. Il suffit de passer ton adresse expéditeur à l'objet "Originator" soit en dur dans le code ou en passant par une variable.
Il faut que Thunderbird soit ton courriel par défaut.

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
 '___________________________________________________________________________
  Sub OuvertureThunderbird()
	On Error Goto ErreurMail:
    Dim sv As Object, unClient As Object, monMel As Object
	Dim annexes(0) As String 
	sv = createUnoService("com.sun.star.system.SimpleSystemMail")
	unClient = sv.querySimpleMailClient
	If IsNull(unClient) Then
     MsgBox("Client d'e-mail non disponible", 16)
     Stop
	End if
	monMel = unClient.createSimpleMailMessage
	With monMel
     .Originator = "mon.AdresseMail@blabla.fr" 'Expéditeur
	 .Recipient = "mon.Destinataire@free.fr" 'Destinataire
  	 .Subject = "Sujet du mail" 
  	 annexes(0) = "C:\temp\info.doc,C:\temp\food.doc"
  	 .Attachement = annexes()
	End With
	unClient.sendSimpleMailMessage(monMel, 0)
	Goto Fin ' Je passe la gestion d'erreur car pas d'erreur.
	ErreurMail:
    MsgBox "Une erreur est survenue. Impossibilité de lancer votre messagerie."
	Fin:
	On Error Goto 0
End Sub

Cordialement

[macaborape]

Bonjour
Merci de ta réponse mais cette macro me donne comme réponse :

Il n'existe aucun programme de messagerie associé pour effectuer l'action demandée.
Veuillez installer un programme de messagerie ou, si un tel programme est déjà installé,
créer une association dans le panneau de configuration. Programme par défaut.

Je suis allé contrôler dans le panneau de configuration et Thunderbird est bien mon client de messagerie par défaut

Je désire envoyer 2 pièces jointes j'ai ecrit :
annexes(0) = "c:\temp1.txt , c:\temp2.txt"
est ce correct je n'ai aucun moyen de contrôle puisqu'il n'y a pas de client de messagerie
Cordialement

[Mobydick_62]

Bonjour,
Je pense que le message d'erreur que tu as ne vient pas de la messagerie.
Le problème est que le code "On Error Goto...." te renvoie sur le message "Une erreur est survenue....." même s'il s'agit d'une autre erreur. C'est bien de l'utiliser quand on sait que le reste du code est bon.
Donc dans un premier temps il est préférable de commenter le "On Error"
Je te joins le code avec aussi comment mettre plusieurs pièces jointes. Pour info "annexe() est un tableau. annexe (0) pour un élément, annexe(1) pour deux etc.....
Donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim annexes(1) As String
annexes(0) = convertToURL("D:\PJ1.odt")
annexes(1) = convertToURL("D:\PJ2.odt")

OU BIEN

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim annexes() As String
 annexes() = Array (convertToURL("D:\PJ1.odt"),convertToURL("D:\PJ2.odt"))

Ci-dessous le code complet:

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
 '___________________________________________________________________________
  Sub OuvertureThunderbird()
'	On Error Goto ErreurMail:
    Dim sv As Object, unClient As Object, monMel As Object
 
	Dim annexes(1) As String 'Tableau à 2 éléments
    annexes(0) = convertToURL("D:\PJ1.odt")
    annexes(1) = convertToURL("D:\PJ2.odt")
 
    'Ou alors
'    Dim annexes() As String
'    annexes() = Array (convertToURL("D:\PJ1.odt"),convertToURL("D:\PJ2.odt"))
 
 
	sv = createUnoService("com.sun.star.system.SimpleSystemMail")
	unClient = sv.querySimpleMailClient
	If IsNull(unClient) Then
     MsgBox("Client d'e-mail non disponible", 16)
     Stop
	End if
	monMel = unClient.createSimpleMailMessage
	With monMel
     .Originator = "nom.expediteur@orange.fr" 'Expéditeur
	 .Recipient = "mon.destinataire@orange.fr" 'Destinataire
  	 .Subject = "Sujet du mail" 
  	 .Attachement = annexes()
	End With
	unClient.sendSimpleMailMessage(monMel, 0)
	Goto Fin ' Je passe la gestion d'erreur car pas d'erreur.
	ErreurMail:
    MsgBox "Une erreur est survenue. Impossibilité de lancer votre messagerie."
	Fin:
	On Error Goto 0
End Sub

Cordialement