OVH Cloud OVH Cloud

copie sauvage dans le body d'un mail

2 réponses
Avatar
Lulu
salut tous les "caniculés",

je m'échine actuellement sur l'envoi de mails en automatique par
l'intermédiaire d'Excel.
J'ai à peu près tout lu sur la littérature de ce forum sur ce sujet. Je
n'ai, en revanche, rien trouvé sur ce que j'aimerais faire.
A savoir, selectionner une plage et la coller dans le "body" du
message, ce qui autoriserait de garder la mise en forme d'un tableau.
Est-ce dans le domaine du possible ?


Du style (mais ça ne fonctionne pas)
Range("A1:f4").Copy
Shell "C:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & dest & _
"?subject=" & sujet & _
"&Body=" & SendKeys "^v", vbMaximizedFocus


avec mes remerciements anticipés

2 réponses

Avatar
David
Bonjour,

Personnellement je n'ai jamais pratiqué la copie d'une plage de cellule
directement dans le body d'un message. Cependant, cela doit etre possible.
J'ai effectué une petite recherche sur les newsgroup pour toi, voici ds ce
message un script qui pourra être utile. Je n'ai pas eu le tps de le tester:
http://groups.google.com/group/microsoft.public.excel.misc/msg/1084b51db3f5cfaf?&hl=en

Il y aussi des sites qui trqite des différentes possibilités pour envoyer
des mails à parti d'Excel :
http://www.rondebruin.nl/sendmail.htm

plus précisemment :
http://www.rondebruin.nl/mail/folder3/mail4.htm

Bonne journée

David

"Lulu" wrote in message
news:
salut tous les "caniculés",

je m'échine actuellement sur l'envoi de mails en automatique par
l'intermédiaire d'Excel.
J'ai à peu près tout lu sur la littérature de ce forum sur ce sujet. Je
n'ai, en revanche, rien trouvé sur ce que j'aimerais faire.
A savoir, selectionner une plage et la coller dans le "body" du message,
ce qui autoriserait de garder la mise en forme d'un tableau.
Est-ce dans le domaine du possible ?


Du style (mais ça ne fonctionne pas)
Range("A1:f4").Copy
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & dest & _
"?subject=" & sujet & _
"&Body=" & SendKeys "^v", vbMaximizedFocus


avec mes remerciements anticipés




Avatar
Lulu
bonjour David,

et merci pour ces liens, j'ai jeté un oeil en vitesse, ...
impressionnant (des centaines de lignes à étudier, ce que je ne
manquerai pas de faire). C'est fun que tu répondes à cet instant, je
venais juste de trouver le moyen de faire ce que je voulais.
Je résume, en fait mon problème était de transmettre des infos sans
ajouter de pièce jointe, donc dans le corps du mail (le destinataire
n'a pas forcément Excel, oh le béotien).
J'utilisais donc un code trouvé sur ce forum qu'il me fallait adapter
pour remplir le body :

Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & dest & _
"?subject=" & sujet & _
"&Body=", vbMaximizedFocus

l'astuce que j'ai trouvée, c'est de positionner le curseur dans le
corps par l'intermédiaire de
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys "{tab}" (3 fois)

'puis
SendKeys "^v" (pour coller la plage précedemment copiée)

'et enfin
SendKeys "%s" (pour envoyer le mail)

ET CA MARCHE ! (avec un petit bémol, c'est pas du wysiwyg)

Voilà, elle est publiée, si ça peut interesser quelqu'un, je pense même
qu'on pourrait archiver cette astuce dans les rayons d'Excelabo.


en tout cas, merci David


David a utilisé son clavier pour écrire :
Bonjour,

Personnellement je n'ai jamais pratiqué la copie d'une plage de cellule
directement dans le body d'un message. Cependant, cela doit etre possible.
J'ai effectué une petite recherche sur les newsgroup pour toi, voici ds ce
message un script qui pourra être utile. Je n'ai pas eu le tps de le tester:
http://groups.google.com/group/microsoft.public.excel.misc/msg/1084b51db3f5cfaf?&hl=en

Il y aussi des sites qui trqite des différentes possibilités pour envoyer des
mails à parti d'Excel :
http://www.rondebruin.nl/sendmail.htm

plus précisemment :
http://www.rondebruin.nl/mail/folder3/mail4.htm

Bonne journée

David

"Lulu" wrote in message
news:
salut tous les "caniculés",

je m'échine actuellement sur l'envoi de mails en automatique par
l'intermédiaire d'Excel.
J'ai à peu près tout lu sur la littérature de ce forum sur ce sujet. Je
n'ai, en revanche, rien trouvé sur ce que j'aimerais faire.




A savoir, selectionner une plage et la coller dans le "body" du message, ce
qui autoriserait de garder la mise en forme d'un tableau.
Est-ce dans le domaine du possible ?


Du style (mais ça ne fonctionne pas)
Range("A1:f4").Copy
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & dest & _
"?subject=" & sujet & _
"&Body=" & SendKeys "^v", vbMaximizedFocus


avec mes remerciements anticipés