Envoyer un Mail par VBA via gmail

**MikeLi** · 17/03/2020, 00h47

Bonjour,

J'ai cherché sur les différentes discutions un code pour envoyer un mail. Malheureusement toutes les discutions sont close et j'ai une erreur dans le miens.

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
Sub EnvoiMail()
    'Add the Project Reference Microsoft CDO WINDOWS FOR 2000
    Dim cdo_msg As New CDO.Message
 
    'configuration message
    cdo_msg.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
    cdo_msg.Configuration.Fields(cdoSMTPConnectionTimeout) = 60
    cdo_msg.Configuration.Fields(cdoSendUsingMethod) = cdoSendUsingPort
    cdo_msg.Configuration.Fields(cdoSMTPServerPort) = 465
    cdo_msg.Configuration.Fields(cdoSMTPAuthenticate) = cdoBasic
    cdo_msg.Configuration.Fields(cdoSMTPUseSSL) = True
    cdo_msg.Configuration.Fields(cdoSendUserName) = "Mon_ID"
    cdo_msg.Configuration.Fields(cdoSendPassword) = "Mon_PW"
    cdo_msg.Configuration.Fields.Update
 
    'remplissage et envoi message
    cdo_msg.To = "emai@gmail.com"
    cdo_msg.From = "emai@gmail.com"
    cdo_msg.Subject = "filename Sent to www.???.com "
    cdo_msg.TextBody = "File FTP LOG ATTACHED."
'    cdo_msg.AddAttachment ("C:\Users\nnnnnn\Documents\classeur1.xls")
    cdo_msg.Send
 
    'libération objet message
    Set cdo_msg = Nothing
End Sub

Nom : test.png
Affichages : 1257
Taille : 23,2 Ko

Merci d'avance de votre aide.

A bientôt

**MikeLi** · 17/03/2020, 00h51

Avec un autre code :

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
66
' ---------------------------------------------------------
' Email html par Gmail
' ---------------------------------------------------------
Function TestCDOsys_2()
' 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 = "monAdresse@gmail.com"
Const strMailUserPwd = "mon-mot-de-passe"
 
' Crée un nouvel objet email
Set MyMail = New CDO.Message
' Émetteur (Facultatif)
MyMail.From = """Mon Nom"" <monAdresse@gmail.com>"
' Destinataire
MyMail.To = """Nom Destinataire"" AdresseDestinataire@domaine.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 Function

Nom : test2.png
Affichages : 1239
Taille : 17,1 Ko

Je ne sais pas quoi faire ....

Merci

**loufab** · 17/03/2020, 08h30

Bonjour,

Le message d'erreur est clair les adresses que tu fournis ne respectent pas la norme.

Code :

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

1
2
3
MyMail.From = """Mon Nom"" <monAdresse@gmail.com>"
' Destinataire
MyMail.To = """Nom Destinataire"" AdresseDestinataire@domaine.com"

Si tu commençais par utiliser des adresses valides comme tu l'as fait dans ton premier code.

Cordialement,

**MikeLi** · 17/03/2020, 10h19

Bonjour,
Merci pour la réponse.

toujours le meme message d'erreur.

Code :

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

1
2
3
MyMail.From = """Mon_Nom""monAdresse@gmail.com"
' Destinataire
MyMail.To = """Nom_Destinataire""AdresseDestinataire@domaine.com"

Débogage

Nom : test3.png
Affichages : 1152
Taille : 2,3 Ko

Merci

**tee_grandbois** · 17/03/2020, 12h12

bonjour,
2 causes possibles:
- le port 465 ne fonctionne pas, il faut essayer le port 25, comme indiqué dans ce post

- Mais ATTENTION: comme Gmail a renforcé sa sécurité, il est donc possible que le problème puisse venir de là.

**User** · 17/03/2020, 12h26

Envoyé par tee_grandbois

- Mais ATTENTION: comme Gmail a renforcé sa sécurité, il est donc possible que le problème puisse venir de là

J'ai eu aussi des soucis de ce type récemment..

**MikeLi** · 17/03/2020, 14h47

MERCI !

La solution était là. "Securité gmail"

Vous êtes trop fort !

**MikeLi** · 14/04/2020, 18h11

Bonjour

J'utilise le code ci-dessus. Il fonctionne bien.

Seulement, je voudrai ajouter une autre pièce jointe.

Code :

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

1
2
3
 
 cdo_msg.AddAttachment ("C:\Fichier1.txt")
 cdo_msg.AddAttachment ("C:\Fichier2.txt")

Quand je l'utilise comme ça, ça ne fonctionne pas... Erreur
j'ai regardé plusieurs forum, mais rien...

Merci beaucoup...

**User** · 14/04/2020, 18h24

Bonjour,

On peut avoir le code complet et le message d'erreur ?

Cdlt,

**MikeLi** · 14/04/2020, 18h40

Dsl fausse alerte.

Ça fonctionne comme ça.
Mon erreur est que le fichier est trop lourd pour gmail..

Si vous avez la solution je suis preneur.

Merci beaucoup

Envoyer un Mail par VBA via gmail

VBA Access

Discussions similaires

Partager

Partager