LINO60POST
XLDnaute Occasionnel
Bonjour le Forum,
Dans le morceau de code ci-dessous, l'envoi indique un seul destinataire.Mais est-il possible de mettre plusieurs destinataire et comment?
Merci d'avance pour l'aide que vous m'apporterez
With iMsg
Set .Configuration = iConf
.To= 'delphine.deleplace@laposte.fr' 'destinataire
.Subject = 'Analyse' 'sujet
If Month(Date) - 1 = 12 Then annees = Year(Date) - 1 Else annees = Year(Date)
.HTMLBody = 'Ci joint l'analyse du mois de ' & MonthName(Month(Date) - 1) & ' ' & annees
'corps du message
Set iBP = iMsg.AddAttachment(ThisWorkbook.Path & '\\' & Fichier) ' piece jointe
.Send 'envoi
' l'envoi se fait sans message de confirmation et sans copie dans les elements envoyés
End With
Application.ScreenUpdating = True
End Sub
PS: Ce code a été écrit par MichelXld et modifié par Hervé.
Avec toute mon amitié
Lino
Dans le morceau de code ci-dessous, l'envoi indique un seul destinataire.Mais est-il possible de mettre plusieurs destinataire et comment?
Merci d'avance pour l'aide que vous m'apporterez
With iMsg
Set .Configuration = iConf
.To= 'delphine.deleplace@laposte.fr' 'destinataire
.Subject = 'Analyse' 'sujet
If Month(Date) - 1 = 12 Then annees = Year(Date) - 1 Else annees = Year(Date)
.HTMLBody = 'Ci joint l'analyse du mois de ' & MonthName(Month(Date) - 1) & ' ' & annees
'corps du message
Set iBP = iMsg.AddAttachment(ThisWorkbook.Path & '\\' & Fichier) ' piece jointe
.Send 'envoi
' l'envoi se fait sans message de confirmation et sans copie dans les elements envoyés
End With
Application.ScreenUpdating = True
End Sub
PS: Ce code a été écrit par MichelXld et modifié par Hervé.
Avec toute mon amitié
Lino