liste mail

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

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
 

Paf

XLDnaute Barbatruc
Re : liste mail

Bonjour,

peut être par une Userform contenant:

une Listbox remplie par ListBox1.List = Split(Range("A17"), ";")
un Label ou une textbox recevant les contacts sélectionnés par double clic sur la listbox
un boutons qui initialise une variable (de portée globale) avec le contenu du Label ou de la listbox

et on initialise .Item.To = variable

A+
 

Discussions similaires

Réponses
3
Affichages
415

Statistiques des forums

Discussions
311 729
Messages
2 081 971
Membres
101 852
dernier inscrit
dthi16088