bonjour,
toute la question est dans le titre.
je sais envoyer 1 mail a 1 personne avec vba excel et gmail, mais je sèche pour faire un mailling.
j'ai écumé le net mais je trouve pas de solution.
avez vous une piste ?

merci d'avance

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
 
Sub send_email_via_Gmail_Bienvenue()  ' Procedure d'envoi Mail de bienvenue
 
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") = 465
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "toto@gmail.com"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "azerty"
myMail.Configuration.Fields.Update
 
With myMail
.Subject = "Test Email from Test Prog Gest TSCP"
.From = "toto@gmail.com"
.To = UserForm1.TextBox9_Mail.Value               ' une adresse mail                      
.CC = ""                                                                
.BCC = ""
.TextBody = "Le TSCP vous souhaite la bienvenue." & vbCrLf & " " & vbCrLf & " La Présidente "
'.AddAttachment "C:\Users\takyar\Desktop\email-via-gmail.txt"       ' si une piece jointe doit etre envoyée
End With
 
On Error Resume Next
myMail.Send
MsgBox ("Le Mail a été envoyé")
Set myMail = Nothing
 
End Sub