Macro pour expédier mail

[mphilyo]

Bonjour,


Est-il possible avec une macro d'expédier x mail à partir d'un tableau.

ex:

adresse date message

aaaa@aa 10/7/56 gggggggggg


je dispose d'un tableau avec plusieurs adresses et je souhaite expédier le message lié à cette adresse ainsi que la date par exemple.

les adresses sont fournis à partir d'une base de données et le tableau peut contenir de 20 à 50 adresses.


Par avance merci pour votre coup de main.


phil

 

[JACRAV]

Re : Macro pour expédier mail

Bonsoir Mphilyo
Voici le code que j'utilise pour envoyer un mail à partir d'un ListBox et d'un TextBox sur un UF
Private Sub CommandButton1_Click()
Dim Link, dest As String
If TextBox1 = "" Then Exit Sub '((ici le text box est alimenté par un ListBox!))

dest = TextBox1.Text
Link = "mailto:" & dest
ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
End Sub
Je pense que tu peux utiliser ce code à partir d'une cellule dans laquelle figure une adresse E-Mail en remplaçant TextBox par ActiveCell et en déclenchant par un CommandButton.
Il y a sans doute mieux comme procédure mais ça marche!
Bien cordialement
Jacques