Envoi de mails via Thunderbird

Version imprimable

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:

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 !

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

Code:

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

22/01/2014, 16h20
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...
22/01/2014, 16h30
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()
22/01/2014, 16h39
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/

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:

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

24/01/2014, 17h20
defluc

Citation:

j'ai dans ma première adresse de destinataire en copie un " qui vient se positionner juste avant le @...

C'est dans la cellule contenant l'adresse que ce double quote est ajouté ou c'est à l'exécution de la macro ?

N'est-ce pas simplement un simple quote provenant de ce que la cellule est en format texte ?
24/01/2014, 17h43
ancel17

Dans ma cellule, j'ai l'adresse mail complète…
De plus ce problème disparait lorsque je supprime du code l'appel de la cellule contenant le deuxième destinataire en copie. Autrement dit lorsque je remplace le code

Code:

Cc:=Range("G12").Value, Range("G13").Value _

par le code

Code:

Range("G12").Value _