Bonjour à tous,

J'ai le même problème que "jsacre" dans cette discussion et exactement le même besoin,
Sauf que access me renvoie le message suivant:

"le serveur a rejeté l'adresse de l'expéditeur. la réponse du serveur était: 530.5.5.1
http://mail.google.com/support/bin/answer.py?answer=14257"


J'ai testé le programme fourni par LedZeppII avec mes paramètres de connection juste pour voir et la aussi ca bug.

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Private Sub Commande34_Click()
' Email html par Gmail
' ---------------------------------------------------------
' Microsoft CDO Library for windows 2000
Dim MyMail As CDO.Message
Dim cdoConf As CDO.Configuration
' SMTP GMAIL
Const strSMTPserver = "smtp.gmail.com"
Const strSMTPport = 465
Const strMailUserName = "a.tutu@titi.com"
Const strMailUserPwd = "tutu"
 
' Crée un nouvel objet email
Set MyMail = New CDO.Message
' Émetteur (Facultatif)
MyMail.From = "a.tutu@titi.com"
' Destinataire
MyMail.To = "t.tutu@tutu.com"
' Sujet
MyMail.Subject = "Test CDOSYS"
' Copies (Facultatif)
'MyMail.CC = CopieCarbonne
'MyMail.BCC = CopieCarbonneCachee
 
' Message HTML
'   En-tête du message HTML
MyMail.HTMLBody = _
"<html><head></head><body>"
'   Message
MyMail.HTMLBody = MyMail.HTMLBody & _
"Bonjour" & "<br>" & vbCrLf & "Comment ça va ?<br>" & vbCrLf & _
"<br>" & vbCrLf & _
"<a href=""http://www.developpez.net/forums/d1095248/logiciels/microsoft-office/access/envoyer-mail-daccess-via-gmail/"">Envoyer un mail d'Access via gmail</a><br>" & vbCrLf
'   Fin du message HTML
MyMail.HTMLBody = MyMail.HTMLBody & _
"</body></html>"
 
' Fichier(s) à attacher
'MyMail.AddAttachment "C:\WINDOWS\dsofile.txt"
'MyMail.AddAttachment "C:\WINDOWS\Rhododendron.bmp"
 
' Configuration méthode d'envoie
Set cdoConf = MyMail.Configuration
'   Choix de la méthode d'envoie
'       cdoSendUsingPort   : SMTP à travers le réseau
'                            il faut renseigner cdoSMTPServer et cdoSMTPServerPort
'       cdoSendUsingPickup : Service SMTP local
cdoConf.Fields(CDO.CdoConfiguration.cdoSendUsingMethod) = CDO.CdoSendUsing.cdoSendUsingPort
'   Nom serveur SMTP
cdoConf.Fields(CDO.CdoConfiguration.cdoSMTPServer) = strSMTPserver
'   Port serveur SMTP
cdoConf.Fields(CDO.CdoConfiguration.cdoSMTPServerPort) = strSMTPport
'   Activation SSL True.False
cdoConf.Fields(CDO.CdoConfiguration.cdoSMTPUseSSL) = True
 
' Nom et mot de passe de l'utilisateur se connectant au serveur SMTP
cdoConf.Fields(CDO.CdoConfiguration.cdoSendUserName) = strMailUserName
cdoConf.Fields(CDO.CdoConfiguration.cdoSendPassword) = strMailUserPwd
 
cdoConf.Fields.Update
 
' Envoyer l'email
MyMail.Send
 
End Sub

Merci d'avance.