Discussion :

[genius99]

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

[SfJ5Rpw8]

que vient faire ADODB ici ?

[genius99]

Comme dis precedemment, je ne suis pas l'auteur de ce code.
Et vu que je ne connais pas tres bien les ressources utilisées pour ce code, je ne connais pas non pus les raisons de l'utilisation de cette méthode.

[SfJ5Rpw8]

essai de remplacer

Code :

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

Dim Flds As ADODB.Fields

par

Code :

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

Dim Flds

:

[genius99]

Oui, ca marche

Merci a toi!