Envoyer un Mail par VBA via gmail

Version imprimable

1 pièce(s) jointe(s)

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:

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

Pièce jointe 546466

Merci d'avance de votre aide.

A bientôt

1 pièce(s) jointe(s)

Autre code

Avec un autre code :

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

Pièce jointe 546467

Je ne sais pas quoi faire ....

Merci

17/03/2020, 08h30
loufab
Bonjour,

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

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,
17/03/2020, 10h19
MikeLi

1 pièce(s) jointe(s)
Bonjour,
Merci pour la réponse.

toujours le meme message d'erreur.
Code:

1 2 3 MyMail.From = """Mon_Nom""monAdresse@gmail.com" ' Destinataire MyMail.To = """Nom_Destinataire""AdresseDestinataire@domaine.com"
Débogage
Pièce jointe 546533

Merci
17/03/2020, 12h12
tee_grandbois

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à.
17/03/2020, 12h26
User

Citation:

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..
17/03/2020, 14h47
MikeLi

MERCI !

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

Vous êtes trop fort !
14/04/2020, 18h11
MikeLi
Bonjour

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

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

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...
14/04/2020, 18h24
User

Bonjour,

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

Cdlt,
14/04/2020, 18h40
MikeLi

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