Envoyer mails avec Gmail à partir d'Excel

Version imprimable

1 pièce(s) jointe(s)

Bonjour :
Je voulais envoyer des mails avec Gmail à partir d'Excel. J'ai trouvé un programme :

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
Sub send_email_via_Gmail()
Dim myMail As CDO.Message
 
Set myMail = New CDO.Message
 
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
 
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
 
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
 
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "stg.pao@distrame.fr"
 
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "MotDePasse"
 
myMail.Configuration.Fields.Update
 
With myMail
.Subject = "Test"
.From = "stg.pao@distrame.fr"
.To = "stg.pao@distrame.fr"
.CC = "stg.pao@distrame.fr"
.BCC = ""
.TextBody = "Bonjour!"
'.AddAttachment "C:\Users\takyar\Desktop\email-via-gmail.txt"
End With
On Error Resume Next
myMail.Send
'MsgBox("Mail has been sent")
Set myMail = Nothing
 
End Sub

Il faut utiliser la librairie :
Microsoft CDO for Windows 2000 Library

Par contre, sur mon gmail :
Pièce jointe 191907
Qui aurait la solution pour le réaliser? Merci d'avance.

05/11/2015, 15h05
Invité

Bonjour,
http://www.developpez.net/forums/d14...t/#post7968025
05/11/2015, 15h48
FrancisZheng

Bonjour Rdurupt,

Merci de m'avoir répondu.

Comme je ne vais pas utiliser Outlook, votre code CDO me semble intéressant. En gros, vous avez crée une procédure MailEnvoi.

par contre est-ce qu'il y a juste cette ligne à adapter?

Code:

MailEnvoi "smtp.googlemail.com", True, "My.Mail@gmail.com", "Pasw", 465, 10, "My.Mail@gmail.com", "Vous.Mail@gmail.com", "Copy@gmail.com", "Suivi des modifications.", "tel truc a été modifile", ""
05/11/2015, 15h52
Invité

oui exactement

1 pièce(s) jointe(s)

Alors c'est comme cela?

Code:

1
2
3
4
5
6
7
8
MailEnvoi "smtp.googlemail.com", True,    ' <----laisser
 "My.Mail@gmail.com", "Pasw",  ' <----Mon mail et mot de passe
465, 10,                        '<----laisser 
"My.Mail@gmail.com",    '<----Mon mail pour tester
"Vous.Mail@gmail.com",   '<----Mon mail pour tester
"Copy@gmail.com",           'rien
"Suivi des modifications.",       '<---- Bonjour
"tel truc a été modifile", ""  '<----Bonjour

Cela me donne :Pièce jointe 191921

05/11/2015, 16h15
Invité

il faut souvent modifier les paramètres du port comme dans Thunderbird!

https://support.google.com/a/answer/176600?hl=fr
05/11/2015, 16h38
FrancisZheng

1 pièce(s) jointe(s)

D'accord. Mais j'ai pas bien compris ce qu'il faut faire concrètement pour le port 465 et 10 ici :
Pièce jointe 191926
05/11/2015, 16h40
Invité

regarde la configuration de ton client Mail Outlook ou autre!
05/11/2015, 16h57
FrancisZheng

C'est à dire? J'ai toujours pas compris.
05/11/2015, 17h07
Invité

2 pièce(s) jointe(s)

Pièce jointe 191931

Pièce jointe 191933
05/11/2015, 17h18
FrancisZheng

C'est Outlook? Mais je ne vais pas utiliser Outlook.
05/11/2015, 17h52
Invité

C'est juste pour voir sa configuration!
06/11/2015, 08h49
FrancisZheng

Donc une question bête : pour voir la configuration du serveur SMTP, il faut que je télécharge Outlook pour le faire? Même si j'ai la liste des mails sous Excel et j'utiliserai Gmail on peut pas le faire autrement?

Bonjour à tous :

J'ai trouvé la solution. Avant d'envoyer des mails, il faut autoriser votre envoie sur gmail: https://www.google.com/settings/security/lesssecureapps

Cochez la case "Activer".

Ensuite, utilisez un de ces deux codes ci-dessous :

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
Sub test1()
    Dim iMsg As Object
    Dim iConf As Object
    Dim strbody As String
    Dim Flds As Variant
 
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
 
    iConf.Load -1    ' CDO Source Defaults
    Set Flds = iConf.Fields
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "**@gmail.**"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "**"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
 
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Update
    End With
 
        With iMsg
        Set .Configuration = iConf
        .To = "**@gmail.**"
        .CC = ""
        .BCC = ""
        .from = """**"" <**@gmail.**>"
        .Subject = "Confirmation d'inscription"
        .textBody = "Bonjour "
        .Send
 
    End With
 
MsgBox "Votre message a bien été envoyé!"
 
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub test2()
Dim Mail As New Message
 
Dim Config As Configuration: Set Config = Mail.Configuration
 
Config(cdoSendUsingMethod) = cdoSendUsingPort
Config(cdoSMTPServer) = "smtp.gmail.com"
Config(cdoSMTPServerPort) = 25
Config(cdoSMTPAuthenticate) = cdoBasic
Config(cdoSMTPUseSSL) = True
Config(cdoSendUserName) = "**@gmail.**"
Config(cdoSendPassword) = "**"
Config.Fields.Update
 
Mail.To = "**@gmail.**"
Mail.from = Config(cdoSendUserName)
Mail.Subject = "Subject from VBA"
Mail.HTMLBody = "Body from VBA"
 
Mail.Send
MsgBox "Votre message a bien été envoyé!"
 
End Sub

Problème résolu.

01/04/2017, 18h34
jpbauer

Merci pour ce code qui marche bien... j'ai eu du mal à le trouver :-)

Par contre si l'on veut pousser la chose un peu plus loin est-il possible d'ajouter des pièces jointe et en particulier le fichier excel en cours ou un de ses onglets ?

Cordialement