Envoi mails automatiques

Version imprimable

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:

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

24/05/2012, 17h02
Jean-Philippe André

salut,
en tapant simplemant CDO dans la :faq: on trouve une réponse à ta question :
http://excel.developpez.com/faq/inde...urExecutionCDO
29/05/2012, 11h03
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

envoi mails automatiques (suite)

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:

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...

02/06/2012, 13h17
AlainTech

Bonjour,

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