Discussion :

[Mikadox]

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

[Jean-Philippe André]

salut,
en tapant simplemant CDO dans la on trouve une réponse à ta question :
http://excel.developpez.com/faq/inde...urExecutionCDO

[Mikadox]

Bonjour,

Je ne sais pas comment préciser le serveur; je suis dans un contexte professionnel; je ne sais pas trop comment c'est paramétré.
Mais, me semble t-il, si j'ai OUTLOOK ouvert cela devrait fonctionner?

Christian

[Mikadox]

Bonjour,

j'ai un peu progreessé mal je bloque toujours sur un problème :

J'ai maintenant un message "le transport a échoué dans sa connexion au serveur"
ci-dessous le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
.Subject = "Essai"
        .From = "moi@moije.com"
        .To = "moi@moije.com"
        .CC = ""
        .BCC = ""
        .TextBody = "Texte essai"
        '.AddAttachment MaCell.Offset(0, 3)
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.monsmtp.com"
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 3128
        .Configuration.Fields.Update
 
        .Send

Quelqu'un peut-il m'aider? je sens que je suis pas loin du but...

[AlainTech]

Bonjour,

Ton serveur smtp ne demande-t-il pas une identification?