Bonjour,

J'ai recupéré ce bout de code sur internet :

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
28
29
30
31
32
33
Option Compare Database
 
Public Function EnvoiMail(De As String, From As String, Sujet As String, Texte As String)
Dim iMsg As New CDO.Message
Dim iConf As New CDO.Configuration
Dim Flds As ADODB.Fields
Set Flds = iConf.Fields
 
With Flds
  .Item(cdoSendUsingMethod) = cdoSendUsingPort
  .Item(cdoSMTPServerName) = "192.168.1.2" ' Si vous utilisez la librairie CDO pour exchange
  '.Item(cdoSMTPServerName) = "un serveur SMTP"    ' Si vous utilisez la librairie CDO pour Windows 2000
  .Item(cdoSMTPConnectionTimeout) = 10
  .Item(cdoSMTPAuthenticate) = cdoBasic
  .Item(cdoSendUserName) = "aaaaaaa@aaaaaaa.com"
  .Item(cdoSendPassword) = "123456"
  .Item(cdoURLProxyServer) = "server:80"
  .Item(cdoURLProxyBypass) = "<local>"
  .Item(cdoURLGetLatestVersion) = True
  .Update
End With
 
With iMsg
  Set .Configuration = iConf
      .To = De
      .From = From
      .Subject = Sujet
      .TextBody = Texte
      '.AddAttachment "C:\un fichier quelconque"
      .Send
End With
 
End Function
Et ca ne fonctionne pas, j'ai une erreur a l'execution sur le
Code : Sélectionner tout - Visualiser dans une fenêtre à part
.update

Erreur de compilation :
Membre de méthode ou de données introuvable


J'ai pourtant bien ajouté la réference à Microsoft CDO for Windows 2000 Library...