Envoyer une cellule par Windows live mail ...

Roland_M

XLDnaute Barbatruc

• 2 Février 2014

• #2

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 !?

Code:

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

 

Vote positif 0 Vote négatif

PatLac

XLDnaute Occasionnel

• 2 Février 2014

• #3

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

 

Vote positif 0 Vote négatif

PatLac

XLDnaute Occasionnel

• 3 Février 2014

• #4

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.

 

Pièces jointes

• Classeur1.xlsm

  19.1 KB · Affichages: 51
• Classeur1.xlsm

  19.1 KB · Affichages: 46
• Classeur1.xlsm

  19.1 KB · Affichages: 51

Vote positif 0 Vote négatif

PatLac

XLDnaute Occasionnel

• 3 Février 2014

• #5

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.

 

Pièces jointes

• Classeur1.xlsm

  19.4 KB · Affichages: 50
• Classeur1.xlsm

  19.4 KB · Affichages: 54
• Classeur1.xlsm

  19.4 KB · Affichages: 54

Vote positif 0 Vote négatif

PatLac

XLDnaute Occasionnel

• 3 Février 2014

• #6

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

C'est bon a savoir ! 😉
Merci.

 

Vote positif 0 Vote négatif

PatLac

XLDnaute Occasionnel

• 5 Février 2014

• #7

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

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 5 Février 2014

• #8

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"

Cliquez pour agrandir...

A+

Martial

 

Vote positif 0 Vote négatif

PatLac

XLDnaute Occasionnel

• 8 Février 2014

• #9

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

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

 

Vote positif 0 Vote négatif