[XL-2016] Pb syntaxe VBA envoi message outlook

Pb syntaxe VBA envoi message outlook

Bonjour,

J'ai un problème dans la syntaxe d'un macro qui me permet d'envoyer une feuille Excel en mail via Outlook.

Le message part bien mais l'objet reste vide ou affiche des caractères sibyllins.
Voici le texte de ma macro.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub SendMail() ' Copy the sheet(1) ActiveSheet.Copy ' Send Email With ActiveWorkbook .SendMail Recipients:=Array(ActiveSheet.Range("adresse_mail").Value), Subject:=ActiveSheet.Range("chantier").Value & " code " & ActiveSheet.Range("A3").Value, _ ReturnReceipt:=False 'True .Close SaveChanges:=False End With End Sub
Si quelqu'un a une solution, je suis preneur.
Merci, bonne journée.
Cordialement

Bonjour,

J'ai trouvé une autre solution sur le forum excel pratique (merci à lermite). De plus elle supprime le message de confirmation d'envoi d'Outlook.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 'Il faut activer la référence "Microsoft Outlook Library" Avant de lancer cette macro,
    ' Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
    Sub Envoyer_Mail_Outlook()
    Dim ObjOutlook As New Outlook.Application
    Dim oBjMail
    Dim Nom_Fichier As String
 
        Set ObjOutlook = New Outlook.Application
        Set oBjMail = ObjOutlook.CreateItem(olMailItem)
    '---------------------------------------------------------
       'Exemple pour envoyer un classeur en pièce jointe
       'Nom_Fichier = Application.GetOpenFilename("Fichier excel (*.xls;*.xlsx;*.xlsm), *.xls;*.xlsx;*.xlsm")
       'If Nom_Fichier = "Faux" Then Exit Sub
    '---------------------------------------------------------
       'Ou bien entrer le path et nom du fichier autrement
       Nom_Fichier = "C:\Users\JoDan\Desktop\Mouvement materiel.xlsm"
        If Nom_Fichier = "" Then Exit Sub
    '---------------------------------------------------------
         With oBjMail
            .To = ActiveSheet.Range("adresse_mail").Value ' le destinataire
           .Subject = ActiveSheet.Range("T10").Value        ' l'objet du mail
           .Body = "Envoi mvt"  'le corps du mail ..son contenu
           '.Attachments.Add Nom_Fichier '"C:\Data\essai.txt" ' ou Nomfichier
           '.Display  '   Ici on peut supprimer pour l'envoyer sans vérification
           .Send
        End With
        ObjOutlook.Quit
        Set oBjMail = Nothing
        Set ObjOutlook = Nothing
    End Sub

Bonne journée,
Cordialement

Intéressant, merci pour l'info.
Cordialement,