Discussion :

[arthur83fr]

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

[halaster08]

Bonjour,

Montre donc le code que tu utilise pour l'envoi d'un mail (entre balise code de préférence) tu auras certainement plus de réponse.

Pour ma part j'envoie les mails avec Outlook, pour en envoyer a plusieurs personnes il suffit de tous les mettre en destinataires avec un ; comme séparateur, il est fort probable que ça marche de la même manière pour gmail

[arthur83fr]

effectivement plusieurs adresses mail avec un ";" entre chaque et cela fonctionne
merci