MASSJIPE
XLDnaute Impliqué
Bonjour,
J'ai ce code pour la sélection d'une plage excel pour envoyer en corps de message outlook 2010 ce qui fonctionne bien
mais c'est pour la gestion des listes
en destinataires je vais cherche une liste dans la cellule A17 mais dans cette cellule la liste est écrite de cette façon az@a.fr;ez@r.fr;@d.com au total 10 contacts
idem pour Cc cellule A18 25 contacts ce qui n'est pas évident pour modifier les listes
quelle est le moyen le plus simple de gérer les listes
merci
J'ai ce code pour la sélection d'une plage excel pour envoyer en corps de message outlook 2010 ce qui fonctionne bien
mais c'est pour la gestion des listes
en destinataires je vais cherche une liste dans la cellule A17 mais dans cette cellule la liste est écrite de cette façon az@a.fr;ez@r.fr;@d.com au total 10 contacts
idem pour Cc cellule A18 25 contacts ce qui n'est pas évident pour modifier les listes
quelle est le moyen le plus simple de gérer les listes
merci
Code:
Sub Envoimail()
' envoi d'une plage de cellules via Outlook
' Outlook doit être démarré.
Dim Plage As Range
On Error Resume Next
Set Plage = Application.InputBox("Sélectionnez la plage à envoyer", Type:=8)
If Err.Number <> 0 Then
Err.Clear
MsgBox "Aucune plage sélectionnée"
Exit Sub
End If
On Error GoTo 0
Plage.Select
' Affiche le message dans le classeur
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
'"Item" représente un objet Outlook "MailItem".
.Item.To = Range("A17").Value
.Item.Cc = Range("A18").Value
.Item.Subject = Range("A19").Value
.Item.display
End With
End Sub