Bonjour,

J'essaye de faire un petit outil pour envoyer des mails à partir de EXCEL.

Je bute sur une erreur sur le .send avec l'erreur <<La valeur de la configuration "SendUsing" est non valide>>
Je n'arrive pas à afficher de l'aide sur ce truc là.

ci dessous le code concerné:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub EnvoiMail()
 
    Dim MaCell As Range
    Dim CdoMessage As Object
 
     Set CdoMessage = CreateObject("CDO.Message")
 
' Je lis la feuille
    For Each MaCell In Worksheets("Données mail").Range(Cells(2, 1), Cells(2, 1).End(xlDown))
 
    With CdoMessage
        .Subject = MaCell.Offset(0, 1)
        .From = "ch_chaix@yahoo.fr"
        .To = MaCell.Value
        .CC = ""
        .BCC = ""
        .TextBody = MaCell.Offset(0, 2)
        .AddAttachment MaCell.Offset(0, 3)
        .Send
    End With
 
    Set CdoMessage = Nothing
 
        Next MaCell
    Exit Sub
 
End Sub