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