Bonjour,

Je cherche à piloter l'envoi de mail automatique depuis Excel. Pour le moment, je dispose de Thunderbird mais dans quelque mois nous allons passer à Outlook + OWA. Dans l'idéal, j'aurai aimer ne pas avoir à refaire dans quelque mois ce que j'ai à faire aujourd'hui. Pour le moment je galère à réaliser ce dont j'ai besoin et ne trouve pas de solution adéquate. J'ai trouvé plusieurs possibilités :

1ère possibilité:

en utilisant sendmail (mais le problème c'est qu'on ne peut pas utiliser de corps de message)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Sub EnvoiMail()
  ActiveWorkbook.SendMail Recipients:="titi@toto.com", _
                          Subject:="Test envoi classeur", _
                          ReturnReceipt:=True
 
End Sub
2ème possibilité :

CDO mais je ne peux pas utiliser cette solution dans mon entreprise

3ème possibilité :

J'ai trouvé le code suivant mais il n'envoi pas le message directement. Il ouvre à chaque fois Thunderbird et j'ai environ 100 mails à envoyer à chaque fois.

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
Private Sub Bouton1_Cliquer()
Dim destinataire, sujet, fichierjoint As String
destinataire = "titi@toto.com,tata@toto.com"
sujet = "Salut!"
 
Body = "Comment ca va ?"
fichierjoint = "C:\caisslog.txt"
 
strcommand = "C:\Program Files\Mozilla Thunderbird\thunderbird"
strcommand = strcommand & " -compose " & "to='" & destinataire & "'"
strcommand = strcommand & "," & "subject=" & sujet & ","
strcommand = strcommand & "body=" & Body
strcommand = strcommand & "," & "attachment=file:///" & fichierjoint
MsgBox strcommand
 
Call Shell(strcommand, vbNormalFocus)
 
End Sub
4ème possibilité :

Il semble exister des solutions spécifiques à Outlook mais nous n'utilisons pas encore cette solution.


Connaitriez-vous une solution intéressante ?

(J'ai besoin d'une solution qui me permette d'avoir un corps de message de quelques lignes. Je souhaiterai que le message s'envoi directement. Les destinataires et les fichiers à envoyer par mail peuvent être enregistrés dans un classeur Excel)

Merci beaucoup pour l'aide que vous pourrez m'apporter.