Codes sources VBA

VBA: Envoyer un email avec Excel (via Outlook)

Mis à jour 08/03/2024|235 commentaires

Vous avez un listing de clients en Excel et vous voulez l'utiliser pour envoyer des emails personnalisés? Vous avez besoin d'avertir quelqu'un par email à la fin de votre programme? Alors lisez ce qui suit car en VBA, tout est possible (ou presque)!

Envoyer email avec Excel — Envoyer un email avec Excel

Je vous propose ici le code VBA qui vous permettra d'envoyer un email avec Excel en passant (en arrière plan et sans l'intervention humaine) par Outlook. Il s'agit une fonctionnalité très pratique. Le code qui suit est conçu de manière à ce que même un débutant en VBA puisse l'implementer et l'utiliser facilement.

Les utilisateurs plus avancées de VBA n'auront aucun problème d'insérer ce code dans une boucle et créer ainsi un puissant outil de publipostage – qui, de plus est, contrairement à d'autres outils, tout à fait gratuit.

Sommaire

Comment envoyer un email dans Excel (Access / Word,…) avec VBA?
- Ajouter la Référence Microsoft Outlook X.0 Object Library
Code VBA complet pour envoyer des emails dans Excel
- Choix du format de l'email: HTML, simple texte ou texte riche (formaté)
- Quelle est la différence entre les différents formats?
Exemples d'utilisation du code VBA pour envoyer les emails depuis Excel
- Exemple d'utilisation avec des variables
- Exemple de code VBA pour envoyer en email avec les balises HTML
Remarques pratiques
Envoyer un email avec Excel: Utilisation Avancée
Envoyer un email avec Excel: Conclusion
Pour aller plus loin en VBA

Comment envoyer un email dans Excel (Access / Word,…) avec VBA?

Le code VBA qui suit vous permet donc d'envoyer un ou plusieurs emails à partir d'Excel. Ce code contient deux procédures. Une qui envoie les emails proprement dit (procédure EnvoyerEmail) et une autre qui gère l'application Outlook (pour faire en sorte que Outlook soit prêt à envoyer les emails – même si Outlook lui même n'est pas ouvert) – procédure PreparerOutlook.

Le code est écrit de manière à ce qu'il soit lisible et compréhensible. En gros, vous devez fournir à la procédure EnvoyerEmail les arguments suivants (sous forme de texte):

le sujet de l'email
l'adresse email du destinataire
le contenu de l'email
en option, le chemin complet du fichier qui doit être attaché à l'email en tant que pièce jointe

Les arguments sont dans cet ordre précis et tous les 4 doivent être de type String.

L'appel de la procédure (dont le code se trouve plus loin) nous donne alors:

Sub EnvoyerEmail(ByVal Sujet As String, ByVal Destinataire As String, ByVal ContenuEmail As String, Optional ByVal PieceJointe As String)

Le code va fonctionner directement, il suffit de le copier/coller. La seule exigence est d'avoir Microsoft Outlook installé et ajouter à votre projet la Référence à Outlook (voir la section suivante).

Il vous est donc très facile d'ajouter ce code à votre Projet et commencer à envoyer des emails.

Ajouter la Référence `Microsoft Outlook X.0 Object Library`

Ceci est une étape importante car si la Référence n'est pas ajouté, le code ci-dessous ne fonctionnera pas.

Si vous connaissez la procédure d'ajout d'une Référence VBA

Vous devez tout simplement ajouter la Référence de Outlook: Microsoft Outlook X.0 Object Library

Si vous ne savez pas comment ajouter une Référence VBA

Rassurez vous, ce n’est pas bien compliqué:

Ouvrez le Visual Basic Editor (VBE) s’il n’est pas déjà ouvert (via Alt + F11 ) à partir de votre fichier.
Dans la barre de menus, cliquez sur “Outils” (ou “Tools” si votre VBE est en anglais) et ensuite sur “Références” (“References“).
Dans la liste, trouvez la ligne Microsoft Outlook X.0 Object Library (où X est un chiffre) et cochez la case à côté.
Cliquez sur OK et sauvegardez votre projet.

Code VBA complet pour envoyer des emails dans Excel

Ci-dessous se trouve donc le code VBA complet dont vous aurez besoin. Il suffit de le copier/coller dans un Module de votre Projet VBA.

Sub EnvoyerEmail(ByVal Sujet As String, ByVal Destinataire As String, ByVal ContenuEmail As String, Optional ByVal PieceJointe As String)
'par Excel-Malin.com ( https://excel-malin.com )

On Error GoTo EnvoyerEmailErreur

'définition des variables
Dim oOutlook As Outlook.Application
Dim oMailItem As Outlook.MailItem

    'vérification si le Contenu du mail n'est pas vide. Si oui, email n'est pas envoyé. Si vous voulez pouvoir envoyer les email vides, mettez en commentaire les 4 lignes de code qui suivent.
    If Len(ContenuEmail) = 0 Then
        MsgBox "Mail non envoyé car vide", vbOKOnly, "Message"
        Exit Sub
    End If
    
    'préparer Outlook
    PreparerOutlook oOutlook
    Set oMailItem = oOutlook.CreateItem(0)
    
    'création de l'email
    With oMailItem
        .To = Destinataire
        .Subject = Sujet
        
        'CHOIX DU FORMAT
        '----------------------
        'email formaté comme HTML (aussi par défaut)
            .BodyFormat = olFormatHTML
            .HTMLBody = "<html><p>" & ContenuEmail & "</p></html>"
            
        'OU
            
        'email formaté comme simple texte sans formats
            '.BodyFormat = olText
            '.Body = ContenuEmail
            
        'OU
                
        'email formaté comme texte riche (= avec formats)
            '.BodyFormat = olFormatRichText
            '.Body = ContenuEmail
        '----------------------
        
        If PieceJointe <> "" Then .Attachments.Add PieceJointe

       .Display   '<- affiche l'email (si vous ne voulez pas l'afficher, mettez cette ligne en commentaire)
       .Save      '<- sauvegarde l'email avant l'envoi (pour ne pas le sauvegarder, mettez cette ligne en commentaire)
       .Send      '<- envoie l'email (si vous voulez seulement préparer l'email et l'envoyer manuellement, mettez cette ligne en commentaire)
    End With
    
   'nettoyage...
    If (Not (oMailItem Is Nothing)) Then Set oMailItem = Nothing
    If (Not (oOutlook Is Nothing)) Then Set oOutlook = Nothing
    
Exit Sub
EnvoyerEmailErreur:
    If (Not (oMailItem Is Nothing)) Then Set oMailItem = Nothing
    If (Not (oOutlook Is Nothing)) Then Set oOutlook = Nothing
  
    MsgBox "Le mail n'a pas pu être envoyé...", vbCritical, "Erreur"
End Sub


Private Sub PreparerOutlook(ByRef oOutlook As Object)
'par Excel-Malin.com ( https://excel-malin.com )

'------------------------------------------------------------------------------------------------
'Ce code vérifie si Outlook est prêt à envoyer des emails... Et s'il ne l'est pas, il le prépare.
'------------------------------------------------------------------------------------------------

On Error Resume Next
    'vérification si Outlook est ouvert
    Set oOutlook = GetObject(, "Outlook.Application")
    
    If (Err.Number > 0) Then 'si Outlook n'est pas ouvert, une instance est ouverte
        Err.Clear
        Set oOutlook = CreateObject("Outlook.Application")
        
        If (Err.Number > 0) Then
            MsgBox "Une erreur est survenue lors de l'ouverture de Outlook..."
            Exit Sub
        Else
        End If
        
    Else    'si Outlook est ouvert, l'instance existante est utilisée
    End If

End Sub

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

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

Sub EnvoyerEmail(ByVal Sujet As String, ByVal Destinataire As String, ByVal ContenuEmail As String, Optional ByVal PieceJointe As String)

'par Excel-Malin.com ( https://excel-malin.com )

On Error GoTo EnvoyerEmailErreur

'définition des variables

Dim oOutlook As Outlook.Application

Dim oMailItem As Outlook.MailItem

'vérification si le Contenu du mail n'est pas vide. Si oui, email n'est pas envoyé. Si vous voulez pouvoir envoyer les email vides, mettez en commentaire les 4 lignes de code qui suivent.

If Len(ContenuEmail) = 0 Then

MsgBox "Mail non envoyé car vide", vbOKOnly, "Message"

Exit Sub

End If

'préparer Outlook

PreparerOutlook oOutlook

Set oMailItem = oOutlook.CreateItem(0)

'création de l'email

With oMailItem

.To = Destinataire

.Subject = Sujet

'CHOIX DU FORMAT

'----------------------

'email formaté comme HTML (aussi par défaut)

.BodyFormat = olFormatHTML

.HTMLBody = "<html><p>" & ContenuEmail & "</p></html>"

'OU

'email formaté comme simple texte sans formats

'.BodyFormat = olText

'.Body = ContenuEmail

'OU

'email formaté comme texte riche (= avec formats)

'.BodyFormat = olFormatRichText

'.Body = ContenuEmail

'----------------------

If PieceJointe <> "" Then .Attachments.Add PieceJointe

.Display '<- affiche l'email (si vous ne voulez pas l'afficher, mettez cette ligne en commentaire)

.Save '<- sauvegarde l'email avant l'envoi (pour ne pas le sauvegarder, mettez cette ligne en commentaire)

.Send '<- envoie l'email (si vous voulez seulement préparer l'email et l'envoyer manuellement, mettez cette ligne en commentaire)

End With

'nettoyage...

If (Not (oMailItem Is Nothing)) Then Set oMailItem = Nothing

If (Not (oOutlook Is Nothing)) Then Set oOutlook = Nothing

Exit Sub

EnvoyerEmailErreur:

If (Not (oMailItem Is Nothing)) Then Set oMailItem = Nothing

If (Not (oOutlook Is Nothing)) Then Set oOutlook = Nothing

MsgBox "Le mail n'a pas pu être envoyé...", vbCritical, "Erreur"

End Sub

Private Sub PreparerOutlook(ByRef oOutlook As Object)

'par Excel-Malin.com ( https://excel-malin.com )

'------------------------------------------------------------------------------------------------

'Ce code vérifie si Outlook est prêt à envoyer des emails... Et s'il ne l'est pas, il le prépare.

'------------------------------------------------------------------------------------------------

On Error Resume Next

'vérification si Outlook est ouvert

Set oOutlook = GetObject(, "Outlook.Application")

If (Err.Number > 0) Then 'si Outlook n'est pas ouvert, une instance est ouverte

Err.Clear

Set oOutlook = CreateObject("Outlook.Application")

If (Err.Number > 0) Then

MsgBox "Une erreur est survenue lors de l'ouverture de Outlook..."

Exit Sub

Else

End If

Else 'si Outlook est ouvert, l'instance existante est utilisée

End If

End Sub

Pour que le code fonctionne correctement, vous devez copier/coller son entièreté dans un Module de votre Projet VBA.

Choix du format de l'email: HTML, simple texte ou texte riche (formaté)

Ce code VBA vous permet de choisir quel format de l'email vous voulez utiliser: texte formaté ("Rich text"), HTML (formatage comme une page web) ou simple texte sans aucun format. Selon votre choix, vous devez mettre en commentaire une de ces trois possibilités.

        'CHOIX DU FORMAT
        '----------------------
        'email formaté comme HTML (aussi par défaut)
            .BodyFormat = olFormatHTML
            .HTMLBody = "<html><p>" & ContenuEmail & "</p></html>"
            
        'OU
            
        'email formaté comme simple texte sans formats
            '.BodyFormat = olText
            '.Body = ContenuEmail
            
        'OU
                
        'email formaté comme texte riche (= avec formats)
            '.BodyFormat = olFormatRichText
            '.Body = ContenuEmail
        '----------------------

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

'CHOIX DU FORMAT

'----------------------

'email formaté comme HTML (aussi par défaut)

.BodyFormat = olFormatHTML

.HTMLBody = "<html><p>" & ContenuEmail & "</p></html>"

'OU

'email formaté comme simple texte sans formats

'.BodyFormat = olText

'.Body = ContenuEmail

'OU

'email formaté comme texte riche (= avec formats)

'.BodyFormat = olFormatRichText

'.Body = ContenuEmail

'----------------------

pour le format HTML, vous pouvez laisser le code initial inchangé (lignes 34-35 et 40-41 en commentaire et les lignes 28-29 actives)
pour le format texte simple, les lignes 28-29 et 40-41 doivent être en commentaire et les lignes 34-35 actives
pour le format texte formaté, mettez les lignes 40-41 actives, lignes 28-29 et 34-35 en commentaire
vous pouvez, bien sûr, effacer les lignes inutiles plutôt que de les mettre en commentaire

Quelle est la différence entre les différents formats?

En gros, le format HTML vous permet d'utiliser les balises & le code HTML pour formater le contenu de votre email. Il est donc facile d'utiliser des images, liens etc. Le simple texte a son avantage également: il aura moins de risque d'être considéré comme pourriel par les services de courrier électronique (Gmail, Hotmail,…) et donc il aura plus de chances d'atteindre le destinataire. Le texte formaté n'a, aujourd'hui, plus vraiment la cote et dans 99% de cas, il n'y a plus de raison de l'utiliser – le format HTML est beaucoup plus répandu…

Format par défaut: si vous omettez d'indiquer le format, c'est le format HTML qui sera appliqué par défaut.

Vous pouvez voir la différence entre ces formats dans la section suivante – les exemples d'utilisation.

Exemples d'utilisation du code VBA pour envoyer les emails depuis Excel

Et voici les exemples de l'utilisation du code précédent. Il suffit d'appeler la procédure EnvoyerEmail avec les arguments nécessaires – c'est à dire "Sujet", "Destinataire", "Contenu" et éventuellement "Pièce jointe".

Le code qui suit envoie un email sans pièce jointe et un autre avec une pièce jointe.

Sub TestEnvoiEmail()
'par Excel-Malin.com ( https://excel-malin.com )

    'test envoi de l'email sans pièce jointe
        Call EnvoyerEmail("Test email 1", "contact@test.fr", "Ceci est un test...")
     
     'test envoi de l'email avec pièce jointe
        Call EnvoyerEmail("Test email 2", "contact@test.fr", "Ceci est un test avec pièce jointe...", "C:\MonDossier\MonFichier.pdf")
 
 MsgBox "Test terminé..."

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

Sub TestEnvoiEmail()

'par Excel-Malin.com ( https://excel-malin.com )

'test envoi de l'email sans pièce jointe

Call EnvoyerEmail("Test email 1", "contact@test.fr", "Ceci est un test...")

'test envoi de l'email avec pièce jointe

Call EnvoyerEmail("Test email 2", "contact@test.fr", "Ceci est un test avec pièce jointe...", "C:\MonDossier\MonFichier.pdf")

MsgBox "Test terminé..."

End Sub

Exemple d'utilisation avec des variables

Vous pouvez également fournir les arguments nécessaires via des variables. Attention, vous devez avoir déclaré ces variables pour pouvoir les transférer une procédure (Sub) à une autre (ici de la procédure TestEnvoiEmail_Variables vers EnoyerEmail). Ceci est particulièrement pratique si vous voulez envoyer plusieurs emails. Il suffit alors d'utiliser une boucle au sein de laquelle on attribue les valeurs aux variables et ensuite, l'email est envoyé. La boucle recommence une autre itération en chargeant les nouvelles valeurs dans les variables. Et ainsi de suite…

Sub TestEnvoiEmail_Variables()
'par Excel-Malin.com ( https://excel-malin.com )

'définition des variables
Dim MonSujet As String
Dim MonDestinataire As String
Dim MonContenu As String
Dim MaPieceJointe As String

'attribution des valeurs aux variables
MonSujet = "Test d'email d'Excel avec variables"
MonDestinataire = "jean.dupont@dupont.fr"
MonContenu = "Bonjour Jean, voici un petit message de test... Avec un fichier en plus."
MaPieceJointe = "C:\Test\MonFichierExcel.xlsx"
    
    'test envoi de l'email
        Call EnvoyerEmail(MonSujet, MonDestinataire, MonContenu, MaPieceJointe)

MsgBox "Test terminé..."
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

Sub TestEnvoiEmail_Variables()

'par Excel-Malin.com ( https://excel-malin.com )

'définition des variables

Dim MonSujet As String

Dim MonDestinataire As String

Dim MonContenu As String

Dim MaPieceJointe As String

'attribution des valeurs aux variables

MonSujet = "Test d'email d'Excel avec variables"

MonDestinataire = "jean.dupont@dupont.fr"

MonContenu = "Bonjour Jean, voici un petit message de test... Avec un fichier en plus."

MaPieceJointe = "C:\Test\MonFichierExcel.xlsx"

'test envoi de l'email

Call EnvoyerEmail(MonSujet, MonDestinataire, MonContenu, MaPieceJointe)

MsgBox "Test terminé..."

End Sub

Exemple de code VBA pour envoyer en email avec les balises HTML

Comme mentionné plus haut, vous pouvez créer et envoyer des emails en format HTML. Ainsi, Outlook envoie l'email comme si c'était une page web. Cela a pour l'avantage la possibilité de formater le message à votre guise. A condition de maîtriser (au moins) un peu le langage HTML (remarquez les balises HTML dans l'exemple).

Sub TestEnvoiEmail_FormatHTML()
'par Excel-Malin.com ( https://excel-malin.com )

    'test envoi de l'email sans pièce jointe
        Call EnvoyerEmail("Test email HTML 1", "contact@test.fr", "Ceci est un <strong>test</strong><br>avec les formats <span style=""color: #f55; font-weight: bold;"">HTML</span>...")

MsgBox "Test terminé..."
End Sub

1

2

3

4

5

6

7

8

Sub TestEnvoiEmail_FormatHTML()

'par Excel-Malin.com ( https://excel-malin.com )

'test envoi de l'email sans pièce jointe

Call EnvoyerEmail("Test email HTML 1", "contact@test.fr", "Ceci est un <strong>test</strong><br>avec les formats <span style=""color: #f55; font-weight: bold;"">HTML</span>...")

MsgBox "Test terminé..."

End Sub

Remarques pratiques

Ce code est indépendant et peut être utilisé dans les différentes application de Microsoft Office (Excel, Access, Word,…). Mais n'oubliez pas d'ajouter la Référence à Microsoft Outlook X.0 Object Library comme mentionné plus haut.
Il est possible d'aller encore plus en profondeur: ajouter des CC, des CCI, ajouter plusieurs pièces jointes en même temps etc. Par souci de lisibilité (surtout pour les utilisateurs moins avancés), j'ai utilisé dans ce code les options de base (et nécessaires). N'hésitez pas à laisser un commentaire si vous avez envie d'en savoir plus sur les autres fonctionnalités possibles…
Mise-à-jour: vu les nombreuses demandes, j'ai ajouté à la fin de ce tutoriel la section "Envoyer un email avec Excel: Utilisation Avancée" qui contient les possibilités supplémentaires…
Selon vos besoins, vous pouvez envoyer directement le mail ou le garder prêt et l'envoyer manuellement. L'explication comment faire se trouve dans les commentaires dans le code.

Envoyer un email avec Excel: Utilisation Avancée

Comme souhaité par les utilisateurs dans les commentaires et dans les nombreux emails que je reçois à ce sujet, j'ai ajouté cette section afin de pouvoir y ajouter le code VBA supplémentaire qui ajoute des fonctionnalités à la fonction de base…

Copie à ..., Copie invisible à ...

Copie à …, Copie invisible à …

Il est possible d’ajouter des destinataires supplémentaires en copie ou en copie invisible tout comme quand vous envoyez un email “normalement”.
Pour les destinataires en copie, vous devez ajouter: .CC = "destinataire_en_copie@email.fr"
Pour une copie invisible, le code est le suivant: .BCC = "copie_invisible@email.fr"

Ce code est à ajouter à l’intérieur du bloc:

With oMailItem
...
End With

1

2

3

With oMailItem

...

End With

tout comme le .To = "..."

Vous pouvez, selon votre besoin, ajouter ce code dans la fonction principale soit avec les valeurs fixes, soit vous ajoutez une ou deux variables supplémentaires pour pouvoir rendre votre fonction plus générique.

Plusieurs destinataires...

Plusieurs destinataires…

Vous pouvez ajouter plusieurs destinataires dans les champs .To, .CC et .BCC

La règle est simple: les différentes adresses email doivent être séparées par un point-virgule (;).
Exemple: .To = "paul@test.fr;marie@test.fr;contact@monentreprise.ca"

Donc si vous avez plusieurs emails et vous voulez vous baser sur ma fonction de base, vous pouvez soit “préparer” le contenu de l’argument Destinataire, soit vous ajoutez de nouvelles variables et vous “composez” le contenu de .To directement dans la fonction.

Personnellement, je vous suggérerais la première solution. Les avantages:

pas besoin de modifier la fonction de base
pas besoin de savoir en avance le nombre de destinataires
le nombre de destinataires n’a pas de limite
la “préparation” du champs .To (ou .CC ou .BCC) est tout à fait indépendante de la fonction d’envoi de l’email

Importance de l'email...

Importance de l’email…

Une autre chose que vous pouvez ajouter déterminer en VBA c’est l’importance de l’email.

Pour cela, nous utiliserons la propriété .Importance de l’objet oMailItem.
Cette propriété doit être ajoutée à l’intérieur du bloc

With oMailItem
...
End With

1

2

3

With oMailItem

...

End With

Il existe trois niveaux d’importance de l’email:

olImportanceHigh – correspond à l’importance haute
olImportanceNormal – correspond à l’importance normale (= valeur par défaut)
olImportanceLow – correspond à l’importance faible

Voici donc à quoi ressemblera le code VBA:

With oMailItem
   ...
   .Importance = olImportanceHigh 'importance haute
   '.Importance = olImportanceNormal 'importance normale
   '.Importance = olImportanceLow 'importance faible
   ...
End With

1

2

3

4

5

6

7

With oMailItem

...

.Importance = olImportanceHigh 'importance haute

'.Importance = olImportanceNormal 'importance normale

'.Importance = olImportanceLow 'importance faible

...

End With

Et pour être tout à fait exhaustif, sachez que vous pouvez remplacer ces valeurs par des valeurs numériques allant de 0 à 2:

2 – correspond à l’importance haute
1 – correspond à l’importance normale (= valeur par défaut)
0 – correspond à l’importance faible

Ce qui donnera donc comme code:

With oMailItem
   ...
   .Importance = 2 'importance haute
   '.Importance = 1 'importance normale
   '.Importance = 0 'importance faible
   ...
End With

1

2

3

4

5

6

7

With oMailItem

...

.Importance = 2 'importance haute

'.Importance = 1 'importance normale

'.Importance = 0 'importance faible

...

End With

Personnellement, je vous conseillerais d’utiliser les valeurs textuelles pour une meilleure lisibilité de votre code.

Demander un accusé de réception / Demander un accusé de lecture

Demander un accusé de réception / Demander un accusé de lecture

Et voici le code VBA qui vous permettra de demander un accusé lors de l’envoi d’un email avec Excel:
Les propriétés de l’objet oMailItem à utiliser sont .ReadReceiptRequested pour l’accusé de lecture et .OriginatorDeliveryReportRequested. Pour activé la demande d’accusé, vous devez donner la valeur True à une ou les deux de ces propriétés (selon votre besoin).
De l’autre côté, pour être sûr que les accusés sont désactivés, attribuez leur la valeur False.

With oMailItem
   ...
   .ReadReceiptRequested = True 'active la demande d'accusé de lecture
   .OriginatorDeliveryReportRequested = True 'active la demande d'accusé de réception
   ...
End With

1

2

3

4

5

6

With oMailItem

...

.ReadReceiptRequested = True 'active la demande d'accusé de lecture

.OriginatorDeliveryReportRequested = True 'active la demande d'accusé de réception

...

End With

Plusieurs pièces jointes...

Plusieurs pièces jointes…

Pour ajouter une pièce jointe, le code à ajouter à l’intérieur du bloc:

With oMailItem
...
End With

1

2

3

With oMailItem

...

End With

est le suivant:
.Attachments.Add "C:\MonDossier\MonFichier.xlsx"

Pour ajouter plusieurs pièces jointes à l’email, il suffit de répéter toute cette ligne de code en changeant le nom et le chemin du fichier.
Exemple:

.Attachments.Add "C:\MonDossier\MonFichier.xlsx"
.Attachments.Add "C:\MonDossier\MonFichier1.docx"
.Attachments.Add "C:\AutreDossier\Facture_123.pdf"
.Attachments.Add "C:\AutreDossier\Devis_234.pdf"

1

2

3

4

.Attachments.Add "C:\MonDossier\MonFichier.xlsx"

.Attachments.Add "C:\MonDossier\MonFichier1.docx"

.Attachments.Add "C:\AutreDossier\Facture_123.pdf"

.Attachments.Add "C:\AutreDossier\Devis_234.pdf"

Donc à la fin, votre code ressemblera à ceci:

With oMailItem
'...
.To = "comptabilite@entreprise.fr"
.Subject = "Factures pour le mois de juin"       
.BodyFormat = olFormatRichText
.Body = Body
'...
.Attachments.Add "C:\MonDossier\MonFichier.xlsx"
.Attachments.Add "C:\MonDossier\MonFichier1.docx"
.Attachments.Add "C:\AutreDossier\Facture_123.pdf"
.Attachments.Add "C:\AutreDossier\Devis_234.pdf"
'...
.Send
End With

1

2

3

4

5

6

7

8

9

10

11

12

13

14

With oMailItem

'...

.To = "comptabilite@entreprise.fr"

.Subject = "Factures pour le mois de juin"

.BodyFormat = olFormatRichText

.Body = Body

'...

.Attachments.Add "C:\MonDossier\MonFichier.xlsx"

.Attachments.Add "C:\MonDossier\MonFichier1.docx"

.Attachments.Add "C:\AutreDossier\Facture_123.pdf"

.Attachments.Add "C:\AutreDossier\Devis_234.pdf"

'...

.Send

End With

Image dans le corps du message

Image dans le corps du message

Il se peut que vous ayez besoin d’insérer une image directement dans le corps du message (et qu’elle soit visible) plutôt que de la mettre uniquement comme pièce jointe.
C’est possible!

Attention: cette fonctionnalité marche seulement si le format du texte de l’email est le HTML (olFormatHTML)

Voici la démarche à suivre:

vous devez d’abord ajouter l’image en question comme si c’était une pièce jointe. On le fait comme dans la section précédente mais en ajoutant deux paramètres. voici le code VBA:
.Attachments.Add "C:\Utilisateurs\Martin\TEMP\MonImage.jpg", olByValue, 0
1
.Attachments.Add "C:\Utilisateurs\Martin\TEMP\MonImage.jpg", olByValue, 0
ce code doit être placé dans le bloc:
With oMailItem ... End With
1
2
3
With oMailItem
...
End With
Maintenant que Outlook sait avec quel fichier travailler, vous pouvez le placer dans le code du message à l’endroit souhaité:
.HTMLBody = .HTMLBody & "<br><img src='cid:MonImage.jpg' width='500' height='200'><br>"
1
.HTMLBody = .HTMLBody & "<br><img src='cid:MonImage.jpg' width='500' height='200'><br>"
Si vous préférez, vous pouvez utiliser les guillemets doubles dans le tag HTML plutôt que les apostrophes:
.HTMLBody = .HTMLBody & "<br><img src=""cid:MonImage.jpg"" width=""500"" height=""200""><br>"
1
.HTMLBody = .HTMLBody & "<br><img src=""cid:MonImage.jpg"" width=""500"" height=""200""><br>"
N’oubliez pas d’adapter la hauteur (height=) et la largeur (width=) de l’image si vous le souhaitez. Vous pouvez omettre de mentionner ces deux dimensions. L’image dans l’email aura alors la taille réelle (attention à la lisibilité!).
Le code sera alors plus simple:
.HTMLBody = .HTMLBody & "<br><img src='cid:MonImage.jpg'><br>"
1
.HTMLBody = .HTMLBody & "<br><img src='cid:MonImage.jpg'><br>"
Toute l’astuce consiste dans le lien entre le code HTML du corps du message et la pièce jointe. Ce lien se fait par le cid: dans la balise HTML <img src=...>. Vous devez mentionner cid: et le nom du fichier à afficher. Attention, il ne faut pas mentionner tout le chemin mais uniquement le nom du fichier. Outlook connaît déjà le chemin grâce à l’étape n° 1) décrite plus haut.
Donc comme déjà mentionné, la balise <img> aura la forme suivante:
<img src='cid:MonImage.jpg'>
1
<img src='cid:MonImage.jpg'>

Remarque: il est ainsi possible d’ajouter plusieurs images dans le corps du message.

Exemple:

With oMailItem
'...
.Attachments.Add "C:\Utilisateurs\Martin\TEMP\MonImage1.jpg", olByValue, 0
.Attachments.Add "C:\Utilisateurs\Martin\TEMP\MonImage2.jpg", olByValue, 0
'...
.HTMLBody = .HTMLBody & "<br><img src='cid:MonImage1.jpg' width='500' height='200'><br><img src='cid:MonImage2.jpg' width='300' height='225'> <br>"
End With

1

2

3

4

5

6

7

With oMailItem

'...

.Attachments.Add "C:\Utilisateurs\Martin\TEMP\MonImage1.jpg", olByValue, 0

.Attachments.Add "C:\Utilisateurs\Martin\TEMP\MonImage2.jpg", olByValue, 0

'...

.HTMLBody = .HTMLBody & "<br><img src='cid:MonImage1.jpg' width='500' height='200'><br><img src='cid:MonImage2.jpg' width='300' height='225'> <br>"

End With

Choisir le compte Outlook à utiliser comme adresse d'expéditeur

Choisir le compte Outlook à utiliser comme adresse d’expéditeur

Si vous utilisez plusieurs comptes (adresses email différentes) dans Outlook, le code ci-dessus vous permettra de choisir avec quelle adresse l’email doit être envoyé.

Il vous suffit d’écrire l’adresse email qui doit être utilisé comme valeur de CompteOutlook.SmtpAddress dans le code qui suit:

Dim CompteOutlook As Account

For Each CompteOutlook In oOutlook.Session.Accounts
    If CompteOutlook.SmtpAddress = "MonNom@mon-email.fr" Then ' <-- modifiez l'adresse
        .SendUsingAccount = CompteOutlook
        Exit For
    End If
Next CompteOutlook

1

2

3

4

5

6

7

8

Dim CompteOutlook As Account

For Each CompteOutlook In oOutlook.Session.Accounts

If CompteOutlook.SmtpAddress = "MonNom@mon-email.fr" Then ' <-- modifiez l'adresse

.SendUsingAccount = CompteOutlook

Exit For

End If

Next CompteOutlook

Dans la fonction principale, ce code doit être ajouté à l’intérieur du bloc With oMailItem / End With, avant l’instruction d’affichage ( .Display ) et d’envoi ( .Send ). Il suffit donc de l’insérer à la place de la ligne 45 du code…

Voici donc le code complet de la fonction avec cette fonctionnalité qui vous permettra de choisir avec quel adresse l’email doit être envoyé.

Sub EnvoyerEmail(ByVal Sujet As String, ByVal Destinataire As String, ByVal ContenuEmail As String, Optional ByVal PieceJointe As String)
'par Excel-Malin.com ( https://excel-malin.com )

On Error GoTo EnvoyerEmailErreur

'définition des variables
Dim oOutlook As Outlook.Application
Dim oMailItem As Outlook.MailItem

    'vérification si le Contenu du mail n'est pas vide. Si oui, email n'est pas envoyé. Si vous voulez pouvoir envoyer les email vides, mettez en commentaire les 4 lignes de code qui suivent.
    If Len(ContenuEmail) = 0 Then
        MsgBox "Mail non envoyé car vide", vbOKOnly, "Message"
        Exit Sub
    End If
    
    'préparer Outlook
    PreparerOutlook oOutlook
    Set oMailItem = oOutlook.CreateItem(0)
    
    'création de l'email
    With oMailItem
        .To = Destinataire
        .Subject = Sujet
        
        'CHOIX DU FORMAT
        '----------------------
        'email formaté comme HTML (aussi par défaut)
            .BodyFormat = olFormatHTML
            .HTMLBody = "<html><p>" & ContenuEmail & "</p></html>"
            
        'OU
            
        'email formaté comme simple texte sans formats
            '.BodyFormat = olText
            '.Body = ContenuEmail
            
        'OU
                
        'email formaté comme texte riche (= avec formats)
            '.BodyFormat = olFormatRichText
            '.Body = ContenuEmail
        '----------------------
        
        If PieceJointe <> "" Then .Attachments.Add PieceJointe
        
        Dim CompteOutlook As Account
        
        For Each CompteOutlook In oOutlook.Session.Accounts
            If CompteOutlook.SmtpAddress = "MonNom@mon-email.fr" Then ' <-- modifiez l'adresse
                .SendUsingAccount = CompteOutlook
                Exit For
            End If
        Next CompteOutlook
        
       .Display   '<- affiche l'email (si vous ne voulez pas l'afficher, mettez cette ligne en commentaire)
       .Save      '<- sauvegarde l'email avant l'envoi (pour ne pas le sauvegarder, mettez cette ligne en commentaire)
       .Send      '<- envoie l'email (si vous voulez seulement préparer l'email et l'envoyer manuellement, mettez cette ligne en commentaire)
    End With
    
   'nettoyage...
    If (Not (oMailItem Is Nothing)) Then Set oMailItem = Nothing
    If (Not (oOutlook Is Nothing)) Then Set oOutlook = Nothing
    
   Exit Sub

EnvoyerEmailErreur:
    If (Not (oMailItem Is Nothing)) Then Set oMailItem = Nothing
    If (Not (oOutlook Is Nothing)) Then Set oOutlook = Nothing
  
    MsgBox "Le mail n'a pas pu être envoyé...", vbCritical, "Erreur"
End Sub

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

68

69

70

71

Sub EnvoyerEmail(ByVal Sujet As String, ByVal Destinataire As String, ByVal ContenuEmail As String, Optional ByVal PieceJointe As String)

'par Excel-Malin.com ( https://excel-malin.com )

On Error GoTo EnvoyerEmailErreur

'définition des variables

Dim oOutlook As Outlook.Application

Dim oMailItem As Outlook.MailItem

'vérification si le Contenu du mail n'est pas vide. Si oui, email n'est pas envoyé. Si vous voulez pouvoir envoyer les email vides, mettez en commentaire les 4 lignes de code qui suivent.

If Len(ContenuEmail) = 0 Then

MsgBox "Mail non envoyé car vide", vbOKOnly, "Message"

Exit Sub

End If

'préparer Outlook

PreparerOutlook oOutlook

Set oMailItem = oOutlook.CreateItem(0)

'création de l'email

With oMailItem

.To = Destinataire

.Subject = Sujet

'CHOIX DU FORMAT

'----------------------

'email formaté comme HTML (aussi par défaut)

.BodyFormat = olFormatHTML

.HTMLBody = "<html><p>" & ContenuEmail & "</p></html>"

'OU

'email formaté comme simple texte sans formats

'.BodyFormat = olText

'.Body = ContenuEmail

'OU

'email formaté comme texte riche (= avec formats)

'.BodyFormat = olFormatRichText

'.Body = ContenuEmail

'----------------------

If PieceJointe <> "" Then .Attachments.Add PieceJointe

Dim CompteOutlook As Account

For Each CompteOutlook In oOutlook.Session.Accounts

If CompteOutlook.SmtpAddress = "MonNom@mon-email.fr" Then ' <-- modifiez l'adresse

.SendUsingAccount = CompteOutlook

Exit For

End If

Next CompteOutlook

.Display '<- affiche l'email (si vous ne voulez pas l'afficher, mettez cette ligne en commentaire)

.Save '<- sauvegarde l'email avant l'envoi (pour ne pas le sauvegarder, mettez cette ligne en commentaire)

.Send '<- envoie l'email (si vous voulez seulement préparer l'email et l'envoyer manuellement, mettez cette ligne en commentaire)

End With

'nettoyage...

If (Not (oMailItem Is Nothing)) Then Set oMailItem = Nothing

If (Not (oOutlook Is Nothing)) Then Set oOutlook = Nothing

Exit Sub

EnvoyerEmailErreur:

If (Not (oMailItem Is Nothing)) Then Set oMailItem = Nothing

If (Not (oOutlook Is Nothing)) Then Set oOutlook = Nothing

MsgBox "Le mail n'a pas pu être envoyé...", vbCritical, "Erreur"

End Sub

Bien sûr, il est également possible d’ajouter l’adresse de l’expéditeur comme un argument supplémentaire de la fonction principale. Ce serait probablement la solution la plus élégante… La voilà donc:

Sub EnvoyerEmail(ByVal Sujet As String, ByVal Destinataire As String, ByVal ContenuEmail As String, Optional ByVal PieceJointe As String, Optional ByVal AdresseExpediteur As String)
'par Excel-Malin.com ( https://excel-malin.com )

On Error GoTo EnvoyerEmailErreur

'définition des variables
Dim oOutlook As Outlook.Application
Dim oMailItem As Outlook.MailItem

    'vérification si le Contenu du mail n'est pas vide. Si oui, email n'est pas envoyé. Si vous voulez pouvoir envoyer les email vides, mettez en commentaire les 4 lignes de code qui suivent.
    If Len(ContenuEmail) = 0 Then
        MsgBox "Mail non envoyé car vide", vbOKOnly, "Message"
        Exit Sub
    End If
    
    'préparer Outlook
    PreparerOutlook oOutlook
    Set oMailItem = oOutlook.CreateItem(0)
    
    'création de l'email
    With oMailItem
        .To = Destinataire
        .Subject = Sujet
        
        'CHOIX DU FORMAT
        '----------------------
        'email formaté comme HTML (aussi par défaut)
            .BodyFormat = olFormatHTML
            .HTMLBody = "<html><p>" & ContenuEmail & "</p></html>"
            
        'OU
            
        'email formaté comme simple texte sans formats
            '.BodyFormat = olText
            '.Body = ContenuEmail
            
        'OU
                
        'email formaté comme texte riche (= avec formats)
            '.BodyFormat = olFormatRichText
            '.Body = ContenuEmail
        '----------------------
        
        If PieceJointe <> "" Then .Attachments.Add PieceJointe
        
            'sélection de l'addresse de l'expéditeur
            If AdresseExpediteur <> "" Then
                Dim CompteOutlook As Account
                
                For Each CompteOutlook In oOutlook.Session.Accounts
                    If CompteOutlook.SmtpAddress = AdresseExpediteur Then
                        .SendUsingAccount = CompteOutlook
                        Exit For
                    End If
                Next CompteOutlook
            Else
            End If
        
       .Display   '<- affiche l'email (si vous ne voulez pas l'afficher, mettez cette ligne en commentaire)
       .Save      '<- sauvegarde l'email avant l'envoi (pour ne pas le sauvegarder, mettez cette ligne en commentaire)
       .Send      '<- envoie l'email (si vous voulez seulement préparer l'email et l'envoyer manuellement, mettez cette ligne en commentaire)
    End With
    
   'nettoyage...
    If (Not (oMailItem Is Nothing)) Then Set oMailItem = Nothing
    If (Not (oOutlook Is Nothing)) Then Set oOutlook = Nothing
    
   Exit Sub

EnvoyerEmailErreur:
    If (Not (oMailItem Is Nothing)) Then Set oMailItem = Nothing
    If (Not (oOutlook Is Nothing)) Then Set oOutlook = Nothing
  
    MsgBox "Le mail n'a pas pu être envoyé...", vbCritical, "Erreur"
End Sub

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

68

69

70

71

72

73

74

75

Sub EnvoyerEmail(ByVal Sujet As String, ByVal Destinataire As String, ByVal ContenuEmail As String, Optional ByVal PieceJointe As String, Optional ByVal AdresseExpediteur As String)

'par Excel-Malin.com ( https://excel-malin.com )

On Error GoTo EnvoyerEmailErreur

'définition des variables

Dim oOutlook As Outlook.Application

Dim oMailItem As Outlook.MailItem

'vérification si le Contenu du mail n'est pas vide. Si oui, email n'est pas envoyé. Si vous voulez pouvoir envoyer les email vides, mettez en commentaire les 4 lignes de code qui suivent.

If Len(ContenuEmail) = 0 Then

MsgBox "Mail non envoyé car vide", vbOKOnly, "Message"

Exit Sub

End If

'préparer Outlook

PreparerOutlook oOutlook

Set oMailItem = oOutlook.CreateItem(0)

'création de l'email

With oMailItem

.To = Destinataire

.Subject = Sujet

'CHOIX DU FORMAT

'----------------------

'email formaté comme HTML (aussi par défaut)

.BodyFormat = olFormatHTML

.HTMLBody = "<html><p>" & ContenuEmail & "</p></html>"

'OU

'email formaté comme simple texte sans formats

'.BodyFormat = olText

'.Body = ContenuEmail

'OU

'email formaté comme texte riche (= avec formats)

'.BodyFormat = olFormatRichText

'.Body = ContenuEmail

'----------------------

If PieceJointe <> "" Then .Attachments.Add PieceJointe

'sélection de l'addresse de l'expéditeur

If AdresseExpediteur <> "" Then

Dim CompteOutlook As Account

For Each CompteOutlook In oOutlook.Session.Accounts

If CompteOutlook.SmtpAddress = AdresseExpediteur Then

.SendUsingAccount = CompteOutlook

Exit For

End If

Next CompteOutlook

Else

End If

.Display '<- affiche l'email (si vous ne voulez pas l'afficher, mettez cette ligne en commentaire)

.Save '<- sauvegarde l'email avant l'envoi (pour ne pas le sauvegarder, mettez cette ligne en commentaire)

.Send '<- envoie l'email (si vous voulez seulement préparer l'email et l'envoyer manuellement, mettez cette ligne en commentaire)

End With

'nettoyage...

If (Not (oMailItem Is Nothing)) Then Set oMailItem = Nothing

If (Not (oOutlook Is Nothing)) Then Set oOutlook = Nothing

Exit Sub

EnvoyerEmailErreur:

If (Not (oMailItem Is Nothing)) Then Set oMailItem = Nothing

If (Not (oOutlook Is Nothing)) Then Set oOutlook = Nothing

MsgBox "Le mail n'a pas pu être envoyé...", vbCritical, "Erreur"

End Sub

Envoyer un email avec Excel: Conclusion

J'espère que ce tutoriel a été clair et vous a aidé et qu'il vous a permis d'automatiser l'envoi des emails avec Excel… N'hésitez pas à partager vos remarques dans les commentaires.

Et n'oubliez pas de consulter les autres articles et tutoriels sur Excel et sur VBA!

Pour aller plus loin en VBA

Pour terminer, voici quelques articles qui pourraient vous intéresser…

Auteur

Martin Hudec ( Excel-Malin.com )

Je suis analyste et développeur de systèmes, spécialisé dans l'automatisation des processus. Fort de nombreuses années d'expérience dans des institutions financières de renom, j'ai acquis une expertise approfondie en Excel et VBA. Créateur d'Excel-Malin.com, l'un des plus grands sites web francophones dédiés à Excel et VBA, je partage mes connaissances pour rendre ces outils accessibles à tous. En complément de mes compétences en Excel et VBA, je me suis tourné vers l'Intelligence Artificielle, notamment dans le domaine de l'automatisation et de l'application pratique dans les entreprises. Mon approche reste toujours pratique et orientée résultats, sans oublier ma passion pour simplifier les processus quotidiens avec des solutions efficaces.

Laissez un commentaire Annuler la réponse

235 commentaires sur “VBA: Envoyer un email avec Excel (via Outlook)”

235 commentaires

Guillaume VAILLANT
08/01/2018, 16:34
Bonjour et merci beaucoup pour cette réponse.
La 1ère solution ne convient pas car je veux copier/coller plusieurs groupes de cellules les unes en dessous des autres afin de constituer un mail récapitulatif et visuel (pas de PJ).
Pour la seconde effectivement on perd le formatage et ça devient quasi-illisible.
Pas possible de faire un mix des 2 ? Pas possible de copier les images dans le body du mail ?
Cdt
Guillaume
Répondre
- excel-malin.com Auteur de l’article
  09/01/2018, 09:56
  J'ai un peu cherché et j'ai une bonne nouvelle – c'est possible!
  Donc:
  1) vous créez l'image JPG de la plage via le code dans mon précédent commentaire
  2) vous ajoutez cette image comme pièce jointe à l'email (avec le code sur cette page)
  3) il faut maintenant placer cette image dans le body HTML du mail. Pour cela, il suffit d'ajouter ce code avant le .Send
  .HTMLBody = .HTMLBody & "<br><B>Mon image:</B><br><img src='cid:MonImage.jpg'><br>"
  1
  .HTMLBody = .HTMLBody & "<br><B>Mon image:</B><br><img src='cid:MonImage.jpg'><br>"
  Vous pouvez le modifier bien sûr. Et vous pouvez le formater et ajouter d'autres tags HTML.
  Exemple:
  .HTMLBody = .HTMLBody & "<img src='cid:MonImage.jpg' width='400' height='300'>"
  1
  .HTMLBody = .HTMLBody & "<img src='cid:MonImage.jpg' width='400' height='300'>"
  pour spécifier ses dimensions.
  Attention donc au paramètre SRC –> il a le format cid: (ça, c'est par défaut pour dire que l'image se trouve dans des pièces jointes) & NomDuFichier.jpg
  Avec ce code-ci, vous pouvez même facilement ajouter plusieurs images au différents endroits dans un seul email. Ce qui devrait résoudre votre problème.
  Bàv, Martin
- Guillaume VAILLANT
  09/01/2018, 14:24
  Bonjour et merci pour tout !
  N'ayant pas besoin des images en PJ, j'ai préféré utiliser la commande suivante pour incorporation de l'image dans le mail :
  MonChemin = "C:\…\Temp\MonImageExcel.jpg"
  HTMLtableau = ""
  Bon j'ai encore du boulot pour que le mail puisse partir en automatique avec les données que je souhaite mais la base est là.
  Cdt
  Guillaume
- Guillaume VAILLANT
  11/01/2018, 21:53
  Bonjour,
  J'ai vraiment bien avancé mais me reste 2 dernières petites questions 🙂
  J'essaye de changer la police en vain. Par défaut, j'ai une police Time New Roman en 12 que j'aimerai diminuer.
  J'ai tenté de modifier le code original comme ceci :
  MonStyle = "10pt"
  'email formaté comme HTML
  .BodyFormat = olFormatHTML
  .HTMLBody = "" & "" & Body & "" & ""
  Ou encore ici :
  MonContenu = "" & "Bonjour, blablabla" & ""
  Mais rien ne change, toujours Time New Roman en 12.
  L'autre question est relative à la création du mail. Est-ce possible de mettre des personnes en copie ? Actuellement on ne peut avec le code que mettre des personnes POUR.
  Merci par avance pour votre aide.
  Cdt
  Guillaume
- excel-malin.com Auteur de l’article
  11/01/2018, 23:55
  Bonsoir,
  pour la copie, c'est facile:
  tout comme .To pour le destinataire, vous pouvez utiliser .CC pour les copies et & .BCC pour les copies "invisibles":
  .To = "destinataire.principal@hotmail.com" .CC = "abc@def.fr" .BCC = "xyz@def.fr"
  Pour la taille de texte, j'essayerai de placer un HTML tag DIV tout au début du Body (avec fermeture tout à la fin). Dans ce tag, vous pouvez ajouter le style.
  Par exemple:
  .HTMLBody = "<div style="font-size: 60%;">" & Body & "</div>"
  1
  .HTMLBody = "<div style="font-size: 60%;">" & Body & "</div>"
  Bien à vous, Martin
- Guillaume VAILLANT
  12/01/2018, 00:56
  Top comme dab' ! Un grand merci Martin ! ;o)
- excel-malin.com Auteur de l’article
  12/01/2018, 11:27
  Avec plaisir…

Guillaume VAILLANT
11/01/2018, 21:56
Aie ça passe pas bien… Je ne sais mettre comme vous le code en visual.
En gros j'ai mis les balises FONT=MonStyle (avec MonStyle = "10pt") mais ça ne fonctionne pas.
Répondre
Cous
31/01/2018, 14:54
Bonjour,
Le tuto est très bien fait. Je ne sais pas comment je me débrouille, mais une fois le code copié dans un module, je ne sais pas comment l’exécuter. J'ai créer un bouton de formulaire et cliquer sur affecter une macro, mais celle ci n'apparait pas dans la liste.
Pourant je la vois bien dans VB. Mon fichier Excel est bien en .xlsm.
Merci de votre aide.
Répondre
- eric
  08/02/2018, 15:29
  Ecris le nom de la macro à la main…
  Répondre
  - Valooo
    08/09/2018, 21:49
    Bonjour,
    J'ai effectivement le même problème, étant sous windows10, (Outlook 16.0 Object).
    J'ai copié-collé l'entièreté de la Macro dans un module. Mais quand je veux lancer la Macro, une boite de dialogue souvre (comme si on voulait créer une nouvelle macro), et le nom de la macro n'est pas dans la liste.
    Etrange :s
    Avez-vous déjà rencontré ce problème ?
    En tous cas, merci !
    Répondre
    - excel-malin.com Auteur de l’article
      10/09/2018, 13:14
      Cous, Valooo,
      le "problème" est que cette procédure a besoin d'être lancée avec des paramètres.
      Vous ne pouvez pas la lancer "toute seule" à partir de la liste des macros.
      Le plus simple est de copier dans votre module (en plus de la procédure EnvoyerEmail) aussi le code qui la déclanche: TestEnvoiEmail, TestEnvoiEmail_Variables ou TestEnvoiEmail_FormatHTML. (qui se trouvent également sur cette page)
      Vous pouvez les rénommer comme vous voulez, aussi modifier leur contenus.
      Et ensuite, vous lancez une de ces procédures-là (et pas la EnvoyerEmail)...
      J'espère que cela résoud votre problème!
      Bien à vous, Martin
      Répondre
      - Valooo
        10/09/2018, 21:30
        SUPER ! Merci beaucoup pour ce tuto 🙂 super bien fait !!
Nherve
14/02/2018, 17:05
Bonjour,
Tout est très bien expliqué et va me faire gagner beaucoup de temps dans mon travail.
J'ai cependant un petit problème. J'ai deux adresses mail dans outlook.
Comment définir l'adresse qui servira a l'envoie?
Cordialement
Répondre
- excel-malin.com Auteur de l’article
  14/02/2018, 21:06
  Bonjour,
  voici un très bon article de Ron de Bruin qui explique exactement ce sujet:
  https://www.rondebruin.nl/win/s1/outlook/account.htm
  Bien à vous, Martin
  Répondre
  - Anonyme
    13/03/2018, 15:11
    Merci tout fonctionne
    Répondre
  - Raphaël
    30/09/2018, 16:48
    Bonjour,
    je suis allé voir, mais ayant de graos problèmes avec l'anglais …
    J'ai copié la ligne .SentOnBehalfOfName = """SenderName"" " dans votre code avant les autres options d'envoi : ' .Display , save ou send mais cela ne marche pas !
    si je ne mets pas les crochets, j'ai un message d'erreur, si je les mets, ça ne change pas l'expéditeur et le mail n'est pas reçu.
    merci beaucoup par avance pour votre aide !
    cordialement
    Raphaël
    Répondre
  - Raphaël
    30/09/2018, 17:20
    Désolé pour le dérangement !
    j'ai trouvé la réponse plus bas par Geoffray !
    merci encore pour ce tuto, il est vraiment super !
    Raphaël
    Répondre
    - excel-malin.com Auteur de l’article
      30/09/2018, 21:42
      Content que vous ayez réussi à résoudre le problème!
      Cordialement, Martin
      Répondre
geo
21/02/2018, 15:52
Bonjour,
Merci beaucoup pour cet article, la macro fonctionne parfaitement et j'ai pu créer une boucle d'envoi.
J'ai un petit soucis cependant : je n'arrive pas à afficher ma signature avant l'envoi du mail.
En cherchant j'ai trouvé le super site de ron de bruin qui parle de ce sujet, mais je ne comprends pas comment l'adapter au code que vous nous proposez.
Pouvez vous m'indiquer comment l'insérer ?
Merci de votre aide !
Répondre
- geo
  21/02/2018, 16:01
  Finalement j'ai fini pas trouver ! il fallait rajouter un ".display" supplémentaire juste après la commande "with oMailItem".
  Répondre
  - excel-malin.com Auteur de l’article
    21/02/2018, 16:11
    Super!
    Répondre
  - Guillaume VAILLANT
    21/02/2018, 17:14
    Bonjour Geo,
    Peux-tu m'en dire sur ta solution de rajouter un .Display stp ?
    J'ai une signature enregistrée par défaut mais elle ne se met pas.
    FAut-il préciser un nom et/ou un chemin pour aller la chercher ?
    Merci par avance
    Guillaume
    Répondre
    - geo
      22/02/2018, 09:59
      Bonjour Guillaume,
      Pour être plus concret tu trouveras ci-dessous l'extrait du code donné dans cet article que j'ai modifié pour afficher la signature.
      Il faut rajouter un ".display" au début de cette séquence et modifier la partie HTLM par ".HTMLBody = Body & "" & .HTMLBody"
      Le code :
      'création de l'email
      With oMailItem
      .Display
      .To = Destinataire
      .Subject = Sujet
      'CHOIX DU FORMAT
      '———————-
      'email formaté comme texte
      '.BodyFormat = olFormatRichText
      '.Body = Body
      'OU
      'email formaté comme HTML
      '.BodyFormat = olFormatHTML
      .HTMLBody = Body & "" & .HTMLBody
      '———————-
      If PieceJointe "" Then .Attachments.Add PieceJointe
      .Display '<- affiche l'email (si vous ne voulez pas l'afficher, mettez cette ligne en commentaire)
      Répondre

Soukayna
14/03/2018, 12:59
Bonjour Malin,
Félicitation pour la qualité du travail, c'est bien expliqué 🙂
ma question est la suivante : j'ai créé une macro qui génère un un fichier Word a partir d'un userform Outlook. Je souhaite envoyer un mail personnalisé avec pièce jointe mon fichier Word (si moyen de le changer en PDF) généré.
Merci par avance de votre retour 🙂
Répondre
- excel-malin.com Auteur de l’article
  19/03/2018, 20:22
  Bonjour Soukayna,
  1) pour ce qui concerne le fichier PDF – normalement, dans Office, il est possible de sauvegarder un fichier en tant que PDF. Cela doit se trouver au niveau de ".SaveAs". Vous pouvez regarder par exemple ici:
  http://www.faqword.com/index.php/word/environnement/892-creer-une-macro-pour-enregistrer-au-format-pdf
  2) pour joindre le fichier, vous pouvez utiliser le code qui se trouve plus haut. Il vous suffit de connaître le chemin complet (dossier + nom) du fichier à envoyer et l'ajouter comme pièce jointe grâce au code .Attachments.Add où vous pouvez utiliser le chmin du fichier comme variable:
  PieceJointe = "C:\MonDossier\MonFichier.pdf" oMailItem.Attachments.Add PieceJointe
  ou bien comme un texte directement encodé
  oMailItem.Attachments.Add "C:\MonDossier\MonFichier.pdf"
  cela dépend de vos besoins…
  J'espère que cela répond à votre question…
  Bien à vous,
  Martin
  Répondre
Geoffray
04/04/2018, 18:35
Bonjour,
Merci pour ce Tuto vraiment Top. Tout marche tip-top enfin presque.
Le gros souci c'est que l'adresse du destinataire n'arrive pas au bon format dans outlook et du coup, il ne reconnait pas l'adresse et me plante l'envoi. enfin rien n'arrive.
Une idée?
Merci d'avance.
——————————–
Ah pardon, le problème ne vient pas de l'adresse du destinataire mais de l'expéditeur
j'ai deux compte sur mon poste (un local et une adresse .fr) malgré que l'adresse.fr soit par défaut c'est le local qui arrive.
J'ai spécifié avec un .SentOnBehalfOfName mais ça n'a pas l'air d'être top top…
——————————–
Bon pardon du dérangement, j'ai trouver!
Si besoin : il faut modifier dans outlook et paramétre du compte "les fichiers de données "par défaut et mettre le bon compte!
Merci pour le reste au top!!
Répondre
- excel-malin.com Auteur de l’article
  05/04/2018, 06:31
  Bonjour Geoffray,
  merci pour le compliment!
  Je suis content que vous ayez trouvé la solution! 😉
  Bien à vous, Martin
  Répondre
P_Fabre
17/04/2018, 14:45
Bonjour merci pour ce super tuto 😉
J'ai tout qui fonctionne sauf une chose x)
Les mails restent dans la boite d'envoie au lieux d’être envoyé :/
Comment je résous ce soucis ?
Répondre
- AntoinErnould
  23/04/2018, 14:22
  Soit tu as enlevé la ligne qui envoie, soit y a une adresse mail qui foire je pense !
  Répondre
AntoinErnould
23/04/2018, 14:15
Bonjour, je souhaite créer un mail contenant dans le body à la fois du texte, des tableaux (que le code copierai d'un fichier excel au mail) ainsi que des nombres entiers (qui seront extraits eux aussi du fichier excel), cependant le "MonContenu" est en format String.
Auriez vous des conseils pour que le body génère à la fois du texte, des tableaux entre certains passages de texte ? Je vous remercie d'avance !
Répondre
- AntoinErnould
  23/04/2018, 14:19
  Je viens de trouver plus haut pour le tableau, j'avais loupé le commentaire, par contre je suis toujours preneur pour la valeur numérique
  Répondre
  - excel-malin.com Auteur de l’article
    23/04/2018, 14:39
    Bonjour,
    la variable MonContenu est un String pour la simple raison que le body est simplement une chaîne de caractères. Même le code HTML, est une chaîne de caractères, indépendement de son contenu.
    Outlook ne fait pas la difference entre caractères ou nombres. Donc finalement, le contenu n'a pas d'importance vu que'à la fin, pour outlook, tout est un texte (même un tableau en thml n'est qu'en faite une ligne du texte).
    Si le problème que vous rencontrez est le fait la variable ContenuEmail dans la function principale est un string et cela "bloque" si vous voulez faire passer un chiffre, il suffit de transformer ce nombre en texte avant de le faire passer à la function.
    Pour cela, il suffit d'utiliser la function CStr():
    MonNombre = 21 MonContenu = CStr(MonNombre) Call EnvoyerEmail("Test email 1", "contact@test.fr", MonContenu)
    j'espère que cela répond à votre question…
    Cordialement, Martin
    Répondre
Matthieu PEYRON
15/05/2018, 16:25
Bonjour,
Votre macro marche très bien avec Windows 7 et Microsoft Outlook 15.0 ObjectLibrary.
Le problème que je rencontre est avec Windows 10 et Microsoft Outlook 16.0 ObjectLibrary.
En effet , VBA plante à la déclaration des variables (Outlook.application ne semble pas lui plaire).
Avez vous déjà fait face à ce problème? Si oui , avez vous une solution?
Merci d'avance.
Répondre
- excel-malin.com Auteur de l’article
  15/05/2018, 23:28
  Bonjour Matthieu,
  pour moi, cela fonctionne sans problèmes sous Win10 avec Office 2016 (et donc library 16.0)…
  Et si vous remplaciez Outlook.Application par Object dans les déclarations?
  Cordialement, MArtin
  Répondre
  - Lydie
    16/05/2018, 09:33
    Bonjour,
    J'ai le même souci : Outlook.Application et Outlook.MailItem ne fonctionnent pas.
    J'ai Windows 8.1 pro et installé Microsoft Outlook 15.0 ObjectLibrary.
    J'ai tenté de remplacer par Object mais le mail ne s'envoie pas.
    Avez-vous une autre solution à me proposer ?
    Merci
    Lydie
    Répondre
    - Lydie
      16/05/2018, 09:40
      désolée mauvaise manip de ma part, ça fonctionne très bien ! Merci
      Je vais me pencher sur le code pour adapter à plusieurs destinataires en cci et et à un texte variable.
      Répondre
      - excel-malin.com Auteur de l’article
        16/05/2018, 09:56
        Pas de soucis 😉 Je suis content que cela marche pour vous.
        Pour ce qui est des "cc" et "cci", regardez +/- au milieu des commentaires. J'avais répondu à quelqu'un avec du code nécessaire.
        Quand j'aurai plus de temps, je l'ajouterai dans le texte principal.
        Bien à vous, Martin
  - Florian
    07/11/2018, 22:40
    Bonjour,
    Bravo pour le travail effectué
    J'ai le même problème de références (message d'erreur "Erreur de chargement de la DDL"
    Outlook.Application et Outlook.MailItem ne fonctionnent pas, le remplacement par "Object" vaut également pour pour Outlook.MailItem?
    Car la macro ne fonctionne toujours pas même en remplaçant ces 2 éléments par "Object" et aboutit sur le message d'erreur : "Le message n'a pas pu être envoyé "
    Si vous avez une piste….
    Par ailleurs et par curiosité, quel est la partie du code qui fait appel à la boite mail Outllok de l'émetteur du mail?
    Merci d'avance
    Répondre
    - excel-malin.com Auteur de l’article
      16/11/2018, 15:42
      Bonjour Florian,
      désolé pour la réponse tardive.
      Vu le message d'erreur, il se peut que tout simplement, le fichier contenant la référence est corrompu.
      Si vous voulez, vous pouvez le réimporter le fichier pour Office 2013:
      Fichier: MSOUTL.olb
      à copier dans le dossier: C:\Program Files (x86)\Microsoft Office\Office15
      Si vous utilisez Office 2016, je peux aussi vous le fournir.
      Essayez déjà ça (+ n'oubliez pas le cocher dans "Outils" –> "Références") pour voir si cela résout votre problème.
      Pour le votre question sur la partie du code qui fait appel à la boîte mail:
      en fait, le code utilise Outlook "en arrière". Donc il utilise l'Outlook comme il est configuré sur votre PC.
      Si Outlook est déjà ouvert, il utilise cette instance-là, si Outlook n'est pas ouvert, c'est la procédure PreparerOutlook qui ouvre Outlook pour que le code puisse fonctionner. Dans cette procédure, vous pouvez choisir si oui ou non, cette nouvelle instance d'Outlook doit être visible ou pas: oOutlook.Visible = True 'ou False
      J'espère que cela vous aide.
      Si vous avez besoin de la DLL pour Excel 2016, faites moi signe.
      Cordialement, Martin
      Répondre
      - Débutante VBA
        28/12/2018, 11:42
        Bonjour,
        Merci beaucoup pour vos explications.
        En fait je rencontre exactement le même problème que décrit.
        Pourriez-vous me le fournir pour Office 2016 et me précisez exactement la procédure parce que j'avoue que je ne comprends pas réelement le problème..
        Merci beaucoup pour votre retour..
      - excel-malin.com Auteur de l’article
        29/12/2018, 23:59
        Bonjour,
        voici le fichier pour Office 2016: MSOUTL.olb pour Office 2016
        Téléchargez-le, et ensuite, dans Excel: vous ouvrez le VBA editor (Alt+F11). Vous alle dans le menu "outils", ensuite "Références", ensuite "Parcourir" -> vous sélectionnez le fichier enregistré et cela devrait être tout… Maintenant, vous devriez voir "Microsoft Outlook 16.0 Object Library" dans la liste des références. Il vous suffit de le cocher et le code VBA devrait fonctionner…
        Cordialement, Martin
Anne
16/05/2018, 16:05
Bonjour
Belles Macros
La fonction .Attachments.Add PieceJointe envoi la piece jointe comme un lien si le fichier est sur un espace de type OneDrive ou de partage type Yammer
Quelle fonction utilisé pour joindre le fichier "en tant que copie" ?
Cdt
Répondre
- alexandre senez
  07/06/2019, 14:17
  Bonjour,
  J'ai le meme soucis avez vous trouvé une solution ?
  Cdt
  Répondre
  - excel-malin.com Auteur de l’article
    07/06/2019, 20:34
    Bonjour,
    vous pouvez me donner un exemple de à quoi ressemble le chemin du fichier?
    Un moyen qui me vient à l'esprit serait de d'abord télécharger le fichier du OneDrive vers un dossier local (sur votre ordinateur) et l'ajouter à l'émail à partir de ce dossier local. Ensuite, il est facile de le supprimer du dossier local…
    Cordialement, Martin
    Répondre
khou
28/05/2018, 10:57
Bonjour et merci pour ce tuto qui marche très bien.
Je me demande comment je peux ajouter la fonctionnalité d'impression de fichier et de sa conversion en fichier pdf en même temps que son envoi (dans la même macro). Ainsi, je me demande comment envoyer le fichier courant et non pas celui du'on a mis en dur.
Avez-vous une solution pour ça aussi ?
Merci et bonne journée.
Répondre
- excel-malin.com Auteur de l’article
  02/07/2018, 14:08
  Bonjour khou,
  je vous conseillerai ne pas vouloir tout inclure dans une seule macro (! cela ne veut pas dire "dans le même fichier") pour des raisons suivantes:
  1) pas trop complexifier votre code
  2) si une erreur arrive dans une partie du code (par. exemple la partie impression ne trouve pas d'imprimante), tout le code sera bloqué.
  3) si vous séparez le code en différentes fonctionnalités, le code devient beaucoup plus "réutilisable".
  Donc dans votre cas, je mettrai dans une Fonction ou procédure le code pour l'envoi par email, dans une autre pour l'impression et dans une autre la conversion en pdf.
  Après, il vous suffit de créer une procédure qui appelle successivement ces trois fonctions avec, par exemple, le chemin complet du fichier comme argument…
  Exemple à quoi pourrait ressembler la procédure finale:
  Sub ProcedurePrincipale() Dim MonFichier As String MonFichier = "C:\Temp\MonFichier.xlsx" Call ImprimerFichier(MonFichier) Call ConvertirEnPDF(MonFichier) Call EnvoyerEmail(MonFichier) MsgBox "Procédure terminée..." End Sub
  Pour le fichier courant en pièce jointe –>
  Il vous suffit de remplacer:
  MaPieceJointe = "C:\Test\MonFichierExcel.xlsx" dans l'exemple par
  MaPieceJointe = Thisworkbook.FullName
  Voilà, j'espère que cela vous aide. Bàv, Martin
  Répondre

excel-malin.com Auteur de l’article
06/07/2018, 14:13
Bonjour Jennifer. Je vais essayer de regarder ça ce soir…
Martin
Répondre

Christophe
17/06/2018, 18:03
Bonjour,
Je souhaiterais automatiser des mails que je dois faire quotidiennement, en effet, de par mon travail nous envoyons en moyenne 30 à 40 mails par jours que nous devons remplir à la main, je m'explique.
Le mail est préparé en modèle Outlook et il ne nous reste plus qu'a aller chercher certaines informations pour personnaliser ce mail, nous devons rajouter les emails destinataires, les email du responsable projet, la date de notre intervention et enfin l'adresse du projet.
J'aimerais automatiser les démarches de renseignements de ces informations sachant qu'elles peuvent être toutes regroupées dans un fichier excel. Ce fichier est composé de X lignes avec les informations utiles de chaque projet, 1 projet par ligne.
L'idéal serait d'avoir un bouton qui génère le mail avec les informations déjà remplies en fonction de la cellule sur laquelle nous nous trouvons au moment d'appuyer sur ce bouton.
Dernière chose, il faut que le mail ne parte pas automatiquement car nous avons des pièces jointes à ajouter (qui changent quotidiennement) et certaines fois nous devons changé quelque peu le corps du texte.
J'espère avoir su me faire comprendre et si quelqu'un serait m'aider je lui en serais réellement très reconnaissant, les taches redondante de ce style font perdre du temps et sont, pardonné moi du terme, très "barbante"
Je mets en site web, une image pour montrer ce que j'aimerais faire.
Vous remerciant par avance, déjà pour avoir pris le temps de me lire, et encore plus si vous avez une solution pour moi.
Amicalement
Christophe
Répondre
Variable
02/07/2018, 11:46
Bonjour,
Merci pour votre tutoriel.
Je souhaite utiliser des variables comme dans votre exemple sauf que mes valeurs MonSujet Mon destinataire MonContenu MaPieceJointe sont présente dans un tableau excel de mon fichier.
Est-ce possible d'aller chercher ces informations ?
Merci d'avance pour votre retour.
Répondre
- excel-malin.com Auteur de l’article
  02/07/2018, 13:51
  Bonjour,
  oui, c'est tout à fait possible.
  Vous devez remplacer les variables avec le contenu "fixe" comme:
  MonSujet = "Test d'email d'Excel avec variables" MonDestinataire = "jean.dupont@dupont.fr" MonContenu = "Bonjour Jean, voici un petit message de test... Avec un fichier en plus." MaPieceJointe = "C:\Test\MonFichierExcel.xlsx"
  pas les valeurs dans votre fichier (à modifier selon votre fichier):
  MonSujet = ThisWorkbook.Sheets("MaFeuille1").Range("C3").Value MonDestinataire = ThisWorkbook.Sheets("MaFeuille1").Range("D3").Value MonContenu = ThisWorkbook.Sheets("MaFeuille1").Range("E3").Value MaPieceJointe = ThisWorkbook.Sheets("MaFeuille2").Range("A1").Value
  Voilà, j'espère que cela répond à votre question…
  Bien à vous, Martin
  Répondre
Lor
03/07/2018, 09:47
Bonjour,
Merci pour votre tutoriel qui est vraiment très clair.
J'ai un tableau Excel avec différentes informations dont une colonne date et une colonne avec les adresses email.
Je voudrais envoyer des mails respectant une condition : si la date est inférieure ou égale à la date du jour ou si la date est inférieure à la date du jour + 2 jours ouvrés.
Je n'arrive pas à faire une boucle conditionnelle. Comment scanner toutes les lignes et envoyer des mails au ligne respectant la conditions ?
Pouvez-vous m'aider ?
Cordialement,
Lor
Répondre
- Lor
  03/07/2018, 13:25
  (re) Bonjour,
  En travaillant sur mon classeur, j'ai choisi de procéder comme suit :
  Sur toutes les lignes respectant la condition, j'inscris dans une colonne supplémentaire et vide la date du jour.
  Ce qui me permettra de savoir quand j'ai relancé le client.
  Ensuite, j'envoie le mail à tous les clients avec la date du jour que je viens d'inscrire.
  Je n'arrive pas à inscrire la date …
  Répondre
- Lor
  17/07/2018, 12:03
  Réglé
  Répondre
  - Jojo
    04/09/2018, 14:00
    Bonjour,
    Excel malin, ou Lor, pourriez-vous m'indiquer le code permettant de créer une boucle conditionnelle ?
    Merci
    Répondre
    - excel-malin.com Auteur de l’article
      04/09/2018, 14:32
      Bonjour Jojo,
      les boucles conditionelles sont un vaste sujet. Je vais bientôt achever un tutoriel à ce sujet.
      L'important est de savoir:
      – dans quoi vous voulez faire la boucle (cellules, lignes, dates,…)
      – que doit se passer quand la condition est remplie (code effectue une action et ensuite? La boucle continue? Ou elle s'arrête?)
      – etc.
      Un exemple simple:
      For i=1 To 50 If Cells(i,1).Value > 50 Then Cells(i,2).Value = 10 Else Cells(i,2).Value = Cells(i,1).Value * 2 End If Next i
      Cette boucle fait 50 itérations (i=1 To 50). Ici, elle teste les cellules A1 à A50. Si le contenu est >50, la cellule "B" correspondante (par ex pour A26, ce sera B26) aura la valeur "10", sinon, elle aura la valeur égale à la valeur de la cellule A correspondante fois 2…
      En attendant mon tutoriel, voici déjà de la matière pour commencer:
      https://www.excel-pratique.com/fr/vba/boucles.php
      Bien à vous, Martin
      Répondre
      - Jojo
        05/09/2018, 12:46
        Merci beaucoup, c'est top.
Ethan
17/07/2018, 10:12
Bonjour,
J'aurais besoin d'aide svp pour mettre plusieurs personnes en copie (Cc). Cela marche si je tape .Cc= "123@abc.fr;456@abc.fr".
Mais dans mon cas, je vais chercher une liste de mail dynamique que je rentre dans un tableau. Mais cela ne fonctionne pas.
Dans EnvoyerEmail, j'ai fais ces modifications (ajout de DestinataireEnCopie et .Cc) :
Sub EnvoyerEmail(ByVal Sujet As String, ByVal Destinataire As String, ByVal DestinataireEnCopie As String, ByVal ContenuEmail As String, Optional ByVal PieceJointe As String)
…
.Cc = DestinataireEnCopie
Dans le code d'envoie du mail j'ai :
Dim tabl_distrib() As String
a = 0
ReDim Preserve tabl_distrib(a)
For j = 1 To lastrow_listdistrib
If ThisWorkbook.Sheets("tmp_listdistrib").Cells(j, 1) = version0 Then
For K = 2 To ThisWorkbook.Sheets("tmp_listdistrib").Cells(j, Columns.Count).End(xlToLeft).Column
If ThisWorkbook.Sheets("tmp_listdistrib").Cells(j, K) email_demandeur Then
tabl_distrib(UBound(tabl_distrib)) = ThisWorkbook.Sheets("tmp_listdistrib").Cells(j, K)
ReDim Preserve tabl_distrib(UBound(tabl_distrib) + 1)
End If
Next K
Exit For
End If
Next j
If UBound(tabl_distrib) 0 Then
ReDim Preserve tabl_distrib(UBound(tabl_distrib) – 1)
End If
….
DestinataireEnCopie = tabl_distrib
…
Call EnvoyerEmail(Sujet, Destinataire, DestinataireEnCopie, Contenu)
J'ai l'erreur incompatibilité de type lorsque j'arrive sur Call. J'ai l'impression la liste des mails en tableau ne passe pas.
Merci d'avance pour votre aide
Répondre
- zizou
  17/03/2022, 11:59
  J'ai le même soucis avez vous la solution svp ?
  Répondre
  - excel-malin.com Auteur de l’article
    17/03/2022, 20:57
    Bonjour zizou,
    votre souci vient du fait que dans la définition de la procédure EnvoyerEmail:
    Sub EnvoyerEmail(ByVal Sujet As String, ByVal Destinataire As String, ByVal ContenuEmail As String, Optional ByVal PieceJointe As String)
    1
    Sub EnvoyerEmail(ByVal Sujet As String, ByVal Destinataire As String, ByVal ContenuEmail As String, Optional ByVal PieceJointe As String)
    Le "Destinataire" doit être un contenu de type String. Si vous utilisez un tableau (Array), le code ne va pas fonctionner. De là l'erreur sur l'incompatibilité du type.
    La solution est simple: avant d'appeler la procédure EnvoyerEmail, transformez votre Array en une chaîne avec les différentes adresses séparées par ";" (avec un Loop, c'est facile) et ensuite, dans l'appel de EnvoyerEmail, utilisez ce String. Et là, le code va fonctionner.
    J'espère que cela répond à votre question.
    Bien à vous, Martin
    Répondre
Lylian Mabicka
13/08/2018, 14:40
Bonjour,
J'aimerai envoyer automatiquement un mail avc un fichier join chaque jour à une periode de la journée bien défini. Ex: envoie d'un fichier X tous les 5 jours de la semaine à 8h00, automatiquement. Pouvez vous m'aider svp?
Répondre
JB
21/08/2018, 14:44
Bonjour,
Merci pour ces explications c'est génial.
J'aimerais transférer un mail qui est dans mes brouillons mais je n'y arrive pas. Je ne trouve nulle part comment chercher un mail dans un dossier (ici brouillons) et le transférer.
Si vous pouvez m'aider, ce serait génial ! Merci d'avance !
Répondre
Valery CORNU
28/09/2018, 12:31
Bonjour
Je ne suis pas sur d'avoir compris le point sur les Destinataire en Copie et Copie Cachée
J'ai dans la Sub EnvoyerEmail
Public Sub EnvoyerEmail(ByVal Sujet As String, ByVal Destinataire As String, ByVal Destinataire_en_copie As String, ByVal Destinataire_en_copie_cachée As String, ByVal ContenuEmail As String, Optional ByVal PieceJointe As String)
On Error GoTo EnvoyerEmailErreur
'définition des variables
Dim oOutlook As Outlook.Application
Dim WasOutlookOpen As Boolean
Dim oMailItem As Outlook.MailItem
Dim Body As Variant
Body = ContenuEmail
'vérification si le Contenu du mail n'est pas vide. Si oui, email n'est pas envoyé. Si vous voulez pouvoir envoyer les email vides, mettez en commentaire les 4 lignes de code qui suivent.
If (Body = False) Then
MsgBox "Mail non envoyé car vide", vbOKOnly, "Message"
Exit Sub
End If
'préparer Outlook
PreparerOutlook oOutlook
Set oMailItem = oOutlook.CreateItem(0)
'création de l'email
With oMailItem
.To = Destinataire
.CC = Destinataire_en_copie
.BCC = Destinataire_en_copie_cachée
.Subject = Sujet
….
Les champs .CC et .BCC sont en rouge et une pop up erreur de compilation apparait
Sachant que pour j'ai modifier la macro applicative comme suit
Sub AppliEnvoiEmail()
'envoi de l'email sans pièce jointe – contact@test.fr est une addresse mail active
Call EnvoyerEmail("Test email 2", "contact@test.fr", "contactcopie@test.fr", "contactcopiecaché@test.fr", "Ceci est un test")
'test envoi de l'email avec pièce jointe – contact@test.fr est une addresse mail active & C:\MonDossier\MonFichier.pdf le chemin du fichier à envoyer
Call EnvoyerEmail("Test email 2", "contact@test.fr", "contactcopie@test.fr", "contactcopiecaché@test.fr", "Ceci est un test avec pièce jointe…", "C:\MonDossier\MonFichier.pdf")
MsgBox ("Test Terminé")
End Sub
Pouvez vous m'aider à regler le problème d'erreur de compilation svp ?
En vous remerciant par avance
Bien Cordialement
Valery
Répondre
- excel-malin.com Auteur de l’article
  02/10/2018, 12:46
  Bonjour Valery,
  je viens de tester votre code et… tout marche parfaitement…
  Je n'ai pas de lignes en rouge, ni pop-up à la compilation.
  Si je lance le code, il crée le mail comme attendu (voir la capture d'écran)
  Donc deux questions:
  1) le code de base (sans vos modifications) fonctionne bien?
  2) la Référence vers "Microsoft Outlook XX.X Object Library" est bien cochée?
  Sinon, essayez de m'envoyer votre fichier par email (contact@excel-malin.com) et je vais regarder directement dans le fichier.
  Bien à vous, Martin
  Répondre
Stauffer
02/10/2018, 12:07
Bonjour,
Déjà merci pour votre explication, après avoir suivi vos indications, la macro ne marche pas..
Je désespère…
Pouvez-vous svp me faire une procédure de chaque étape ? car le copier/coller ne marche pas ..
(Je suis débutante si jamais)
Merci à tous.
Pearl Stauffer
Répondre
Alexis
17/10/2018, 11:00
Bonjour,
Merci pour le tuto. J'ai réussi à faire mon premier envoi d'email. Tout fonctionne à merveille sauf le lendemain lorsque j'ai souhaité rouvrir mon fichier excel (enregistré au format .xlsm), la macro s'exécute mais je tombe sans cesse sur la MessageBox "Le mail n'a pas pu être envoyé…".
J'ai réessayé avec un autre classeur excel, même problème.
Je ne vois pas d'où peut provenir mon erreur. Auriez-vous un conseil, une idée ?
Merci d'avance
Répondre
- Alexis
  17/10/2018, 11:29
  Finalement, j'ai trouvé…
  J'avais ajouté une pièce jointe qui avait été supprimé.
  Du coup, il rebouclait sur l'erreur !
  Répondre
  - excel-malin.com Auteur de l’article
    17/10/2018, 11:40
    Parfait!
    Sinon, un petit conseil: pour trouver plus facilement la raison d'une erreur, vous pouvez aller dans la fonction (dans le VBA editor) et l'exécuter ligne par ligne – avec la touche F5. Ainsi, vous voyez exactement quelle ligne du code vous envoie vers le message d'erreur.
    Dans votre cas, vous auriez vu que c'était la ligne :
    If PieceJointe <> "" Then .Attachments.Add PieceJointe
    et ainsi, vous auriez une indication que le problème vient de la pièce jointe.
    Bien à vous, Martin
    Répondre
Hugo
19/10/2018, 10:25
Bonjour,
Merci beaucoup pour votre macro, elle fonctionne parfaitement. Simplement j'aimerais maintenant pouvoir envoyer ce mail de manière automatique à une date précise.
Que faut-il ajouter dans le code pour prendre en compte cette date d'envoi?
Merci !
Hugo
Répondre
Morgan
31/10/2018, 15:09
Bonjour,
J'ai copié / collé votre code VBA pour l'envoi d'un mail ainsi que le code vba "testenvoiemail" dans le module de mon classeur excel mais quand je test la macro j'ai un message d'erreur qui s'affiche indiquant une "erreur de compilation Sub ou function non définie" et en contrôlant le code pas à pas avec F5, cela me souligne "PreparerOutlook".
Auriez-vous une idée du pourquoi ?
Merci pour votre aide.
Pour info je suis très débutant en macro !
Répondre
- Anonyme
  31/10/2018, 15:14
  Désolé je viens de m'aperçevoir qu'il manquait une partie du code !!! Cela fonctionne apparemment. Merci et désolé.
  Répondre
  - excel-malin.com Auteur de l’article
    31/10/2018, 16:27
    Pas de problème 😉 Je suis content que cela fonctionne pour vous.
    Répondre
    - Meud92
      05/11/2018, 09:41
      Re bonjour,
      C'est à nouveau moi.
      Le code fonctionne parfaitement et j'ai voulu essayer d'inclure ma signature dans le mail en testant la procédure indiquée par Geo le 22/02/2018 :
      Le code :
      'création de l'email
      With oMailItem
      .Display
      .To = Destinataire
      .Subject = Sujet
      'CHOIX DU FORMAT
      '———————-
      'email formaté comme texte
      '.BodyFormat = olFormatRichText
      '.Body = Body
      'OU
      'email formaté comme HTML
      '.BodyFormat = olFormatHTML
      .HTMLBody = Body & "" & .HTMLBody
      '———————-
      Et là j'ai un soucis, car non seulement ma signature n'apparait pas mais j'ai "Faux" qui apparait dans le corps du mail.
      Auriez-vous une idée du pourquoi du comment ?
      De plus si je ne peux inclure ma signature, est-il possible d'inclure des sauts de ligne dans le texte du message ? Par exemple, pour le moment mon texte apparait au km.
      Un grand merci pour votre aide.
      Répondre
Le rookie
15/11/2018, 11:55
Bonjour ,
J'ai parcouru tous les commentaires et bien que j'ai suivi les procedure a la lettre , je ne parviens toujours pas a éxécuté la macro vu qu'elle ne figure pas dans la liste je ne sais pas trop comment faire .
Merci d'avance pour votre aide
Répondre
- excel-malin.com Auteur de l’article
  16/11/2018, 14:39
  Bonjour Rookie,
  en fait, la procédure EnvoyerEmail n’apparaît pas dans la liste de vos macros et c'est normal. En fait, elle a besoin de paramètres (adresse email, sujet, body etc.) pour fonctionner. Et avec le Alt+F8, on ne peut pas "donner" des arguments à une procédure. On peut lancer seulement les procédures qui n'utilisent pas d'arguments.
  Solution: ils vous faut une procédure en plus – un "lanceur". Dans ce tutoriel, ce sont pas exemple les procédures TestEnvoiEmail et TestEnvoiEmail_Variables.
  Donc copiez dans votre projet les procédures EnvoyerEmail et TestEnvoiEmail. Vous verrez TestEnvoiEmail dans la liste des macros disponibles.
  Il vous suffira donc d'aller modifier les données qui y sont utilisés et les modifier selon vos besoins.
  J'espère que cela répond à votre question et que avec ces infos supplémentaires, vous pourrez lancer le code comme prévu.
  Cordialement, Martin
  Répondre
  - Le rookie
    22/11/2018, 09:48
    OUI MERCI TOUT EST OK !
    Répondre
    - excel-malin.com Auteur de l’article
      22/11/2018, 12:14
      C'était avec plaisir. M.
      Répondre

alexandre HAMMEN
22/11/2018, 11:05
Bonjour,
merci pour cette réponse cela fonctionne parfaitement.
Répondre
- excel-malin.com Auteur de l’article
  22/11/2018, 12:14
  Content de l'entendre!
  Martin
  Répondre

Julian
03/01/2019, 09:32
Bonjour et bonne année à vous,
Je ne prends pas souvent le temps de laisser un commentaire sur les travaux qui m'aident. C'est bien dommage parce que même un petite aide par un bout de code devrait être remercié.
Mais aujourd'hui je me suis penché sur votre site et surtout sur cette page et je trouve que c'est fait avec beaucoup de précision et de clarté.
Bonne journée, vous m'avez fait gagné pas mal de temps et vous m'avez appris des choses. Merci
Répondre
- excel-malin.com Auteur de l’article
  03/01/2019, 14:40
  Bonjour Julian, merci pour ce message. Cela fait vraiment plaisir à lire
  Bonne année à vous aussi, Martin
  Répondre
Dixzhem
14/01/2019, 17:42
Bonjour,
Je ne sais pas si cela a été abordé dans les commentaire mais je souhaiterais intégrer dans mon code la fonction permettant que, lorsque le destinataire du mail clique sur "Répondre", la réponse sera envoyée à une adresse que j'aurais préalablement définie, et non à l'adresse de l'expéditeur (qui sera éventuellement en cc seulement).
J'ai essayé .ReplyTo = "xxx@adresse.com" mais ça ne donne rien.
Merci d'avance !!
Répondre
- excel-malin.com Auteur de l’article
  14/01/2019, 23:52
  Bonjour,
  j'ai déjà rencontré ce problème. En fait, cette possibilité est désactivée dans VBA pour des raisons de sécurité (pour éviter du spam, du phishing etc.).
  Il existe une possibilité:
  si vous avez droit, dans votre société, d'envoyer les emails au nom de quelqu'un d'autre, vous pouvez utiliser cette instruction
  .SentOnBehalfOfName = "xxx@adresse.com"
  Mais vous devez y avoir droit au niveau de Exchange server. Sinon cela ne marchera pas.
  Donc c'est la seule possibilité.
  Cordialement, Martin
  Répondre
  - Dixzhem
    15/01/2019, 09:16
    Bonjour,
    Merci pour la réponse rapide.
    Je connaissais .SentOnBehalfOfName mais cela ne répond effectivement pas à mon besoin. Mon objectif est d'envoyer un fichier à remplir par un client, mais qu'il le renvoie à un autre service. Ma boite serait comme une boîte automatique "No Reply".
    En tout cas je sais maintenant que ce n'est pas possible de cette façon.
    Merci encore.
    Répondre
Gui
18/01/2019, 10:44
Merci pour ce code VBA, vous n'imaginez pas à quel point ça nous simplifie la vie !!
Répondre
- excel-malin.com Auteur de l’article
  18/01/2019, 11:39
  Bonjour Gui, merci pour ce retour.
  Cela fait plaisir de savoir que mon travail est utile…
  Cordialement, Martin
  Répondre
romain
10/02/2019, 16:01
bonjour ,
tout d'abord je voulais vous féliciter de ce tuto vraiment explicite qui convient même à un novice de la VBA comme moi.Néanmoins j ai un souci . je m explique. j 'ai un tableau avec coordonnée de mes clients et la date à laquel je doit passer faire une interventions chez eux. je dois cependant leur envoyer un mail 1 semaine avant mon interventions. le problème que je rencontre c'est que je ne sais pas comment définir l'envoi automatique en fonction de la date de la visite ( ex : ligne 4 visite le 10/02 donc envoi du mail le 03/02 , ligne 5 visite le 20/03 donc envoi du mail le 13/03 etc…)
En plus j'aurais aimer si c'est possible qu’après l envoie du mail la colonne mail envoyé soit directement incrémenté j'imagine qu'il faut utilisé un énoncé conditionnels ?
Répondre
Guillaume
17/03/2019, 00:56
Bonjour,
Tout d'abord merci pour votre travail !
J'ai une petite question, lorsque je run ma macro et essai d'envoyer le mail tout semble fonctionner (je vois la fenêtre d'envoi apparaître et disparaître rapidement) sauf que lorsque je vais dans la boite de destination je ne reçoit rien. Je ne les reçois que lorsque je lance outlook moi même manuellement. La boite se met alors à jour et tout est envoyé.
Y-a-t'il un moyen que faire cette mise à jour dans la macro afin que l'envoi soit instantané ?
Merci d'avance pour votre réponse,
Très bonne journée !
Répondre
- excel-malin.com Auteur de l’article
  18/03/2019, 09:50
  Bonjour Guillaume,
  ce n'est pas un problème de la macro mais de la configuration de l'Outlook.
  Essayez ceci:
  https://support.microsoft.com/fr-fr/help/2797572/email-stays-in-the-outbox-folder-until-you-manually-initiate-a-send-re
  J'espère que cela résoudra votre problème.
  Cordialement, Martin
  Répondre
Antoine
05/04/2019, 09:55
Bonjour,
très bon tuto ! Cependant, je rencontre des problèmes. J'espère que vous pouvez m'aider.
J'ai effectuer une macro afin d'exporter une plage en photo et une 2e macro qui récupère le nom des personnes et envoi le mail.
Le problème c'est que ça fonctionne une fois sur 2.
Des fois tout fonctionne correctement et d'autre fois ça me fait un message d'erreur lors de l'export image ou pendant l'envoi de mail.
Je suis bloqué, pouvez-vous m'aider ?
Merci
Répondre
ROUZÉ
16/04/2019, 08:24
Bonjour,
j'utilise win10 avec outlook 2007…
J'ai une erreur quand outlook est fermé
'préparer Outlook
PreparerOutlook oOutlook
Set oMailItem = oOutlook.CreateItem(0)
moMailItem est Nothing…
Merci
Répondre
christophe
21/04/2019, 09:29
Bonjour,
Merci pour cet excellent tuto.
Toutefois j'ai un petit défi.
J'envoie tous les jours des mails manuellement depuis des mails modèles outlook au format essai.oft.
Tous ces mails modèles contiennent l'objet, des adresses de destinataires pour certains, et le corps du mail complétés dont le corps du mail est long pour certains (explication à l'intérieur)
Lorsque j'ouvre le fichier, un mail s'ouvre avec les éléments du fichier.
Je dois dans chacun de ces mails complété l'adresse du destinataire, l'objet, et parfois certains éléments dans le corps du mail.
Alors est il possible d'utiliser ces mails modèles pour l'envoie ou dois je entièrement les refaire avec une sub vba pour remplir le corps du mail ?
Merci,
Répondre
- excel-malin.com Auteur de l’article
  23/04/2019, 14:29
  Bonjour Christophe,
  vous pouvez utiliser un modèle en modifiant légèrement mon code:
  Remplacez la ligne:
  Set oMailItem = oOutlook.CreateItem(0)
  par
  Set oMailItem = oOutlook.CreateItemFromTemplate("C:\Chemin\De\Mon\Modele\essai.oft")
  (changez le chemin vers votre modèle)
  Attention, l'affichage de l'email prêt avec .Display a pour conséquence que la signature est ajouté à la fin.
  Si vous avez déjà la signature dans le modèle, vous risquez de vous retrouver avec deux signatures à la fin de votre email. Dans ce cas, vous pouvez soit enlever la signature du modèle, soit éviter l'affichage de l'email avant son envoi.
  J'espère que cela répond à votre question et que le défi a été rempli 😉
  Martin
  PS: encore une remarque: il faudra jouer encore un peu avec le code pour éviter les messages d'erreur – par exemple si vous voulez modifier le destinataire, l'objet ou le texte du modèle, vous devez d'abord l'afficher (avec .Display)! Ensuite, vous pouvez modifier les valeurs. Si vous essayez d'abord de modifier, le code va crasher. Mais sinon j'ai testé cette fonctionnalité et cela fonctionne parfaitement.
  Répondre
Claude
17/05/2019, 18:58
Merci beaucoup. Sympa et compréhensible.
Répondre
LAURENT
05/06/2019, 14:00
Bonjour,
Je débute avec les macros…
J'ai bien compris qu'il fallait définir les 4 variables "Sujet", "Destinataire", "Contenu du mail", et "pièce jointe"… mais je ne sais pas ou les déclarer… dans la première ligne ? Sub EnvoyerEmail(ByVal Sujet As String, ByVal Destinataire As String, ByVal ContenuEmail As String, Optional ByVal PieceJointe As String)
ou créer des lignes dans le paragraphe 'définition des variables ?
Merci de votre aide.
Philippe.
Répondre
- Clément
  11/07/2019, 15:27
  Bonjour,
  Tout d'abord merci beaucoup pour le tuto, cependant je rencontre quelques difficultés avec la Pj, je souhaiterais mettre en pj du mail le fichier excel actif, j'ai tout essayé mais rien ne fait (je n'ai pas de source pour le fichier)
  Avez vous quelques conseils svp?
  Répondre
  - Guillaume
    20/08/2019, 14:29
    Bonjour Clément,
    Aucun pb de mon côté quand je fais appel à la fonction => Call EnvoyerEmail(MonSujet, MonDestinataire, MonDestinataireCopie, MonContenu, MaPieceJointe)
    Avec :
    Dim MaPieceJointe As String
    MaPieceJointe = "C:\User\…\Fichier.xlsm"
    Cdt
    Répondre
Sébastien
11/07/2019, 16:43
Bonjour,
Comment faire pour que la pièce jointe n'apparaisse pas dans le corps de l'e-mail?
Merci,
Sébastien
Répondre
FOURNET Jean Michel
27/07/2019, 19:16
Un grand merci pour cette macro, trés bien documentée.
Répondre
- excel-malin.com Auteur de l’article
  02/08/2019, 01:23
  Merci à vous pour ce retour…
  Cordialement, Martin
  Répondre
Guillaume
19/08/2019, 17:25
Bonjour,
J'utilise cette macro depuis plus d'1 an et tout fonctionnait correctement.
J'explique le fonctionnement brièvement, j'ai un fichier excel avec plusieurs onglet, la macro balaye toutes les lignes et lorsque la ligne est tagguée pour être exporter, je génère une image d'une plage et je la colle dans le mail avec un commentaire associé. Hyper pratique et visuel ;o)
Mon pb, alors que ça fonctionnait avant, j'ai un onglet sur lequel ça ne fonctionne plus… Onglet 1 OK, onglet 2 OK, Onglet 3 NOK, onglet 4 OK.
En faisant du pas à pas, je remarque que c'est la ligne ActiveSheet.ChartObjects("ExportImage").Chart.Export FichierImage
de la macro ci-dessous qui ne se passe pas bien puis me renvoie vers le msg d'erreur => "Une erreur est survenue…"
Une idée svp ? La macro fonctionne avant et après sur les autres onglets. Les onglets ont tous la même forme… J'y perds mon latin 🙁
Public Function ExporterPlageCommeImage2(PlageAExporter As Range, LignesDeGrille As Boolean, FichierImage As String)
'par: Excel-Malin.com ( https://excel-malin.com )
On Error GoTo FonctionErreur
'cacher ou afficher les lignes de grille
LignesDeGrilleOriginal = ActiveWindow.DisplayGridlines 'affichage d'origine
ActiveWindow.DisplayGridlines = LignesDeGrille 'applique l'affichage pour l'export
'Copier la PlageAExporter comme image dans le Presse-papier
PlageAExporter.CopyPicture Appearance:=xlScreen, Format:=xlPicture
'Créer un nouveau "graphique" temporaire qui servira de support – avec la taille exacte de la plage à exporter
With ActiveSheet.ChartObjects.Add(Left:=PlageAExporter.Left, Top:=PlageAExporter.Top, _
Width:=PlageAExporter.Width, Height:=PlageAExporter.Height)
.Name = "ExportImage"
.Activate
End With
'Copier l'image dans le graphique, sauvegarder le fichier et supprimer le graphique temporaire
ActiveChart.Paste
ActiveSheet.ChartObjects("ExportImage").Chart.Export FichierImage
ActiveSheet.ChartObjects("ExportImage").Delete
'remet l'affichage des grilles à l'état avant export
ActiveWindow.DisplayGridlines = LignesDeGrilleOriginal
Exit Function
FonctionErreur:
MsgBox "Une erreur est survenue…"
Merci par avance
Répondre

excel-malin.com Auteur de l’article
29/08/2019, 16:13
Bonjour Aurélie,
votre code ne fonctionne pas parce que dans la ligne 29 (.Attachments.Add = activeworksheet) il y a deux problèmes.
1) il ne faut pas =, cela doit être .Attachments.Add activeworksheet
2) ce que vous voulez ajouter comme pièce jointe doit être un fichier. Donc dans .Attachments.Add XXX le XXX doit être le chemin vers le fichier que vous voulez envoyer. Par Exemple:
.Attachments.Add ThisWorkbook.FullName
mais cela fonctionnera uniquement si le fichier est enregistré.
Attention aussi aux lignes:
45) cela doit être If PieceJointe <> "" Then .Attachments.Add PieceJointe
78) cela doit être If (Err.Number <> 0) Then
mais c'est peut-être correct dans votre code et les deux <> ont disparu lors du copier/coller de votre code sur le site.
Sinon, pour la pièce jointe, vous pouvez utiliser directement la variable PieceJointe qui fait partie des arguments du Sub EnvoyerEmail. Avant d'appeler le Sub EnvoyerEmail, vous mettez le chemin complet du fichier à envoyer dans la variable PieceJointe et le tour est joué…
Cordialement, Martin
Répondre

Anonyme
05/09/2019, 19:46
Bonsoir,
Merci pour la qualité de la macro et du tuto.
J'ai une question concernant l'insertion de liens dans les mails vers des fichiers sur réseau.
Dans le cas d'un email formaté comme texte.
Si l'on insert le lien ci-dessous dans la variable "ContenuEmail", une partie du lien sera créée dans le mail mais tronquée au niveau de l'espace situé entre "Projet" et "Exemple".
\\ReseauBidon\Commun\Projet Exemple\Dossier Bidon\Fichier.docx
On peut s'arranger en remplaçant les espaces par des %20, ce qui donne :
\\ReseauBidon\Commun\Projet%20Exemple\Dossier%20Bidon\Fichier.docx
Dans ce cas, le lien généré dans le mail marche mais au niveau visu c'est pas propre avec ces %20 qui traînent un peu partout suivant les liens.
Existe-t-il un moyen de le réaliser sans les %20 et en mode email formaté comme texte ?
Merci !
Sofiane
Répondre
- excel-malin.com Auteur de l’article
  06/09/2019, 14:23
  Bonjour Sofiane,
  merci pour votre retour.
  J'ai déjà rencontré le même problème… Et malheureusement, il n'y a pas de solution.
  En fait, la transformation du lien texte vers un lien "cliquable" dépend du client (MS Outlook, Thunderbird,…) ou de service (Gmail, Yahoo Mail,…) de l'utilisateur. Et tous utilisent la même méthode. Ils peuvent repérer un lien mais au premier espace, ils le considèrent comme terminé. Et en effet, ils ont peu de moyens de distinguer ce qui suit le lien – est-ce la suite du lien ou est-ce tout simplement la continuation de l'email?
  Le "%20" évite ce problème. Mais comme tu le mentionnes, cela crée un autre problème: la lisibilité du lien.
  La seule possibilité est soit passer en format HTML (là, la solution est très facile) ou bien utiliser les %20. Il me semble que les %20 sont le moindre mal – personnellement je préfère un lien pas propre mais qui fonctionne au lien "propre" mais qui ne marche pas.
  Cordialement, Martin
  Répondre
omd7590
03/10/2019, 13:05
Bonjour,
j'ai plusieurs boites mails dont une accessible à plusieurs personnes qui utilisent le même fichier.
Aujourd'hui, les mails se retrouvent non envoyés dans les boites mails de mes collaborateurs qui n'ont pas accès à la boite mail dédié à la gestion du fichier mais qui par mégarde lance la procédure de relance.
J'aimerais pouvoir tester l'accès à cette boite mail avant que la personne lance la procédure d'envoie de mail automatique présente dans le fichier.
J'utilise SentOnBehalfOfName pour spécifier la boite.
Merci d'avance pour votre aide
Répondre
Bernard VINCE
09/10/2019, 09:45
Un grand grand merci pour ce code qui fonctionne parfaitement.
Répondre
Margaux
24/10/2019, 10:43
Bonjour,
Merci pour ce code que j'utilise et qui fonctionne très bien.
J'ai ajouté .SentOnBehalfOfName pour envoyer le mail depuis une autre boîte aux lettres que la mienne. Et j'aimerais aller jusqu'au bout en supprimant ma signature qui s'insère automatiquement à la fin du mail, comment puis-je procéder?
Merci
Margaux
Répondre
Jérôme
26/10/2019, 12:09
Bonjour,
merci pour ces explications qui ouvrent de nouvelles perspectives grâce à la possibilité d'envoyer des mails depuis dans mon cas excel.
En revanche, je rencontre un problème que vous n'abordez pas dans votre tutoriel : ajouter un lien hypertexte avec un chemin incluant une apostrophe (j'ai un répertoire qui s'appelle "corbeille d'échanges").
Bonne journée
Répondre
- excel-malin.com Auteur de l’article
  30/10/2019, 13:18
  Bonjour Jérôme,
  voici ce qui va vous aider: https://cachefly.zendesk.com/hc/en-us/articles/215068626-How-to-format-URLs-that-have-special-characters-in-the-filename-
  Quand j'aurai un peu de temps, je vais en faire une fonction VBA (qui va "assainir" les URL de tous les caractères spéciaux d'un coup)…
  Bien à vous, Martin
  Répondre
PierreL
31/10/2019, 11:56
Bonjour,
tout d'abord merci pour ce tuto d'une grande qualité.
J'ai essayer d'utiliser cette macro très prometteuse mais j'ai un soucis lorsque je la test.
J'ai le message d'erreur suivant :
"Erreur de compilation : Type défini par l'utilisateur non défini" avec la ligne Dim oOutlook As Outlook.Application en surbrillance.
J'ai simplement copier / coller le code comme précisé dans le tuto. Pouvez vous m'aider sur ce dysfonctionnement.
PS : je suis novice en VBA
Pierre
Répondre
- excel-malin.com Auteur de l’article
  31/10/2019, 12:45
  Bonjour Pierre,
  merci pour votre retour.
  D'après le message d'erreur, il semblerait que vous n'avez pas activé la Référence de Outlook (Microsoft Outlook X.0 Object Library). La procédure est expliquée dans la première partie du tutoriel.
  En fait, vous essayez d'utiliser les objets VBA spécifiques à Outlook mais pour cela, vous devez "dire à VBA où aller les chercher".
  Donc dans l'éditeur VBA, dans le menu en haut, allez sur "Outils" puis "Références" ensuite vous devez trouver dans la liste "Microsoft Outlook X.0 Object Library" où X sera probablement 15 ou 16. Vous cochez cette référence, vous sauvegardez et votre code devrait fonctionner…
  Cordialement, Martin
  Répondre
Thibault
21/11/2019, 15:18
Bonjour,
Merci pour ce code.
Il y a néanmoins deux points que je ne comprend pas :
ligne 8 : Qu'elle est l'utilité de la variable boolean WasOutlookOpen ?
ligne 68 : Pourquoi définir un On Error Goto alors qu'à la ligne 71 on définit un On Error Resume Next ?
Est ce que ce sont des reliques de code passée ou de réflexion de développement devenue obsolète ? ou est ce qu'il y a un intérêt qui me dépasse ?
Cordialement,
Thibault
Répondre
- excel-malin.com Auteur de l’article
  21/11/2019, 16:15
  Bonjour Thibault,
  merci pour cette remarque!
  En effet c'étaient des reliques que j'ai oublié d'effacr – mea culpa, c'est pas bien, je sais 😉
  Je les ai déjà effacés du code et j'ai refait la procédure PreparerOutlook…
  Bien à vous, Martin
  Répondre
Lorenzo
02/12/2019, 23:12
Bonjour,
Quand je veux remplir le texte du body, en écrivant le texte des messages d'erreurs apparaissent par millier. Où dois-je écrire le corps de mon message ?
Merci d'avance pour vos clarifications !
Répondre
- excel-malin.com Auteur de l’article
  04/12/2019, 14:53
  Bonjour Lorenzo,
  le texte du "body" doit se trouver dans l'argument ContenuEmail que vous passez à la routine EnvoyerEmail.
  La réponse dépend donc comment et à quel endroit vous créez le contenu de cet argument.
  On peut facilement le voir dans l'exemple TestEnvoiEmail_Variables. Là, le texte du body se trouve dans la variable MonContenu.
  Mais attention à la manière d'écrire le texte. Vous ne pouvez pas faire, dans votre code, les lignes et paragraphes comme par exemple dans Word.
  Pour pouvoir utiliser les lignes ou paragraphes, vous devez:
  – utiliser comme format .BodyFormat = olFormatHTML
  – ensuite, tout le contenu doit se trouver entre des guillemets de début et de fin (pour délimiter le contenu de la variable)
  – et pour finir, vous pouvez utiliser la balise HTML <br> pour séparer les différentes lignes de votre contenu
  J'espère que cela vous aidera. Sinon, vous pouvez m'envoyer votre fichier et j'y jetterai un coup d'oeil quand j'ai le temps.
  Cordialement, Martin
  Répondre
Lvn Sym
21/01/2020, 12:46
Bonjour,
Votre code est absolument génial 🙂 Merci beaucoup.
J'ai une petite question concernant la modification du corps de texte. Je me sers de votre macro pour faire des relances "personnalisées" et j'ai besoin d'jaouter des retours à la ligne ainsi que des sauts de ligne.
Néanmoins pour une raison qu j'ignore cela ne fonctionne pas (le code en question est ci dessous). Si quelqu'un a une piste pour corriger le problème je suis preneur 🙂
'everything between "" is static and can be change directly here by you. Cells reference are dynamic and you have to check if they are correct for your pivot table
Text = "Hello " & Range("a1").Offset(i) & "," & vbCrLf & "You have " & Range("a1″).Offset(i, 4) & " blablabla for a global amount of " & Range("a1").Offset(i, 5) & "€" & vbCrLf & _
"If you need any support please contact us." & vbCrLf & "Best regards." & vbCrLf & _
"M DUPONTr" & vbCrLf & _
"VBA trainee"
Encore un grand merci et à très vite 🙂
Répondre
- Lvn Sym
  21/01/2020, 12:47
  Pour information le texte est bien formaté en HTML :
  'email formatted as HTML
  .BodyFormat = olFormatHTML
  .HTMLBody = "" & Body & ""
  Répondre
  - Lvn Sym
    21/01/2020, 12:54
    Malheureux que je suis, vous avez déjà répondu à cette interrogation en expliquant le fonctionnement à Lorenzo.
    1000 Merci
    Répondre
    - excel-malin.com Auteur de l’article
      21/01/2020, 13:36
      Merci pour le compliment!
      Je suis content que le code vous est utile et que vous avez trouvé la réponse à votre question dans les commentaires.
      Cordialement, Martin
      Répondre
Hassan
26/01/2020, 00:16
Excellent contenu .
J'ai besoin d'effectuer un envoie de mail selon le model suivant :
Cher client
Vous trouverez ci-dessous le tableau de la situation de vos demandes :
N° demande Nature de la demande Date de déclenchement Statut
1 Relevé 26/01/2020 Côturée
2 Course 27/01/2020 en cours
3 Offre 28/01/2020 Côturée
4 Devis 29/01/2020 Côturée
5 Duplicata 30/01/2020 Côturée
Cordialement
HA
Mon besoin consiste à envoyer à chaque client sa situation séparément depuis un fichier Excel toute en gardant la possibilité de d'attacher des pièces jointes et mettre plusieurs adresses dans les champs AA ,CC ,CCI
Merci infiniment pour votre précieuse aide .
Répondre
Didier
21/02/2020, 18:54
Super .. Grand merci
Répondre

Anonyme
23/02/2020, 01:37
Merci … Par tâtonnement (ce qui est souvent une assez bonne méthode), j'y étais arrivé.
Allez, je m'attaque au format HTML ..
En tout cas, ce tuto est de loin un des plus clairs que j'ai vus sur le web. Top.
Répondre

Kyle
04/03/2020, 12:15
Merci pour ce tuto.
A noter qu'il faut cocher la référence Microsoft Outlook xx.xx Object Library sinon la compilation ne passe pas.
Répondre
- excel-malin.com Auteur de l’article
  19/03/2020, 14:14
  Bonjour Kyle,
  en effet. Et c'est bien noté au début du tutoriel.
  Si cette référence n'est pas cochée, pas seulement que la compilation ne se fera pas mais le code ne fonctionnera tout simplement pas…
  Cordialement, Martin
  Répondre
Sandrine
27/03/2020, 11:58
Bonjour,
Je n'arrive pas à envoyer automatiquement le mail, en mettant un commentaire devant .Display et en enlevant le commentaire devant .Send, j'ai un msg d'erreur "Le mail n'a pas pu être envoyé"
Comment faire ?
Répondre
- excel-malin.com Auteur de l’article
  29/03/2020, 12:46
  Bonjour Sandrine,
  il peut y avoir différentes raisons pour cela (adresse email de destinataire incorrecte, pièce jointe qui n'est pas accessible,…). Donc là, je ne sais pas vous répondre comme ça.
  Ce que vous pouvez faire c'est d'exécuter le code ligne par ligne (avec la touche F8) et voir à quelle ligne du code l'erreur a lieu. Ce sera la ligne juste avant que le code "saute" dans l'error handling pour afficher le message d'erreur…
  Une fois que je saurai quelle ligne pose problème, je pourrai vous dire ce qui ne va pas.
  Cordialement, Martin
  Répondre
serge
28/03/2020, 09:43
Excellent, ce code m'a beaucoup aidé. Ilme reste un sujet c'est le .display qui s'affiche 1/10 de seconde je n'ai pas le temps de le visualiser. J'aimerais me servir de ce .display pour introduire une séquence de validation (msgbox yes/ no) avant envoi du mail. Comment faire.
Merci d'avance, Serge
Répondre
- excel-malin.com Auteur de l’article
  28/03/2020, 23:32
  Bonjour Serge,
  utiliser en même temps .Display et .Send n'a pas trop de sens. Il faudrait utiliser .Display et mettre .Send en commentaire. Ainsi, le mail est préparé et vous pouvez en faire ce dont vous avez besoin (vérifications etc.). Par contre il faudrait l'envoyer "manuellement" ensuite.
  Cordialement, MArtin
  Répondre
Serge
28/03/2020, 10:22
A nouveau pour une autre question.
Je voudrais pouvoir afficher un corps de mail avec des différences de police de caractère : certains mots en bold d'autres en couleur.
Comment puis-je faire?
Merci d'avance.
Serge
Répondre
- excel-malin.com Auteur de l’article
  28/03/2020, 23:35
  il faut utiliser alors le format "HTML" et utiliser les balises html pour formater le texte. Par exemple: <strong>mon texte</strong> pour le gras, <span style="color: #112233;">Mon texte en couleur</span>
  Répondre
  - Anonyme
    30/03/2020, 01:43
    Merci
    Répondre
Barbara
21/04/2020, 10:32
Bonjour,
Alors, pour commercer je tiens à vous remercier de toute l'aide apportée par vos tutos.
Pour ma part je connais excel depuis bien longtemps et je trouve ça absolument magique. Ce qui je connais moins en revanche, c'est la VBA. Je débute totalement en la matière. Alors sachant qu'en effet tout est possible (ou presque!!), j'ai décidé de me lancer.
J'ai tenté de copier/coller le code ci dessus, mais ça ne fonctionne pas. J'ai bien tenté de modifier "quelques trucs" mais je ne suis malheureuse qu'une débutante et je ne comprends pas la moitié de ce que j'ai à faire pour que ça fonctionne.
D'abord, lorsque je veux affecter ma macro , elle n'apparait pas.. 1er problème! Ensuite, en enlevant ce qu'il y a dans les parenthèses du "sub" ((ByVal Sujet As String, ByVal Destinataire As String, ByVal ContenuEmail As String, Optional ByVal PieceJointe As String)), Je fini par pouvoir l'éxécuter, mais là j'ai un message qui me dit "mail non envoyé car vide"… Je ne sais pas du tout comment corriger.
Est il possible d'avoir un p'tit coup de pouce???
Merci d'avance.
Répondre
- excel-malin.com Auteur de l’article
  27/04/2020, 09:46
  Bonjour Barbara,
  désolé pour la réponse tardive mais j'étais occupé au-delà du maximum faisable…
  Pour répondre à votre question:
  1) La macro "EnvoyerEmail" exécute l'envoi de l'email avec les informations qui que l'on lui "passe" à travers les variables qui sont entre les parenthèses ((ByVal Sujet As String, ByVal Destinataire As String, ByVal ContenuEmail As String, Optional ByVal PieceJointe As String)
  Donc si vous l'effacez, la macro va considérer que le contenu de toutes ces variables et vide et ne pourra donc en effet pas envoyer l'email (car l'adresse email est vide, le sujet est vide et le contenu est vide aussi)
  2) vous avez donc besoin de lui faire parvenir ces informations. Cela peut être fait de plusieurs manières qui dépendent de l'utilisation.
  J'ai mis dans ce tutoriel 2 manières de le faire: les macros TestEnvoiEmail_Variables et TestEnvoiEmail
  Vous avez donc besoin non seulement de la macro principale mais aussi une de ces deux macros. Je vous conseillerais d'utiliser "TestEnvoiEmail_Variables". Là, vous remplacez les valeurs par ce dont vous avez besoin et ensuite, vous lancez cette macro (vous ne devez donc pas lancer la macro "EnvoyerEmail" directement. C'est la macro "TestEnvoiEmail_Variables" qui va le faire elle-même.
  3) j'espère que je suis clair. Donc vous copiez les deux macros, vous faites les changements de valeurs dans "TestEnvoiEmail_Variables" et vous lancez la macro "TestEnvoiEmail_Variables"
  J'espère que cela va vous dépanner.
  Cordialement, Martin
  Répondre
  - Barbara
    27/04/2020, 10:06
    Bonjour Martin,
    Merci infiniment pour votre réponse. Mais très honnêtement, je suis complètement perdue.
    ça me paraissait plutôt clair au départ, j'avais l'impression de comprendre mais là, plus rien. Je ne sais plus du tout quoi faire de tout cela.
    Cordialement.
    Barbara
    Répondre
    - excel-malin.com Auteur de l’article
      27/04/2020, 11:44
      Re-bonjour,
      c'est sûr que ceci n'est pas idéal comme cas pour commencer avec VBA.
      Si vous voulez, envoyez-moi un email avec la description de ce dont vous avez besoin exactement et je vais voir ce que je peux faire pour vous.
      Il me faudrait des infos comme: d'où viennent les informations à utiliser, est-ce que c'est toujours le même email que vous devez envoyer, etc.
      Cordialement, Martin
      Répondre

COSSIN
02/05/2020, 09:25
Bonjour,
J'ai utilisé votre article comme base de développement d'une petite application. Il est très bien fait.
J'ai ajouté dans mon appli, le déplacement du mail émis dans un dossier dédié.
Cependant, il arrive qu'au moment du déplacement du mail, Outlook ne soit pas en mode connecté.
Je n'ai pas trouvé la propriété (hors exchange) à tester pour faire une boucle d'attente.
La connaissez-vous ?
Cdt, NC
Répondre
Gilles Chapdelaine
07/05/2020, 15:04
Bonjour,
Je trouves le code VBA super intéressant, j'aimerais l'utiliser par contre on utilise gmail, est-ce possible ?
Deuxièmement, avez-vous un vidéo pour nous montrer ou mettre le copie/coller dans un module, vous êtes génial.
Merci
Répondre
- Lola
  12/09/2023, 16:30
  Bonjour, avez vous trouvé une solution svp ?
  Répondre
AlexEth
10/06/2020, 13:56
Bonjour,
Quelqu'un peut-il y jeter un coup d'œil à mon fichier s'il vous plaît ?
Je suis débutant en VBA, et malgré le simple copier/coller à faire, je n'y arrive pas….
https://www.cjoint.com/c/JFkl2cK5aw3
Le fichier ci-joint contient deux documents, chacun sur une feuille, selon des listes déroulantes des informations vont apparaître sur les documents. Le tout est dirigé depuis une autre feuille (Réglages).
A partir de Réglages j'ai ensuite tout automatisé. (Voir dans le document il y a toutes les consignes, c'est plus pratique)
Dans le Module1, il y a une macro pour le bouton PDF (Que je n'arrive pas à adapter non plus…) et dans le Module2, la place pour le code de l'envois de mail(je l'ai laissé vide pour éviter de perturber avec les nombreuses tentatives que j'ai essayé). Ils représentent exactement ce que je souhaite au final, mais je n'arrive pas du tout à les adapter à mon "automatisation" des données…
HELP ME !!
Répondre
Mouftie
15/06/2020, 19:57
C'est vraiment dommage de ne pas pouvoir choisir une plage de cellule, avec la mise en forme souhaitée, comme corps du texte.
Répondre
- Anonyme
  17/06/2020, 13:23
  Un site en anglais, qui propose l'envoi de mail par Excel, à partir d'une plage pour le corps du message :
  http://www.rondebruin.nl/win/s1/outlook/bmail2.htm
  Répondre
  - excel-malin.com Auteur de l’article
    17/06/2020, 15:17
    Merci pour le tuyau!
    Je vais le tester.
    Martin
    Répondre
Christian
11/07/2020, 17:40
Bonjour,
Merci pour cette procédure qui facilitera grandement la gestion de mon club cycliste.
Toutefois, lorsque je lance la procédur (à partir de "TestEnvoiEmail_Variables"), je reçois le message "Erreur de compilation Sub ou Function non définie" au niveau de "PreparerOutlook" du bloc
'préparer Outlook
PreparerOutlook oOutlook
Set oMailItem = oOutlook.CreateItem(0)
Qu'ai-je loupé ?
Merci pour votre aide.
Répondre
- excel-malin.com Auteur de l’article
  11/07/2020, 21:49
  Bonjour Christian,
  êtes-vous sûr d'avoir copié également la procédure PreparerOutlook dans votre projet?
  Le code en a besoin, c'est une procédure "secondaire" – vous ne la lancez pas mais la macro que vous lancez l'utilise.
  Elle se trouve dans le code VBA de base (le premier code VBA sur cette page) à partir de la ligne 64…
  Cordialement, Martin
  Répondre
  - Christian
    19/07/2020, 19:25
    Bonjour,
    Autant pour moi.
    Bien à vous,
    Répondre
  - Antoine
    02/09/2020, 11:18
    Bonjour,
    Je ne trouve pas la procédure PreparerOutlook dans votre code et aucune ligne 64.
    Pouvez-vous donner le code en commentaire ou vérifier la page svp ?
    Je vous remercie.
    Salutations.
    Répondre
    - excel-malin.com Auteur de l’article
      02/09/2020, 11:26
      Bonjour Antoine,
      merci pour l'avertissement!
      J'ai fait une mise à jour du code il y a deux jours et je n'ai copié que la fonction principale en oubliant la procédure PreparerOutlook.
      Je viens de corriger cela et le code devrait fonctionner correctement comme avant.
      Cordialement, Martin
      Répondre
Victor PERRIN
28/07/2020, 15:03
bonjour a vous;
j'essaye d'utiliser votre code mais au lancement de la macro j'ai l'erreur:
"erreur de compilation: type non défini par l'utilisateur " et pointe sur la ligne 7 de la sub "envoyer mail"
Répondre
- excel-malin.com Auteur de l’article
  28/07/2020, 16:30
  Bonjour Victor,
  je dirais que vous n'avez pas ajouté la Référence à "Microsoft Outlook X.0 Object Library".
  Regardez dans le tutoriel juste au-dessus du premier code VBA: "Ajouter la Référence Microsoft Outlook X.0 Object Library"
  Cela devrait résoudre votre problème.
  Cordialement, Martin
  Répondre
Jean-François
26/08/2020, 07:51
Bonjour,
Très bonne macro.
J'aimerai savoir comment faire pour que le texte dans "MonContenu" soit sur plusieurs lignes et non comme ci-dessous?
"Bonjour, Ci-joint la feuille des pronostics et à me renvoyer dès que possible. Cordialement, Jean-François"
D'autre part, est-il possible de mettre le fichier en pièce jointe et non pas dans le corps du mail?
Merci encore pour cette bonne macro.
Cordialement, Jean-François
Répondre
- excel-malin.com Auteur de l’article
  26/08/2020, 09:56
  Bonjour Jean-François,
  pour gérer les retours à la ligne, choisissez le format HTML (explications sont dans le tuto) et ensuite utilisez la balise HTML " <br> "
  Donc vous aurez quelque chose comme ceci:
  TexteEmail = "Bonjour, <br> Ci-joint la feuille des pronostics et à me renvoyer dès que possible.<br> Cordialement,<br> Jean-François"
  1
  TexteEmail = "Bonjour, <br> Ci-joint la feuille des pronostics et à me renvoyer dès que possible.<br> Cordialement,<br> Jean-François"
  
  Pour votre 2^ème question: vous pouvez toujours ajouter un fichier avec une pièce jointe. Mais il vous faudra soit supprimer le test de la valeur de Body dans mon code car si le texte du body est vide, c'est considéré comme erreur.
  Et pour la pièce jointe, vous devrez d'abord sauvegarder votre texte dans un fichier pour pouvoir le joindre à votre email (VBA: Sauvegarder un texte dans un fichier )
  J'espère que cela répond à vos questions.
  Cordialement, Martin
  Répondre

tom
15/09/2020, 12:22
Bonjour,
Un grand merci pour ce tuto qui va me permettre de gagner un temps fou !
J'ai deux petites questions : Est-il possible d'afficher autrement les PJ ? On dirait qu'Outlook les apporte d'une manière assez ancienne dans le corps du texte plutôt que de les placer dans la case PJ dédiée.
Répondre
- excel-malin.com Auteur de l’article
  15/09/2020, 12:53
  Bonjour Tom,
  je suis content que mon code vous soit utile.
  Pour votre question: si vous utilisez le format "Rich text" ( .BodyFormat = olFormatRichText ), la pièce jointe sera ajouté dans le corps de l'email.
  Pour qu'il soit dans la case "pièces jointes", l'email doit être formaté soit en HTML ( .BodyFormat = olFormatHTML ) soit en simple texte ( .BodyFormat = olText ).
  Ou bien il vous suffit de supprimer la ligne .BodyFormat = ... (ou la mettre en commentaire) car le format par défaut est HTML et donc les fichiers sont dans la bonne case.
  Cordialement, Martin
  Répondre
  - Jérôme
    04/03/2022, 15:40
    Bonjour
    Merci pour cette superbe procédure qui va m'etre bien utile!
    ca marche mais ca m'affiche toujours le msgbox final "ce mail n'a pas pu être envoyé…"
    Je ne comprends pas la synthaxe de la fin de la procédure :
    EnvoyerEmailErreur:
    If (Not (oMailItem Is Nothing)) Then Set oMailItem = Nothing
    If (Not (oOutlook Is Nothing)) Then Set oOutlook = Nothing
    MsgBox "Le mail n'a pas pu être envoyé…", vbCritical, "Erreur"
    Répondre
    - excel-malin.com Auteur de l’article
      14/03/2022, 11:50
      Bonjour Jérôme,
      la syntaxe à la fin est utilisé en cas d'erreur dans la procédure.
      Les deux premières lignes suppriment les objets (oMailItem et oOutlook) de la mémoire de l'ordinateur.
      La troisième ligne affiche le message avertissant l'utilisateur qu'une erreur s'est produite.
      Pour savoir exactement ce qui se passe, vous pouvez exécuter la procédure ligne par ligne (avec la touche F8) dans l'éditeur VBE.
      Vous verrez alors exactement quelle ligne de code déclenche l'erreur qui cause que l'exécution saute la suite du code et va directement vers le code à exécuter en cas d'erreur (que vous avez mentionné dans votre question).
      Bien à vous, Martin
      Répondre
emeric
06/10/2020, 10:49
Bonjour,
Pourriez vous me préciser la ligne de code à ajouter afin que la signature soit ajoutée automatiquement svp ?
Je tiens à préciser que dans mes paramètres outlook, ma signature est ajoutée pour chaque réponse ou chaque nouveau mail.
Hors quand je crée un mail automatiquement via excel, la signature disparait !
Merci
Répondre
jonathan
16/10/2020, 16:21
bonjour
merci pour votre macro qui est super mais je l'ai développée sur un Excel 2016 et le fichier sera utilisé par des personnes travaillant sur des versions antérieures (en partie). Du coup sur Excel 2010 j'ai une erreur liée à la référence Microsoft Outlook 16.0 Object Library
lorsque j'active manuellement la référence (n°14) sur un PC sous excel 2010, il faut que je retire la référence manquante 16 pour cocher la 14.je sauve, je reexécute la macro: j'ai une erreur dont le debugage pointe sur la ligne olFormatHTML.
plusieurs questions: existe t-il un code pour activer la référence automatiquement sans ouvrir l 'éditeur de code? s'il faut l'activer manuellement, dans ce cas pourquoi l'erreur survient -elle au choix du format?
merci beaucoup !
Répondre
Adrian SZASZ
21/10/2020, 15:06
Bonjour,
Je vous remercie pour ce tutoriel très complet.
Afin d'automatiser un processus d'envoi d'e-mail, je dois envoyer des mails à plusieurs destinataires avec des PJ individualisées pour chacun des destinataires + le responsable du service pour chaque mail.
Pouvez vous me communiquer une procédure à ce sujet?
Mille merci pour votre aide,
Bien à vous
Répondre
Benjamin
04/11/2020, 21:58
Bonjour,
D'abord merci pour ce tuto qui est vraiment très clair et très détaillé moi qui n'est pas travaillé sur VBA depuis un moment.
Dans ce format proposé, est-ce qu'il est possible d'avoir un bon de commande dans le premier onglet puis mettre le bouton Envoyer, etc dans le second onglet.Sachant que je souhaite que la PJ de l'email soit le premier onglet qui soit imprimé en PDF au préalable ? Merci d'avance,
Répondre
Alex
09/11/2020, 15:22
Bonjour,
Merci beaucoup pour ce tutoriel très complet. J'ai un problème avec Outlook. Le code fonctionne parfaitement mais si Outlook n'est pas ouvert avant d'exécuter la macro, les messages ne s'envoient pas, ils restent dans la boîte d'envoi. Il faut ouvrir Outlook pour que les messages soient envoyés. Avez-vous une solution pour ouvrir Outlook en arrière-plan assez longtemps pour l'envoi des messages ?
Merci d'avance de votre réponse.
Cordialement,
Répondre
Grégoire
17/12/2020, 14:04
Bonjour,
Merci pour ce tutoriel.
Je cherche à entrer dans la variable "ContenuEmail" de la procédure "EnvoyerEMail" la valeur d'une cellule d'un tableau excel de travail contenant du texte mis en forme (mots surlignés, etc.).
L'utilisation du format olFormatRichText dansla macro ne permet que de récupérer les sauts de lignes et les paragraphes mais pas la forme originelle (soulignages etc.) dans la cellule de départ.
Je pense que cela provient du fait d'avoir définir la variable le texte d'une cellule de la manière suivante : Contenu = Range("CnLn").Value
Auriez-vous une parade ? Le but étant de pouvoir modifier le contenu de la cellule de départ et que cela "adapte" directement le corps du mail (mise en forme comprise).
Merci d'avance pour votre retour,
CDMT
Grégoire
Répondre
- excel-malin.com Auteur de l’article
  17/12/2020, 22:57
  Bonjour Grégoire,
  ce que vous souhaitez est possible mais c'est un peu plus compliqué.
  En gros, vous devez passer par le format HTML. Et pour avoir le contenu de votre cellule avec les formats, vous devez d'abord exporter cette cellule (ou Range) dans un fichier HTML temporaire. Vous récupérez ensuite le code HTML d'une "page" ainsi créée et vous l'injectez dans votre email.
  Vous pouvez le voir dans cet article de Ron de Bruin: https://www.rondebruin.nl/win/s1/outlook/bmail2.htm (en anglais)
  Je compte écrire un tutoriel en français très prochainement sur ce sujet, avec un code VBA prêt à l'emploi. Mais vu le peu de temps dont je dispose pour le moment, je ne peux pas vous donner l'estimation de date quand ce tutoriel sera prêt.
  Mais si vous voulez, je peux vous prévenir quand il sera publié.
  Cordialement, Martin
  Répondre

MaximeP
15/01/2021, 08:27
Bonjour,
super le code est vraiment complet.
Je souhaiterais faire en sorte de ne partager qu'un seul onglet de mon classeur par le biais de ce code et non pas le classeur entier.
Je n'arrive pas à l'intégrer, comment serait-ce faisable?
Merci
Répondre
- excel-malin.com Auteur de l’article
  15/01/2021, 09:23
  Bonjour Maxime,
  oui c'est faisable.
  Mais vous devez passer par un workbook intermédiaire car la pièce jointe n'est pas un onglet mais un classeur.
  Donc pas à pas:
  – vous devez exporter l'onglet souhaité et l'enregistrer comme un classeur
  – vous envoyez cette copie temporaire comme pièce jointe
  – vous supprimez la copie temporaire
  Si vous voulez, vous pouvez utiliser ce code de Ron de Bruin: https://www.rondebruin.nl/win/s1/outlook/amail2.htm
  Cordialement, Martin
  Répondre
  - Aymeric Gioia
    18/01/2021, 10:06
    Bonjour et merci Martin je vais faire des tests, dsl du spam je n'ai pas pensé à scroller vers le bas, et je pensais avoir une notif par mail.
    Répondre
    - excel-malin.com Auteur de l’article
      18/01/2021, 14:24
      Bonjour, pas de problème.
      Il y a encore peu, les réponses aux commentaires étaient notifiés par email.
      Mais certains commentateurs se plaignaient d'être bombardés d'emails (car ils avaient choisi l'option d'être prévenu de chaque commentaire sur l'article où ils avaient posté plutôt que d'être informés uniquement de réponses à leur messages). Du coup cela créait des malentendus et discussions dont la gestion était assez gourmande en temps. Temps qui me manquait après pour créer du contenu.
      Peut-être je vais essayer de trouver encore une autre solution…
      Cordialement, Martin
      Répondre
Maxime P
15/01/2021, 11:51
Bonjour,
je souhaiterais modifier ce code pour n'envoyer qu'un seul onglet au lieu du classeur entier.
Cette onglet serait différent chaque jour.
Comment est-ce possible de l'intégrer à ce code?
Merci
Répondre
jf Rioux
05/02/2021, 19:43
Comment on fait pour l'utiliser ave la version online de excel et de outlook ???
Répondre
- excel-malin.com Auteur de l’article
  07/02/2021, 17:10
  Bonjour,
  malheureusement, les versions online d'Excel, de Outlook et d'autres applications ne supportent pas VBA.
  Le problème est que VBA a besoin de ressources (CPU etc.) – normalement, c'est le PC de l'utilisateur qui le fournit donc il n'y a pas de problème.
  Avec Excel Online, ce devraient être les serveurs de Microsoft qui devraient effectuer le travail – et cela, Microsoft ne veut pas. Pour des raisons financières et aussi de sécurité.
  Une alternative seront les "Office Scripts" (une version Microsoft de JavaScript) mais cette solution n'en est qu'à ses premiers pas…
  Donc pour le moment, si vous voulez automatiser Excel, vous devez disposer d'une version classique d'Excel (2007, 2013, 2016, 2019 ou 365)
  Répondre
Léo
15/02/2021, 09:59
Bonjour !
Tout d'abord un grand merci pour ce tuto !
SEUL HIC :
– Je n'arrive pas a envoyer le mail sans qu'il m'affiche l'aperçu …
Même lorsque je met en commentaire .display….
Je veux bien un coup de main si cela est possible.
Bien à vous et au plaisir de vous lire
Cordialement
Léo
Répondre
noun
31/03/2021, 11:03
Bonjour, je tenais à vous remercier pour ce tuto complet.
Je souhaiterais envoyer un mail automatisé à une liste de destinataires (dans l'excel, il y a une colonne nom et une avec les adresses email). Cependant j'ai un souci. Ce message d'erreur apparait :" Erreur d'exécution '1004', erreur définie par l'application ou par l'objet.
Si jamais vous voyez d'où peut provenir l'erreur je vous en serait reconnaissant .Merci d'avance
Voici le Code:
Sub envoiparmail()
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim Nom As String
Dim Email As String
Dim i As Integer
Set FL = Worksheets("Destinataires")
LineNB = ActiveCell.Row
Nom = FL.Cells(Ligne, 1)
Mail = FL.Cells(Ligne, 2)
heures = FL.Cells(Ligne, 3)
Body = "Bonjour " + Nom + " Selon le fichier extraction du 22/03/2021,vous avez 184 heures non imputées. Vous en souhaitant bonne réception.Cordialement. nisrine"
Subject = Nom + "-" + heures
Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
destinataires = Array("****.*****@gmail.com", _
"****.*****@gmail.com", _
"****.*****@gmail.com")
With oBjMail
For i = 0 To UBound(destinataires)
Set dest_A = .Recipients.Add(destinataires(i))
dest_A.Type = olTo
Next i
.Subject = "Heures imputees"
.HTMLBody = Body
.display
End With
End Sub
Répondre
- excel-malin.com Auteur de l’article
  31/03/2021, 13:53
  Bonjour Noun,
  à priori, l'erreur vient de la variable Ligne qui n'est pas défini.
  Par contre vous définissez la variable LineNB qui n'est pas utilisée ensuite.
  Donc j'imagine qu'il s'agit de la même chose.
  Il vous suffit donc de remplacer:
  LineNB = ActiveCell.Row
  par
  Ligne = ActiveCell.Row
  Donc essayez déjà ça et voyez si cela marche ou s'il y a encore un autre souci.
  Cordialement, Martin
  Répondre
  - nouun
    06/04/2021, 12:17
    Je vous remercie Martin! En effet, cela provenait de là.
    Cordialement
    Nouun
    Répondre
MelBaj
09/04/2021, 18:58
Bonjour,
Je ne suis vraiment pas une experte en VBA …
je n'arrive pas à sélectionner la référence "Microsoft Outlook X.0 Object Library" ; en effet, un message d'erreur apparaît : "Erreur de chargement de la DLL"
Pouvez-vous me redire svp ?
Merci de votre aide
Répondre
david
13/04/2021, 21:07
bonjour
Ayant déclaré la référence a la libraire outlook, ce ne fonctionne pas (erreur de variable. Merci pour votre aide
Répondre
Antonin
14/04/2021, 16:42
Bonjour,
Merci beaucoup pour cet article qui me permet de faire d'envoyer des mails en HTML à plein de clients (avec une boucle ajoutée à cela).
Cependant, il persiste un problème.
Lorsque j'ouvre mon fichier HTML (fait à partir d'un site, ne sachant pas coder personnellement), il n'y a pas de soucis.
Je souhaite insérer ce fichier dans ma macro VBA à l'aide de la fonction FSo.GetFile("MonFichier").OpenAsTextStream.ReadAll qui me permet d'avoir le code directement.
Ensuite, je fais des modifications dans le texte en fonction de mes clients grâce à ma boucle.
Mais il y a un problème après lorsque j'insère le mail dans Outlook. En effet, le format des images n'est pas respecté par rapport au départ et je lettres avec accent sont remplacées par des caractères comme "Ã©" ou encore "Ã´".
Ai-je fait une erreur quelque part ?
Merci par avance.
Cordialement,
Répondre
Julie
12/05/2021, 15:18
Bonjour,
Merci pour cette macro qui m'a bien facilité le travail.
Je suis confrontée à une erreur que j'ai bien du mal à comprendre.
J'ai d'abord fais un test avec 3 mails différents, tout s'est bien déroulé.
J'ai alors exécuté la macro sur mon fichier client et le mail n'est passé que pour 9 adresses sur 34.
Auriez-vous une idée de la raison ? Car je ne vois rien de logique à cela.
Pour info je fais une boucle qui va chercher pour chaque ligne, le dest, la pj, objet et corps du mail sont en dur dans la macro.
Je ne comprends pas pour quoi cela ne fonctionne qu'avec certaines adresses…
Merci d'avance pour votre réponse
Répondre
patrick
05/06/2021, 11:19
bonjour
pas mal
mais il faut savoir que depuis 2013 et selon les config windows il faut préciser le shemas
Const PR_ATTACH_CONTENT_ID = "http://schemas.microsoft.com/mapi/proptag/0x3712001F"' en haut de module
et dans la création de l'object
exemple:* "création du mail
'————————————————-
Set oApp = CreateObject("Outlook.Application") 'instance outlook
Set oEmail = oApp.CreateItem(olMailItem) 'instance de l'item mail dans outlook
Set colAttach = oEmail.Attachments ' ça c'est la collection des attachements
'———————————————————————-
' a répéter pour chaque image placées dans le body!!!!!!!!!!!
'on attache l'image
Set oAttach = colAttach.Add(NomImage) 'on ajoute dans la collection d'attachements l'image de la plage
Set olkPA = oAttach.PropertyAccessor 'collection des properties d'accessibilité de l'attachement
olkPA.SetProperty PR_ATTACH_CONTENT_ID, "imgTemp.gif" " application de la propriété cid a l'attachement
'———————————————————————-
sans ça il y a plusieurs variations de résultat
la pièce jointe(image) est absente et donc pas dans le body
la pièce jointe(image) est dans le body mais au debut et plus a sa place
la pièce jointe est dans les attachement mais pas dans le body
Répondre
Willfried
07/07/2021, 08:47
Bonjour
Merci beaucoup pour ce code très pratique
Toutefois je rencontre un soucis.
J'ai besoin d'envoyer une copie du tableau excel concerné (d'une seule feuille en fait) en pièce jointe du mail et cette copie doit être protégée (une seule cellule pouvant être modifiée par le destinataire).
J'arrive bien à protéger la feuille en question et à enregistrer cette feuille dans un classeur vierge via du vba.
Si j'ouvre cette copie manuellement, la feuille est bien protégée
Mais si j'utilise votre code pour mettre ce tableau en PJ du mail, la feuille n'est plus protégée
Pourriez-vous m'aider ?
Par avance merci
Willfried
Répondre
Perrin Marie
13/10/2021, 08:53
Bonjour,
Comment déclencher les mails à certaines dates?
Il s'agit de locations meublées : envoi de mail pour déclencher le paiement du solde, pour indiquer les modalités d'arrivée, pour vérifier si le séjour se déroule bien, pour remercier le locataire et l'inviter à laisser un commentaire etc.
Répondre
- excel-malin.com Auteur de l’article
  13/10/2021, 20:28
  Bonjour Marie,
  pour cela, en VBA, je vois deux possibilités:
  1) simplement avec Excel, vous imbriquez le code d'envoi de l'email dans une boule qui teste la date. Par exemple toutes les heures, vous testez la date à ce moment-là. Si la condition est rempli (par exemple si la date = le 1er du mois), l'email (ou les emails) est envoyé et la boucle continue. Le seul hic de cette méthode est que Excel (et donc l'ordi sur lequel le programme tournerait) doit rester allumé…
  2) VBA peut aussi être utilisée dans Outlook – et non seulement dans le courriel mais aussi au niveau de calendrier. Chaque événement dans le calendrier déclenche un "event" VBA qui peut donc exécuter un code. Vous pouvez donc, par exemple, tester le nom de l'événement du calendrier et si celui-ci est "envoi paiement du solde", vous le faites exécuter l'envoi de l'email correspondant. Avantage – pour l'utilisateur c'est assez facile (il n'a qu'à gérer le calendrier Outlook, pas besoin de connaissances techniques) et si ma mémoire est bonne, certains événements Outlook peuvent être gérés au niveau du serveur (donc pas besoin que le PC soit allumé non-stop). Mais ceci, il faudrait le vérifier… Mais au niveau de la macro, c'est plus compliqué que la méthode 1).
  J'espère que cela répond à votre question.
  Cordialement, Martin
  Répondre

Bernard
27/10/2021, 08:23
Bravo et merci beaucoup
Répondre
Chris
15/12/2021, 13:49
Bonjour, tout d'abord je souhaitais vous adresser des félicitations pour la qualité remarquable des informations présentées sur cette page. Je suis intéressé par l'envois d'email à partir d'excel et le contenu correspond complément à ma recherche.
Cependant je rencontre certaines difficultés. Il me semble que les noms de paramètres ne sont pas identiques entre TestEnvoiEmail_Variables() et EnvoyerEmail(), ce qui fait dans mon cas personnel que "contenuEmail" est toujours vide (donc email non envoyé) car c'est MonContenu qui est définit dans TestEnvoiEmail_Variables() et pas "ContenuEmail". Cette erreur se corrige dans mon cas en indiquant les bons noms de part et d'autre.
Je n'arrive par contre pas du tout à ouvrir Outlook ou à manipuler Outlook s'il est déjà ouvert, PreparerOutlook() me renvoit systématiquement sur les messages d'erreurs. Auriez vous des conseils à me donner ?
J'ai bien rajouté la référence "Microsoft Outlook 16.0 Library" au projet, et remplacé MSOUTL.OLB par le votre comme stipulé dans les commentaires. Je suis sous WIN10, et Excel Office 365 (soit une des dernières versions disponible je suppose)
Merci d'avance pour votre retour
Répondre
Anonyme
12/01/2022, 20:01
Bravo ! Bravo, Bravo ! et merci merci merci !
Répondre
bon
18/01/2022, 17:41
etant un passionné du code VBA, je vous remercie pour vos explications
Répondre
Vincent
13/04/2022, 16:00
Très clair, super pratique, facile d'utilisation pour un débutant!
Répondre
- excel-malin.com Auteur de l’article
  14/04/2022, 11:16
  Merci Vincent
  Répondre
thomas
12/05/2022, 10:34
bonjour
c est super bien fait merci
en revanche, j'ai un soucis. quand je fais tourner la procédure bloque à PreparerOutlook oOutlook
Répondre
Noa
23/06/2022, 16:15
Bonjour, j'ai essayé votre code mais impossible d'afficher ma signature autre qu'en pièce jointe. Je début en VBA et je ne trouve pas ma faute…
voici une partie de ma macro:
.CC = Range("A" & n)
.BCC = Range("C" & n)
.Subject = Range("M1") & "N° de compte client" & " " & Range("E" & n) & "-" & Range("F" & n)
.To = Range("D" & n)
.Attachments.Add "Z:\XXXX\XXXXX"
.Attachments.Add "Z:\XXX\signature.jpg", olByValue, 0
.HTMLBody = Body & "" & "" & "" & ""
.Send
Répondre
- excel-malin.com Auteur de l’article
  25/06/2022, 01:09
  Bonjour Noa,
  vous trouverez cette information dans la section "Image dans le corps du message" dans le chapitre "Utilisation avancée".
  Maintenant que vous avez ajouté l'image comme pièce jointe, vous devez indiquer à quel endroit elle doit se trouver dans le body de l'email:
  Par exemple:
  .HTMLBody = .HTMLBody & "<br><img src='cid:MonImage.jpg' width='500' height='200'><br>"
  1
  .HTMLBody = .HTMLBody & "<br><img src='cid:MonImage.jpg' width='500' height='200'><br>"
  à placer avant la ligne .Send de votre exemple.
  Répondre
patrick Wagneur
27/06/2022, 13:38
Bonjour,
Super bien fait et clair.
J'ai un petit problème … quand j'écris les balises html sur plusieurs lignes, j'ai une erreur …
et pour tout écrire sur une seule ligne, c'est une fameuse galèsi le texte est long … Il y a un système ? Je fais une erreur ? J'oublie un caractère de fin de ligne ?
Répondre
- excel-malin.com Auteur de l’article
  27/06/2022, 22:42
  Bonjour Patrick,
  en VBA, une une instruction doit se trouver sur ne ligne. Mais il y a deux possibilités:
  1) soit découper votre texte et ajouter les différentes parties à la même variable – exemple:
  MonHTML = "<p>text 1<br>" MonHTML = MonHTML & "text 2</p>" MonHTML = MonHTML & "<p>nouveau paragraphe</p>"
  1
  2
  3
  MonHTML = "<p>text 1<br>"
  MonHTML = MonHTML & "text 2</p>"
  MonHTML = MonHTML & "<p>nouveau paragraphe</p>"
  2) ou bien utiliser _ qui, avec les & vous permettra d'écrire la chaîne sur plusieurs lignes – exemple:
  MonHTML = "<p>text 1<br>" & _ "text 2</p>" & _ "<p>nouveau paragraphe</p>"
  1
  2
  3
  MonHTML = "<p>text 1<br>" & _
  "text 2</p>" & _
  "<p>nouveau paragraphe</p>"
  J'espère que cela répond à votre question.
  Cordialement, Martin
  Répondre
ben
07/07/2022, 12:23
Bonjour,
je vois que votre macro utilise à la fois la liaison tardive (avec createobject) et la liaison précoce (références à Outlook.Application), ce qui n'est pas recommandé si vous ne voulez pas avoir de fuite de mémoire.
En général on référence les bibliothèques outlook, lors de la phase de développement et ensuite on pas à la liaison tardive (Déréférencement des bibliothèques, et modification des variables en objet neutre)
Il serait peut-être intéressant de modifier la macro ?
cordialement
Répondre
LEBLESOIS
30/09/2022, 19:11
Bonjour,
super tutoriel !
J'ai une demande supplémentaire. Lorsque nous avons plusieurs comptes Outlook, en suivant votre méthode, il est effectivement possible d'envoyer un mail avec un compte qui n'est pas celui considéré comme "principal".
Cependant, le mail envoyé ne se trouve pas dans le compte secondaire mais dans le répertoire "Envoyé" du compte principal.
Comment faire pour que le mail envoyé se retrouve bien dans le répertoire envoyé du bon compte expéditeur ?
J'esoère avoir été assez clair 😉
Merci d'avance.
Répondre
Johann
19/12/2022, 07:40
Bonjour.
Merci pour ce tuto qui est parfaitement bien expliqué.
Cependant, je me pose la question suivante :
Est-il possible (pour automatiser totalement l'envoi du mail) sans avoir à intervenir à aucun moment, d'ajouter une condition dans ce code ?
Je m'explique :
– Admettons que dans une cellule, j'affiche la date du jour (Cellule A1).
– Dans une autre cellule, il y a une date (Cellule B1).
– Dans la cellule suivante (C1), j'affiche un résultat ( =SI(A1>B1;"ALERTE MAIL";"") )
Mon idée serait que si la cellule C1 contient "ALERTE MAIL", que le mail soit envoyé automatiquement et directement sans avoir à cliquer sur un bouton.
J'imagine que si c'est possible, cette procédure automatique ne doit s'exécuter qu'une seule fois. (En D1, par exemple, il pourrait s'afficher : "MAIL ENVOYÉ")
PS : Dans mon projet, les autres cellules (C2, C3,,,, C1000) contiennent la même formule que C1.
PS 2 : Est-il possible de choisir une heure pour l'envoi de ce mail ? (La cellule E1 peut contenir par exemple : 11:00)
Par avance, merci pour votre réponse.
Joyeuses fêtes de fin d'année.
Johann
Répondre
Willy
09/02/2023, 11:27
Bonjour
merci pour ce snippet.
Je voudrais savoir si ce code est réutilisable, je veux dire point de vu licence.
Est-ce possible d'utiliser ce code pour un usage professionnel ? quel est la licence associée ?
mon objectif serait pour un usage non redistribuable (juste en interne à ma mission)
Merci pour le retour, et pour le code
(ça m'évite d'avoir à retaper la mien)
Répondre
- excel-malin.com Auteur de l’article
  09/02/2023, 18:10
  Bonjour Willy,
  ce code est libre. Vous pouvez l'utiliser sans problème.
  Bien à vous,
  Martin
  Répondre
Anonyme
21/03/2023, 13:30
Bonjour,
Merci beaucoup pour ce tuto très complet et didactique.
Cdt
Nicolas
Répondre
Kevin N
15/05/2023, 15:31
Bonjour,
J'ai utilisé ce code dans un de mes développements c'est parfait, ca tourne parfaitement depuis 1an.
J'ai comme un doute de fonctionnement avec la nouvelle version de Outlook actuellement disponible au 2023 05 15. il semblerai que Excel ne puissent plus ouvrir Outlook, ou que un pont est changé."Nous avons détecté un probléme lors du lancmeents du nouveau Outloock. veuillez réessayer plus tard."
Répondre
mathieu
14/12/2023, 15:08
Bonjour, selon vous quel est le meilleur logiciel pour envoyer une newsletter à une liste de contacts sur Excel ? Merci
Répondre
jeremy
17/01/2024, 16:51
Bonjour,
J'ai un petit soucis de syntaxe avec votre code.
J'ai copier / collé tout le code mais j'ai des lignes (29 – 44 – 75 et 79) qui apparaissent en rouge. Quand je lance le debogueur ça me marque "erreur de syntaxe".
Je remarque que "&gt" est sur toutes les lignes. avez vous une idée du problème ?
j'utilise EXCEL 2016 et 2019.
Merci pour ce travail
Cordialement
Répondre
- Martin Hudec ( Excel-Malin.com ) Auteur de l’article
  19/01/2024, 09:29
  Bonjour Jérémy,
  merci beaucoup pour cette remarque. J'ai récemment changé de module qui format les codes VBA sur mon site.
  Et visiblement, il a transformé des charactères vers leurs équivalents HTML (par exemple < a été transformé en "&lt".
  Donc le problème n'était pas avec le code VBA mais avec son affichage sur le site.
  Je viens de corriger ce bug et maintenant, tout devrait être de nouveau en ordre.
  Un grand merci de l'avoir signalé. Martin
  Répondre
  - jeremy
    19/01/2024, 11:06
    Bonjour et merci,
    En cherchant sur le net j'ai trouvé sur un site anglais la correspondance.
    Pour info :
    < correspond à
    ≤ correspond à = (supérieur ou égal)
    & correspond à &
    Attention : il y a bien un point virgule (;) après les lettres.
    Si ça peut aider quelqu'un.
    Encore merci pour ce code et les autres ça m'aide beaucoup.
    Répondre
Pierref
18/01/2024, 11:30
Bonjour,
Merci pour le code. Depuis mon passage à la nouvelle version d'outlook, la macro continue d'ouvrir la fenêtre de mail dans l'ancien Outlook. Et donc ne s'envoie pas tant que je n'ouvre pas l'ancienne version de Outlook.
Pouvez-vous nous indiquer comment modifier la macro ?
Merci
Répondre
- Martin Hudec ( Excel-Malin.com ) Auteur de l’article
  19/01/2024, 10:37
  Bonjour,
  Merci pour votre commentaire et pour avoir utilisé mon code VBA. D'après ce que vous décrivez, il semble que le problème soit lié à la façon dont mon script VBA interagit avec différentes versions d'Outlook sur votre ordinateur. Lorsque le script utilise les commandes GetObject ou CreateObject pour créer une instance d'Outlook, il se connecte probablement par défaut à une ancienne version d'Outlook que vous avez installée.
  Voici quelques pistes de solution :
  Désinstaller les Anciennes Versions d'Outlook : La manière la plus simple de résoudre ce problème pourrait être de désinstaller les anciennes versions d'Outlook de votre ordinateur. Ainsi, le script se connectera directement à la seule version disponible, qui serait la plus récente.
  Modifier le Registre de Windows : Cette méthode est plus complexe et consiste à modifier les paramètres du registre de votre système pour définir la dernière version d'Outlook comme celle par défaut. Cependant, cette opération comporte des risques et n'est pas recommandée pour tous les utilisateurs, car une mauvaise manipulation peut affecter le fonctionnement de votre système.
  Référence Directe à une Version Spécifique d'Outlook : Une autre solution serait de modifier le script pour qu'il crée un objet d'une version spécifique d'Outlook. Cela implique de connaître précisément quelle version d'Outlook vous utilisez, mais cela pourrait poser des problèmes de compatibilité avec d'autres utilisateurs ayant des versions différentes.
  Je vous conseille de commencer par la première solution, qui est la plus simple. Si le problème persiste, il faudra envisager les autres options, plus complexes. N'hésitez pas à revenir vers moi si vous avez besoin d'assistance supplémentaire.
  Cordialement, Martin
  Répondre
Rv
30/05/2024, 12:43
Bonjour, malheureusement les mails ne fonctionnent plus avec la nouvelle version d'outlook
version 1.2024.513.200 (Production).
Version du client est 20240517003.17 .
je suis à la recherche d'une mise à jour de cette macro mail
Merci
Répondre
- Martin Hudec ( Excel-Malin.com ) Auteur de l’article
  30/05/2024, 21:11
  Bonjour,
  effectivement, ces macros ne fonctionnent plus avec le "nouveau Outlook".
  C'est dû tout simplement au fait que le "nouveau Outlook" ne supporte plus VBA.
  Microsoft semble vouloir se tourner vers les technologies "web" comme le javascript etc.
  Donc malheureusement, aucune mise-à-jour de ces macros ne résoudra ce problème…
  Si vous souhaitez pouvoir utiliser VBA dans Outlook, il faut continuer à utiliser "l'ancienne version" de celui-ci.
  Répondre
Emma FRAYSSENEDE
20/06/2024, 11:19
Bonjour,
Merci pour ce tuto très utile.
Cependant, je n'arrive pas à changer l'adresse de l'expéditeur. Lorsque je sélectionne la macro et que je l'exécute, l'email s'envoie depuis mon adresse mail(email2) et non depuis celle que j'ai indiquée(email1).
J'ai pourtant recopié le code tel que vous l'avez rédigé ici.
Le problème vient-il de mon code où bien y a t il des paramètres à modifier au niveau de la boite mail de la personne expéditeur pour que le fichier soit autorisé à envoyer des emails en son nom ?
Voici mon code, si jamais vous pouviez m'aider à trouver d'où vient le problème, je vous en serais très reconnaissante. Etant en alternance, il faudrait que le mail puisse être envoyé depuis une autre adresse quand je quitterai l'entreprise. Merci d'avance !
Sub EmailRappelImpressionGNAO()
'test envoi de l'email sans pièce jointe
Call EnvoyerEmail("Rappel", "email2", "Imprimer le formulaire ", "email1")
End Sub
Sub EnvoyerEmail(ByVal Sujet As String, ByVal Destinataire As String, ByVal ContenuEmail As String, AdresseExpediteur As String)
On Error GoTo EnvoyerEmailErreur
'définition des variables
Dim oOutlook As Outlook.Application
Dim oMailItem As Outlook.MailItem
'vérification si le Contenu du mail n'est pas vide. Si oui, email n'est pas envoyé. Si vous voulez pouvoir envoyer les email vides, mettez en commentaire les 4 lignes de code qui suivent.
If Len(ContenuEmail) = 0 Then
MsgBox "Mail non envoyé car vide", vbOKOnly, "Message"
Exit Sub
End If
'préparer Outlook
PreparerOutlook oOutlook
Set oMailItem = oOutlook.CreateItem(0)
'création de l'email
With oMailItem
.To = Destinataire
.Subject = Sujet
'CHOIX DU FORMAT
'———————-
'email formaté comme HTML (aussi par défaut)
.BodyFormat = olFormatHTML
.HTMLBody = "" & ContenuEmail & ""
'———————-
If AdresseExpediteur "" Then
Dim CompteOutlook As Outlook.Account
For Each CompteOutlook In oOutlook.Session.Accounts
If CompteOutlook.SmtpAddress = AdresseExpediteur Then ' <– modifiez l'adresse
.SendUsingAccount = CompteOutlook
Exit For
End If
Next CompteOutlook
Else
End If
.Save '<- sauvegarde l'email avant l'envoi (pour ne pas le sauvegarder, mettez cette ligne en commentaire)
.Send ' 0) Then 'si Outlook n'est pas ouvert, une instance est ouverte
Err.Clear
Set oOutlook = CreateObject("Outlook.Application")
If (Err.Number > 0) Then
MsgBox "Une erreur est survenue lors de l'ouverture de Outlook…"
Exit Sub
Else
End If
Else 'si Outlook est ouvert, l'instance existante est utilisée
End If
End Sub
Répondre