Macro excel pour envoyer des mails avec des contenus de cellules

Hardy25 Messages postés 4 Statut Membre -  
Heliotte Messages postés 1561 Statut Membre -
Bonjour,

Je suis débutante en programmation de macro.

J'aimerais en créer une sous excel (2003) pour envoyer des mails (à partir d'une boîte outlook 2003) avec des contenus de cellules associés.
Colonne A : liste des adresses mails
Colonne B : toujours le même message, à savoir "Dernière semaine saisie"
Colonne C : numéro d'une semaine, spécifique donc à chaque adresse mail de la colonne A.

Je viens de passer la matinée à essayer de décortiquer le visual basic de macros, mais je pense qu'elles ramènent plus de données que celles dont j'ai besoin et je me perds dans les différents programmes ...

Je vous remercie.
A voir également:

2 réponses

G_33
 
bonjour
voiçi un Tuto qui m'a l'air utile

http://excel.developpez.com/faq/?page=Messagerie#PlageCellulesMail

Bonne suite
0
Hardy25 Messages postés 4 Statut Membre
 
Merci beaucoup.
Je vais pouvoir me plonger dans la programmation !
0
Heliotte Messages postés 1561 Statut Membre 92
 
Bonjour Hardy25,

pour envoyer un mail, le plus simple est de l'écrire en HTML.

Il faut, pour un mail,
- sélectionner la ligne, par exemple, la ligne 43
- puis, par colonne, sélectionner la cellule, ajouté sa valeur ...

exemple:
// créer un tableau {table} + ajouter une ligne au tableau {tr}
ChaineHTML = ChaineHTML & "<table><tr halign='middle' nowrap>"

// faire une boucle sur les trois colonnes (colonne A, B et C par exemple)
For i = 1 to 3

// ajouter une cellule (colonne){td} + la cellule de la colonne souhaitée {Cells(NumeroLigne, NumeroColonne)} + fermer la cellule
ChaineHTML = ChaineHTML & "<td align='center'><font color='black>" & Cells(NumeroLigne, NumeroColonne) & "</font></td>"

// fermer la boucle
Next i

// fermer la ligne
ChaineHTML = ChaineHTML & "</tr>"

// fermer le tableau
ChaineHTML = ChaineHTML & "</table>"
-1