× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 envoi mailSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
massjipe
  Posté le 29/04/2015 @ 11:19 
Aller en bas de la page 
Petit astucien

Bonjour
J'ai récupéré un code pour envoyer une plage de cellule Excel via Outlook en corps de message
pour la plage de cellule sur Outlook c'est ok mais il envoi le mail directement sur ma messagerie
je cherche à garder le message ouvert pour sélectionner moi même les destinataires et en CC
Sous la ligne de code .Introduction = "bonjour , ci joint les données ..." je voudrais écrire d'autre lignes
mais voila je ne sais pas comment faire
Merci

Sub envoiPlageCellules_Excel()
ActiveSheet.Range("A1:I17").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "bonjour , ci joint les données ..."
.Item.To = ""
.Item.Subject = "le sujet"
.Item.Send
End With
End Sub

Publicité
gilbert_rgi
 Posté le 29/04/2015 à 13:52 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

comme ceci peut-être

Sub envoiPlageCellules_Excel()

Dim txt as string

txt = ActiveSheet.Range("K1").value ' cellule où se trouve votre intro

ActiveSheet.Range("A1:I17").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = txt
.Item.To = ""
.Item.Subject = "le sujet"
.Item.Send
End With
End Sub

massjipe
 Posté le 29/04/2015 à 15:03 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour

comment on fait pour avoir plusieurs lignes dans la ligne du code .Introduction =

merci

massjipe
 Posté le 29/04/2015 à 16:09 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour

J'ai trouvé

.Introduction = "Bonjour," & Chr(10) & Chr(10) & "Prise en compte du sujet." & Chr(10) & "Je" & Chr(10) & Chr(10) & "Analyste" & Chr(10) & "dect : 12" & Chr(10) & "Cordialement" & Chr(10) & Chr(10)

Merci

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
128,62 €Aspirateur traîneau Numatic Henry 160 à 128,62 € livré
Valable jusqu'au 25 Novembre

Amazon Royaume-Uni fait une promotion l'aspirateur traîneau Numatic Henry 160 qui passe à 99 £. Avec la conversion en euros et la livraison en France, il vous reviendra à 128,62 € livré. On le trouve ailleurs à partir de 165 €. L'aspirateur Numatic Henry HVR160 est le dernier né de la gamme Henry en version avec cuve de volume 6 litres. C'est un aspirateur de classe énergétique A. Derrière le charmant sourire déclipsable, se trouve un moteur puissant avec turbine 1 étage pour une aspiration exceptionnelle.  Tubes inox, roues anti-bruit, ceinture en caoutchouc anti-trace, enrouleur de câble intégré.  Le niveau sonore est remarquablement faible.  Filtre et hepaflo de série pour une filtration de très haut niveau.  Système parking et nombreux accessoires inclus.


> Voir l'offre
GratuitJeu PC Elite Dangerous gratuit
Valable jusqu'au 26 Novembre

Epic Game Store offre actuellement le jeu PC Elite Dangerous. Prenez le contrôle de votre vaisseau dans une galaxie impitoyable. Elite Dangerous est l'ultime épopée spatiale massivement multijoueur, la version nouvelle génération de la première aventure en monde ouvert du jeu vidéo avec des trames scénaristiques évolutives et l'intégralité ...PEGI 7.


> Voir l'offre
23,99 €Jeu PC Star Wars Jedi: Fallen Order à 23,99 €
Valable jusqu'au 25 Novembre

Amazon propose actuellement le tout nouveau jeu PC Star Wars: Fallen Order à 23,99 €. Le code du jeu vous serra envoyé par email et vous pourrez le télécharger sur Origin. Dans le cadre de cette histoire authentique de STAR WARS, les fans vont plonger dans une galaxie récemment saisie par l’Empire. En tant que héros Jedi devenu fugitif, les joueurs auront besoin de se battre pour survivre tout en explorant les mystères d’une civilisation disparue depuis longtemps avec un effort pour reconstruire les restes de l’ordre Jedi que l’empire cherche à effacer complètement les Jedi.


> Voir l'offre

Sujets relatifs
Envoi quotidien en VBA Outlook d'un mail
Envoi de mail avec outlook en passant par les contacts
Problème Envoi/Réception Mail
envoi mail alors que je n'ai rien à envoyer
Macro pour un envoi feuille excel par mail
envoi de mail laposte.net par outloock 2007
envoi d'un formulaire personnalisé par mail
envoi de mail sur outlook express 6
Envoi d'un mail à un grand nombre de destinataires
Envoi par mail feuille de classeur par CDO
Plus de sujets relatifs à envoi mail
 > Tous les forums > Forum Bureautique