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 :
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.
28/07/2011, 10h22
Envoyer un mail d'Access via gmail ?
00
