Envoyer une cellule par Windows live mail ...

[PatLac]

Bonjour à tous !
J'ai lu pas mal de message qui traite de ce sujet, mais je n'ai pas trouvé LA solution qui me convient.
Je pense que c'est très simple pour des pros, mais moi je ne le suis pas.

Donc voila :
Je désire envoyer le contenue (texte) de la cellule A1, à toutes les adresses mails contenues dans la colonne B, par exemple (1 adresse par cellule), via windows live mail, car c'est ce que j'utilise.

D'avance merci pour votre aide.

Cordialement.

 

[Roland_M]

Re : Envoyer une cellule par Windows live mail ...

bonsoir,

ceci ouvre Win Mail
s'il s'agit de mettre qq valeurs de cellules dans le corps du message c'est suffisant !?

Public Sub EnvoiMailMessagerieParDefaut()
Dim Adres$, Msg$, Sujet$, URLto$
Adres = "nom@free.fr" 'adres.destin
Sujet = "ici le sujet du msg" 'sujet msg
Msg = "ici le corps du msg" ' corps msg ici on peut mettre des valeurs de cellules ?
URLto = "mailto:" & Adres & "?subject=" & Sujet & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
DoEvents
End Sub

 

[PatLac]

Re : Envoyer une cellule par Windows live mail ...

Merci Roland !
En fait je voudrais envoyer le contenue de ma cellule A1, à toutes les adresses qui sont dans la colonne B (une par cellule) par exemple ...

Dans cet exemple, ça ouvre Windows mail ...c'est déja un début , merci .

Cordialement

 

[PatLac]

Re : Envoyer une cellule par Windows live mail ...

Tatiak merci !
Effectivement c'est fonctionnel, mais comment faire pour que le mail parte avec pour destinataire toutes les adresses mail contenues en B ?
Je mets un fichier ci-joint.

Merci.

 

[PatLac]

Re : Envoyer une cellule par Windows live mail ...

SU-PER !
Merci beaucoup, c'est génial !
Je mets ci-dessous le fichier final, si ça peut aider quelqu'un.
Bonne journée et bonne continuation à vous.

 

[PatLac]

Re : Envoyer une cellule par Windows live mail ...

C'est bon a savoir !
Merci.

 

[PatLac]

Re : Envoyer une cellule par Windows live mail ...

Bonjour !
Avec votre permission, je vais avoir besoin de vos lumières..
J'ai vu que l'on pouvait attacher une PJ au message, dans mon cas un fichier PDF, et j'ai repéré la fonction :

' .AddAttachment Chemin & NomDeFichier ' A renseigner si besoin d'envoyer un fichier attaché
.Send

Comment puis-je l'adapter à mon cas, en sachant que le fichier est sur le bureau ?

Merci d'avance.
Cordialement

 

[Yaloo]

Re : Envoyer une cellule par Windows live mail ...

Bonjour PatLac, le fil,

Si c'est toujours le même fichier, avec

.AddAttachment "C:\Users\Ton nom utilisateur\ton fichier avec l'extension"

A+

Martial

 

[PatLac]

Re : Envoyer une cellule par Windows live mail ...

Martial !
Merci c'est Nickel.
Bonne journée.