[VBA-A] Envoi de mail sans passer par Outlook ou autre.
Bonjour,
J'ai recupéré ce bout de code sur internet :
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 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
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...