Discussion :

[dragonfly]

Bonjour à tous, je suis nouveau dans la programmation VB Access et je voudrais savoir comment faire pour envoyer un mail automatiquement, j'ai été sur la FAQ, j'ai donc ce code ci :

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
 
Dim iConf As Object
Dim Flds As ADODB.Fields
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = CDO.cdoSendUsingPort
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxxx.Xxxxxx.fr"
    .Update
End With
 
Dim iMsg As CDO.Message
Set iMsg = New CDO.Message
 
With iMsg
    Set .Configuration = iConf
    .To = "xxxxx@xxxx.com"
    .From = "xxx@xxxx.com"
    .Subject = "Création de site FTP"
    .TextBody = "Veuillez créer le site FTP pour l'étude :"
    .Send
End With

Lorsque je fais cela, j'ai cette erreur sur le .update :
Membre de données ou de méthoide introuvable.

Du coup je regarde une autre solution, j'ai trouvé celle-ci :

Code :

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

1
2
3
4
5
6
7
8
9
10
Set objMail = CreateObject("CDO.Message")
 
objMail.Subject = "Création de site FTP"
objMail.Sender = "xxxxx@xxx.com"
objMail.To ="xxx.xxxxx.@xxx.xx"
objMail.TextBody = "Corps du message"
objMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxx.xxxx.frr"
 
objMail.Send

La aucune erreur, mais aucun mail ne s'envoie, rien ne se pass.

Comment faire dois-je rajouter des .dll (j'ai regardé j'ai bien cdo.dll et cdosys.dll) ???

Sinon quelqu'un pourrais-t-il me dire ou j'ai merdé ?
Ca fiat un piti moment que je regarde sur le net mais rien (et puis le winsock sa m'a l'air d'être le bordel).

MERCI d'avance

[micniv]

As-tu seulement déclaré dans tes references qqch comme :
Microsoft CDO 1.xx Library
?

[dragonfly]

Re

J'ai declaré :
Microsoft CDO for windows 2000 library
Bibliotheque microsoft CDO 1.21

Mais toujours rien

[micniv]

De mon coté, je ne mets que

Code :

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

Microsoft CDO 1.21 Library

et ca suffit comme reference

[dragonfly]

J'ai trouvé, je suis tombé sur le topic de forum :
http://www.developpez.net/forums/sho...d.php?t=102596

En fait j'ai pris la solution avec l'erreur du update (post 1 solution 1) et j'ai enlevé le :
As ADODB.Fields

Ce qui donne :

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
 
Dim iConf As Object
Dim Flds 
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxxx.Xxxxxx.fr"
    .Update
End With
 
    Dim iMsg
    Set iMsg = CreateObject("CDO.Message")
 
With iMsg
    Set .Configuration = iConf
    .To = "xxxxx@xxxx.com"
    .From = "xxx@xxxx.com"
    .Subject = "Création de site FTP"
    .TextBody = "Veuillez créer le site FTP pour l'étude :"
    .Send
End With

Et ca marche tout beau tout propre.
MERCI

Bonne année à tous aussi (j'avais oublié)