Discussion :

[FrancisZheng]

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

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

Qui aurait la solution pour le réaliser? Merci d'avance.

[Invité]

Bonjour,
http://www.developpez.net/forums/d14...t/#post7968025

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

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

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

[Invité]

oui exactement

[FrancisZheng]

Alors c'est comme cela?

Code :

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

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 :

[Invité]

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

https://support.google.com/a/answer/176600?hl=fr

[FrancisZheng]

D'accord. Mais j'ai pas bien compris ce qu'il faut faire concrètement pour le port 465 et 10 ici :

[Invité]

regarde la configuration de ton client Mail Outlook ou autre!

[FrancisZheng]

C'est à dire? J'ai toujours pas compris.

[Invité]

[FrancisZheng]

C'est Outlook? Mais je ne vais pas utiliser Outlook.

[Invité]

C'est juste pour voir sa configuration!

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

[FrancisZheng]

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 :

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

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

[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