Discussion :

[ancel17]

Bonjour,

Après une matinée de recherche, j'en suis venu à ce code, sachant j'utilise la version 2.0 de Thunderbird (aucune mise à jour possible) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
Dim StrCmd As String, Pour As String, Copie As String, Sujet As String, Corps As String, Fichier As String
Pour = ThisWorkbook.Worksheets(1).Range("F12").Value
Copie = ThisWorkbook.Worksheets(1).Range("G12").Value & "," & ThisWorkbook.Worksheets(1).Range("G13").Value
Sujet = "R54-Contentieux : RE-TA 2013 - Fiabilisation de la chaîne du recouvrement - Liaison services recouvrement"
Corps = "un petit corps de texte pour voir si ça passe comme ça..."
Fichier = "C:/Documents and Settings/test/Mes documents/Mathieu/DIV 1 - S & O/R54-RE-TA info PRS/SAUVEGARDE/R54-RE-TA info PRS - 2013-SEM 2.xls"
StrCmd = "C:\Program Files\Mozilla Thunderbird\thunderbird.exe -compose to='" & Pour & "'," _
& "cc='" & Copie & "'," _
& "subject=" & Sujet & "," _
& "body=" & Corps & "," _
& "attachment='file:///" & Fichier & "'"
Call Shell(StrCmd, vbNormalFocus)
End Sub

A l'exécution, j'ai ma fenêtre Thunderbird qui s'ouvre avec le destinataire, les copies et... ce sera tout pour ce qui fonctionne !

Le renvoi du sujet fonctionne à moitié étant donné que le libellé renvoyé est "R54-Contentieux : RE-TA 2013".

Le corps du texte étant très long et ne fonctionnant pas, j'ai testé avec un texte plus court sans succès.
La pièce jointe n'est pas attachée non plus. J'ai essayé pour le nom du fichier avec "/" et "\" mais pas d'amélioration...

Voilà, merci de votre aide !

PS : j'ai enregistré le modèle du mail dans le dossier Modèles de Thunderbird. Donc si une solution consiste à reprendre le modèle, insérer les destinataires et copies, et attacher la pièce jointe, je suis preneur !

[defluc]

Pourquoi chercher midi à quatorze heures avec thunderbird alors que l'objet CDO est fait pour ça.

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
Private Sub CommandButton1_Click()
Dim Mail As Object, SendConfig As Object
Dim Flds As Variant
Dim Pour As String, Copie As String, Sujet As String, Corps As String, Fichier As String
  Pour = ThisWorkbook.Worksheets(1).Range("F12").Value
  Copie = ThisWorkbook.Worksheets(1).Range("G12").Value & "," & ThisWorkbook.Worksheets(1).Range("G13").Value
  Sujet = "R54-Contentieux : RE-TA 2013 - Fiabilisation de la chaîne du recouvrement - Liaison services recouvrement"
  Corps = "un petit corps de texte pour voir si ça passe comme ça..."
  Fichier = "C:/Documents and Settings/test/Mes documents/Mathieu/DIV 1 - S & O/R54-RE-TA info PRS/SAUVEGARDE/R54-RE-TA info PRS - 2013-SEM 2.xls"
  Set Mail = CreateObject("CDO.Message")
  Set SendConfig = CreateObject("CDO.Configuration")
  Set Flds = SendConfig.Fields
  With Flds
   .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
   .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.MonHebergeur.fr"
   .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
   .Update
  End With
  With Mail  '  envoi du classeur par mail
    Set .Configuration = SendConfig
        .Subject = Sujet
        .From = "moi@mail.com"
        .To = Pour
        .CC = Copie
        .TextBody = Corps
        .AddAttachment Fichier
        .Send
    End With
  Set Mail = Nothing
  Set SendConfig = Nothing
  Set Flds = Nothing
End Sub

[ancel17]

Bonjour, et merci de ta réponse !

Je ne voulais pas passer par CDO car il s'agit de mail professionnel avec une signature prédéfinie, et que je ne sais pas si les signatures sont gérées en passant par CDO.

Par ailleurs, je souhaite retrouver les mails envoyés dans ma boite Envoyés...

[Oliv-]

Bonjour,
Utilises CDO comme indiqué par defluc et tu te mets en cci.
Par contre tu dois inséser dans ton code ta signature

Si tu persistes, regarde cette source
http://tinyurl.com/p9mp5yl
et cherche Sub MozillaThunderbird()

[defluc]

Et au moins cela rend l'appli polyvalente puisque l'utilisateur ne doit pas avoir thundebird installé.

Pour ce qui est de la signature, là placer en fin de body ne pose problème que si elle contient des images. Mais je sais que ce n'est pas évident avec outlook alors cela ne doit pas être mieux avec Thunderbird.

Pour l'enregistrement des messages envoyés tu peux toujours t'en référer à
http://www.developpez.net/forums/d81...s-envoyes-cdo/

[ancel17]

Effectivement je persiste... Signature en couleurs + image + format prédéfini...

J'ai donc repris le code proposé, par contre petit soucis à l'allumage :
- j'ai dans ma première adresse de destinataire en copie un " qui vient se positionner juste avant le @...
- le mail est prêt à partir (avec la coquille dans mes copies) mais n'est pas envoyé...

Je donne le code qui change par rapport au code source (autre que la correction de la sub EnvoiEmail au lieu de EnvoiMail :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
 
EnvoiEmail Adresse:=Range("F12").Value, _
           Objet:="R54-Contentieux : RE-TA 2013 - Fiabilisation de la chaîne du recouvrement - Liaison DRFiP/DDFiP (services recouvrement)", _
           Corps:="Test", _
           PJ:=ThisWorkbook.Path & "\SAUVEGARDE\DDFiP08 R54-RE-TA info PRS - 2013-SEM 2.xls", _
           Cc:=Range("G12").Value, Range("G13").Value_
 
End Sub