Prgm VBA pour envoie d'emailing

[Hydromel56]

BONJOUR,
voila je voudrai faire un petit prgm sous vba (ou en C) afin de pouvoir envoyer des e-mails mais ciblé suivant les caractéristiques d'un prospect (client).
1- Alors je voudrais tout d'abord savoir comment faire pour trier et sélectionner un groupe de personnes suivant différentes caractéristique (choisissable en option): CP, Ville, Matériel...

2- Puis savoir comment envoyer des mails à partir d'excel. Si c'est possible!!

Merci d'avance
CDT

Un stagiaire breton

 

[Droussel]

Sub Macro1()
' envoiautomatique
Sheets('FEUIL1').Select


Dim ObjOutl As Object 'Déclaration des objets
Dim objSession As Object
Set ObjOutl = CreateObject('Outlook.Application') 'Création de l'objet Outlook
Set objSession = ObjOutl.GetNamespace('MAPI') 'Création de l'objet de gestion des message
Set ObjMessage = ObjOutl.CreateItem(0) 'Ajout d'un item pour le message
objSession.Logon 'Connection à Outlook

'envoi
With ObjMessage
.To = 'TARTANPION@ZZZZZZZ.FR'
.Subject = 'ESSAI '
.Body = 'Veuillez trouver ci-joint le fichier de '
.Attachments.Add 'C:\\ESSAI.xls'
.Send
End With

Set ObjMessage = Nothing
Set ObjMessage = ObjOutl.CreateItem(0) 'Ajout d'un item pour le message


'Suppression des objets (Vidage)
Set ObjMessage = Nothing
objSession.Logoff
Set objSession = Nothing
Set ObjOutl = Nothing



End Sub



CI DESSUS LE CODE POUR ENVOYER DES EMAILS DEPUIS EXCEL

a+
dENIS

 

[Hydromel56]

Merci Droussel,
jvé essayer d'adapter le code et je te redirais.
Tu ne sais pas comment faire pour pouvoir créer une liste de sélection. Je m'explique: j'ai une liste de clients (nom, contact, adresse, num...) et je voudrais pouvoir sélectionner que certains clients qui ont des caractéristiques précises choisissable en cochant des cases. Je sais pas si je me fais bien comprendre???
En te remerciant une nouvelle fois.

@+ dans le bus