Envoi de mail via Excel

**lumpys** · 03/08/2016, 18h03

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.

**eric4459** · 03/08/2016, 18h19

Bonjour Lumpys,
Regardes ceci
http://stephaneey.developpez.com/tut...php/phpmailer/
Sinon voici un code développé par un membre éminent, Patrick Toulon

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Option Explicit
Public ctrl As String    'variable qui va servir a enregistrer le nom du control sur la quelle la souris passe
Public bouton() As New EFFET_waow    'initialisation de la classe
Public ctrls As Variant    'variable qui va servir a memoriser tout les bouton
Public maform As Object    'variable qui va servir a memoriser l'userform
Public propriétés As Variant   'variable de type tableau pour manipuler les propriete avec le tag renseigne parles propriétés
Public fois As Boolean
'****************************************************
'**Private Sub UserForm_Activate()                  *
'** memo Me, vbRed, True, True, vbBlack, True, True *
'**End Sub                                          *
'****************************************************
 
 
 
 
Sub memo(uf As Object, couleurboutonsurvolé As Variant, effetloupe As Boolean, text_en_gras As Boolean, _
         couleur_texte_bouton_survolé As Variant, grossissement_du_texte As Boolean, mettre_le_texte_en_majuscule As Boolean, en_italic As Boolean)
 
    If fois = False Then
 
    Set maform = uf        'dorénavant maform designera l'userform dans tout le classeur
    Dim e As Long
    'on boucle sur tout les controls dans l'userform
    For Each ctrls In uf.Controls
        'on teste si le type de control est un bouton
        If TypeName(ctrls) = "CommandButton" Then
            'on va memoriser toutes les propriétés de depart  des boutons ainsi que les effet directement dans leurs tags(nouveau principe!!!!)
ctrls.Tag = ctrls.BackColor & ":" & ctrls.ForeColor & ":" & ctrls.Left & ":" & ctrls.Width & ":" & ctrls.Top & ":" & _
ctrls.Height & ":" & couleurboutonsurvolé & ":" & effetloupe & ":" & text_en_gras & ":" & couleur_texte_bouton_survolé _
& ":" & grossissement_du_texte & ":" & mettre_le_texte_en_majuscule & ":" & ctrls.Font.Size & ":" & ctrls.Caption & ":" & en_italic
 
            e = e + 1    'on incremente la variablee
            'on regroupe tout les bouton dans la classe
            ReDim Preserve bouton(1 To e)
            Set bouton(e).GroupeBouton = ctrls
        End If
    Next
fois = True
End If
End Sub
Sub remet_normal()
 
  If ctrl <> "" Then
 
    With maform.Controls(ctrl)
        'on decoupe la chaine de caractere que constitu le tag pour separer chaques propriétés
        propriétés = Split(.Tag, ":")
        .BackColor = propriétés(0)
        .ForeColor = propriétés(1)
        .Caption = propriétés(13)
        .FontBold = False
        .Font.Size = propriétés(12)
        .Font.Italic = False
        If propriétés(7) = True Then
            .Width = propriétés(3)
            .Left = propriétés(2)
            .Height = Val(propriétés(5))
            .Top = Val(propriétés(4))
        End If
    End With
End If
End Sub
'fonction testant le texte de la caption si elle elle est en majuscule ou non
Public Function IsUcase(ByVal Str As String) As Boolean
IsUcase = InStr(1, UCase(Str), Str, vbBinaryCompare)
End Function

tout cela pourra t'aiguiller

Eric
Voici le fichier aimablement mis à disposition par Patrick

mailer envoi mail depuis n'importe quel provider.xls

**patricktoulon** · 03/08/2016, 23h37

Code :

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

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

a bon et pourquoi?????
la boite mail émetteur ne serait elle pas une "gmail "par hasard
dans ce cas la cdo marche aussi

rdurupt a livré un bel exemple qui a l'inverse du mien qui est full provider lui est coder pour gmail avec les authentification et tout le toutim

il suffit de chercher cdo et pseudo rdurupt

non seulement cdo est livré dans windows et même dans office

eric
elle est vielle cette version mais toujours d'actualité mais dans diverses discutions j'ai livré plusieurs fois le full CDO avec image dans corps message et tout le toutim

bien que dans pas longtemps je vais en livré un nouveau avec wysiwyg

je sui hésitant sur les meilleurs compromis entre le trop et le pas assez

le wysiwyg de mon prochain maileur sera une version de mon wysiwyg épuré et simplifié (le strict nécessaire)
il y aura des (images ,pdf,video )dans corps de messages

**lumpys** · 03/08/2016, 23h48

Merci pour ces infos. Malheureusement, je ne peux pas utiliser d'utilitaire ni la bibliothèque CDO comme dans la 2nde solution (la bibliothèque n'est pas installée et le service informatique refuse de l'installer et il est impossible pour d'autres personnes d'installer quoique ce soit).

J'ai trouvé 1 solution intéressante sur un autre site mais j'ai toujours le même problème : le message ne s'envoi pas directement cela ouvre simplement Thunderbird et il faut 1 intervention de l'utilisateur pour l'envoi. Il s'agit peut-être d'un paramétrage possible dans cette solution mais je ne vois pas où ni comment.

**patricktoulon** · 04/08/2016, 00h02

Merci pour ces infos. Malheureusement, je ne peux pas utiliser d'utilitaire ni la bibliothèque CDO

je vais le dire doucement encore une fois

C...D...O... EST...INTALLé... EN... NATIF...DANS.....WINDOW

LA CREATION DE L'OBJECT EN LATE BINDING DEVRAIT RESOUDRE TOUT TES SOUCIS

QUAND AU AUTRE SOULTIONS Y COMPRIS MAILENVELLOPE NE FONT QU 'OUVRIR LES APPLICATION ( avec le mail prêt a être envoyé)

apres on peu parler de pilotage d'application mais je serais surpris que ton entreprise ai virer CDO pour te laisser manipuler une APP quelconque

A mediter

**jurassic pork** · 04/08/2016, 00h38

hello,
lumpys a dit :

Malheureusement, je ne peux pas utiliser d'utilitaire ni la bibliothèque CDO comme dans la 2nde solution (la bibliothèque n'est pas installée et le service informatique refuse de l'installer et il est impossible pour d'autres personnes d'installer quoique ce soit).

Regarde des les Références de l'éditeur VBA si tu as la ligne :

Microsoft CDO for windows 2000 Library

Ami calmant, J.P

**patricktoulon** · 04/08/2016, 00h50

purée je viens de regarder mon mailer qu'Eric a déterré quand je regarde les codes j'ai honte

purée c'est moi qué fé ca!!!!

bon je vais lui faire un petit lifting et une cure de DHEA je crois que c'a s'impose

je vais peut être même lui intégrer mon wysiwyg

Eric

tu trouvais que j'en avais pas assez hein !!!

**lumpys** · 04/08/2016, 12h07

Pour répondre à JP, je n'ai pas la ligne Microsoft CDO for windows 2000 Library .

Je ne connais pas assez techniquement pour donner plus d'explications mais l'entreprise dans laquelle je travaille à plein de particularités qui lui sont propres.

A lire vos post, j'ai l'impression qu'il n'y a pas moyen de trouver mieux que CDO. Dommage ...

Merci quand même pour vos infos.

**patricktoulon** · 04/08/2016, 12h37

Bonjour

A lire vos post, j'ai l'impression qu'il n'y a pas moyen de trouver mieux que CDO. Dommage ...

mieux non!! mais possible oui a condition de ce lancer dans le pilotage d'une app externe avec les apis
autrement dis une usine a gaz pour envoyer un Mail
tu es certain de ne pas avoir la référence CDO dans tes référence (attention la version peut changer selon les versions Windows

il y aurait une autre solution aussi que je suis en train d'étudier en JavaScript que je pilote par VBA et qui est moins chichiteux mais si tu a pas CDO ca va être dur

**pijaku** · 04/08/2016, 12h53

Bonjour,

Pour ne réaliser qu'un code qui fonctionnera (en ne changeant qu'une ligne) suite à ton changement de messagerie, sans utiliser ADO, tu peux faire simple :

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
Option Explicit
 
Const MESSAGERIE As String = "Thunderbird" 'ligne à changer au passage à Outlook
                                                              'remplacer "Thunderbird" par "Outlook"
 
'la procédure d'appel
Sub eMail()
    Select Case MESSAGERIE
        Case "Thunderbird"
            'ici tu complètes les variables nécessaires à l'utilisation
            'd'une fonction d'envoi de mail via Thunderbird
            'et tu lances cette Function
        Case "Outlook"
            'ici tu complètes les variables nécessaires à l'utilisation
            'd'une fonction d'envoi de mail via Outlook
            'et tu lances cette Function
    End Select
End Sub

Des exemples de fonctions :
via thunderbird
Via outlook

**lumpys** · 04/08/2016, 19h03

Je viens finalement de réussir en modifiant la partie suivante comme suit :

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
Sub MozillaThunderbird()
'Initialisation des tableaux de touches pour Mozilla Thunderbird
    ' Pour une pièce jointe
    TouchesPJ(0) = 4        ' Nombre de touches nécessaires
    
    TouchesPJ(1) = "{F10}"     ' Appel des menus par {F10}
    TouchesPJ(2) = "f"     ' Appel du menu Fichier par la touche f
    TouchesPJ(3) = "j"      ' appel du sous-menu Joindre par la touche j
    TouchesPJ(4) = "f"      ' appel du sous-sous-menu Fichier par la touche f
    ' Pour l'envoi du mail
    TouchesEnvoi(0) = 4             ' Nombre de touches nécessaires
    TouchesEnvoi(1) = "%xf"         ' choisit l'expéditeur qui commence par F
    TouchesEnvoi(2) = "^{ENTER}"    ' Envoi du message avec Ctrl-Entrée
    TouchesEnvoi(3) = "~"           ' Touche Entrée du pavé alphabétique
                                    ' pour lancer "Envoyer" dans la boite dialogue 
    TouchesEnvoi(4) = "{ENTER}"     ' confirmation par Entrée (touche pavé numérique)
End Sub

En utilisant la touche Entrée du pavé alphabétique au lieu du pavé numérique, cela fonctionne. Je vais donc utiliser cette solution en attendant d'en trouver (ou de pouvoir en utiliser) une meilleure plus tard.

En tout cas, merci à tous pour vos infos et vos efforts.

**patricktoulon** · 04/08/2016, 19h28

re
bon ben... a faire cela tu aurais cherché un peu mieux tu aurais trouvé comment envoyer une plage de cellule avec IE et Outlook.com
je gere avec les send key aussi

beaucoup mais alors beaucoup plus simple
a moins que ton entreprise ai virer aussi la librairie IE
au quel cas on peut passer par shell
a moins aussi que ton entreprise ai virer aussi shell and automation ce qui me parait pour le "coup sur et certain " impossible

vas dans les contribs un peu cherche avec mon pseudo ou Outlook

Invité · 05/08/2016, 09h08

Bonjour,
Patrick a raison Cdo est natif dans Windows.

Il fait appel à de Api Windows et comme Cdo tout comme Outlook sont développé par Microsoft on y retrouve les même racine.

Avec createObject pas à se soucier de la librairie Cdo, mais si tu veux quand même utiliser Outlook voila les deux possibilités: http://www.developpez.net/forums/d14...t/#post7968025

**lumpys** · 05/08/2016, 16h36

Si j'ai tout suivi, vous me dites que l'on peut utiliser CDO sans cette librairie (qui semble ne plus être installable depuis Outlook 2010 de toute façon). Je n'ai toutefois jamais réussi à utiliser de code du type suivant :

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 Envoi_CDO()
Dim CdoMessage As Object
Dim Fichier As Variant
 
    ChDir "C:\Users\Documents\PdfOut"
    Fichier = Application.GetOpenFilename("Fichiers PDF (*.pdf), *.pdf")
 
    If Fichier = False Then Exit Sub
 
    Set CdoMessage = CreateObject("CDO.Message")
    With CdoMessage
        .Subject = "Exemple"
        .From = "xxxxx@wanadoo.fr"
        .To = "test.fr"
        .CC = ""
        .BCC = ""
        .TextBody = "Texte dans le corps de message"
        .AddAttachment Fichier
        .Send
    End With
 
    Set CdoMessage = Nothing
End Sub

A chaque fois, il plante au niveau de CreateObject. Qu'est ce qui manquerait sur le poste ou qu'est ce qui génèrerait cette erreur ?

**patricktoulon** · 05/08/2016, 17h08

Bonjour essaie celui la

fait moi plaisir dans un fichier vierge
change ce qui est en rouge seulement met ton address mail a la place du destinataire et ton smtp de ton FAI
tu devrait recevoir dans ta boite un message de totolafritte

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
Sub EnvoiMail_CDO()
    
    Dim iMsg As Object, iConf As Object, Flds As Object
    Set iMsg = CreateObject("cdo.message")
    Set iConf = CreateObject("cdo.configuration")
    Set Flds = iConf.Fields
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        'remplacez "smtp.nomserveur.fr" par le nom de serveur de votre FAI :
        'http://outlook.developpez.com/faq/index.php?page=Configuration#Paras_FAI
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.free.fr"
        .Update
    End With
    With iMsg
        Set .Configuration = iConf
        .To = "emaildestinataire@htomail.fr"
        .From = totolafritte@hotmail.fr
        .Subject ="test de mail "
        .HTMLBody = " salut coucou etc...."
       ' For i = 0 To form_email.ListBox1.ListCount - 1
           ' .AddAttachment form_email.ListBox1.List(i)
       ' Next
        .Send
    End With
End Sub

**lumpys** · 05/08/2016, 17h27

J'ai le message ci-dessous :

Il bloque sur la ligne Set iMsg = CreateObject("cdo.message")

Envoi de mail via Excel

Macros et VBA Excel

Discussions similaires

Partager

Partager