Envoyer un mail à plusieurs destinataire en CCi

Bonjour à tous,

je cherche une macro pour envoyer un mail à plusieurs destinataires en même temps depuis excel et que cela se fasse en CCi. Les adresses mails figurent chacune dans une cellule (par ex. A1 moi@moi.com A2 lui@moi.com etc...)

J'ai trouvé cette macro, mais elle joint le fichier avec le mail, ce que je ne veux pas... :

Sub test()

Dim MailAd As Variant

MailAd = Array("mimi@test.fr", "riri@test.fr", "fifi@test.fr")
Application.Dialogs(xlDialogSendMail).Show MailAd
End Sub

Merci d'avance !

-- Jeu Déc 03, 2009 12:19 pm --

J'ai aussi trouvé ce code :

Sub Macro1()

cel_a_prendre = "moi@moi.com ; lui@moi.com"

HyperLien = "mailto:" & cel_a_prendre & "?"
ActiveWorkbook.FollowHyperlink HyperLien

End Sub

Mais là aussi, ça ne va pas en CCI sous outlook et de plus je dois insérer les adresses mail dans visual basic....

Bonjour

Edit: Excuse, je me suis trompé de Code.Voici le Nouveau.

Reste plus qu'à trouver un bénévole "VBAiste" qui ajoutera les Cc

A tester

l'adresse est dans la cellule D1, le sujet dans la D2 et le texte dans la D3

Sub EnvoiUnMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("d1")
Subj = Range("d2")
Msg = Msg & Range("d3")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

Source: http://dj.joss.free.fr/feuil.htm

Cordialement

En fait, c'est surtout le cci qui serait le top...

Bonjour

Message pour relancer le sujet

Alors les spécialistes VBA ? Aux abonnés absents?

Cordialement à vous

Bonsoir

Le code est

Sub EnvoiUnMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String, CC As String
MailAd = Range("d1")
Subj = Range("d2")
Msg = Msg & Range("d3")
CC = Range("D4")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&cc=" & CC & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

Cordialement

Bonjour,

ce code fonctionne, mais les adresses "D4" sont en CC dans outlook et pas en CCi...

Quelqu'un à une idée

Bonjour vinzu

VBA n'est pas mon fort, alors, comme personne ne réponds, je cherche...

Bon, nous avions les CC

Ici, nous avons les CCi, mais par contre, plus les CC mais, quelqu'un viendra nous écrire la ligne qui manque pour avoir les 2.

Sub EnvoiUnMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String, Bcc As String
MailAd = Range("d1")
Subj = Range("d2")
Msg = Msg & Range("d3")
Bcc = Range("D5")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&Bcc=" & Bcc & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

Cordialement

EXTRA

Merci beaucoup et bonne fin de journée