email excel

[gothc]

Bonjour j'ai une macro qui fonctionne très bien mais je cherche a pouvoir envoyer cette email a plusieurs personne et de pouvoir choisir la personne à qui je l'envoi env 15 personnes

Merci de votre aide

Sub CDO_Mail_Small_Text_2()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant
Dim Fichier As String
Dim SourceWb As Workbook

Set SourceWb = ActiveWorkbook
Fichier = ThisWorkbook.Path & Application.PathSeparator & "j1.xls"

SourceWb.SaveCopyAs Fichier

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("") = True
.Item("") = 1
.Item("") = "planningdivonne01@gmail.com"
.Item("") = "mot passe"
.Item("") = "smtp.gmail.com"

.Item("") = 2
.Item("") = 465
.Update
End With

strbody = "Bonjour, Voici le fichier . Merci!"

With iMsg
Set .Configuration = iConf
.to = "email1@gmail.com"
.CC = "email2@gmail.com"
.BCC = ""
' Note: The reply address is not working if you use this Gmail example
' It will use your Gmail address automatic. But you can add this line
' to change the reply address .ReplyTo = "Reply@something.nl"
.From = """mon Nom"" <email>"

.Subject = "fichier"
.TextBody = strbody

.AddAttachment Fichier
.Send

Kill Fichier



End With
End Sub

 

[Staple1600]

RE

???
Tu n'as répondu à la question du message#14
où je te proposais de faire deux autres tests.

 

[gothc]

je fais le test quand je reviens du travail ce soir bon dimanche

 

[gothc]

Bonsoir le fil
je viens de faire le test j'ai toujours mon email dans la boite des Spams
avec les 2 exemples du message 14

un problème de sécurité je pense .
je me demande si j'envoi juste l'onglet de mon fichier Excel en format jpg peut résoudre le problème
merci de votre aide nom de l'onglet PLANNING 2017