> 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 participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
24,99 €SSD Gigabyte 256 Go à 24,99 €
Valable jusqu'au 10 Décembre

Cdiscount fait une promotion sur le SSD Gigabyte 256 Go (mémoire TLC) à 24,99 € au lieu de 40 €. Ce SSD offre des vitesses de 500 Mo/s en lecture et 420 Mo/s en écriture.


> Voir l'offre
208,00 €Solution Wifi 6 Mesh Netgear Orbi RBK352 (couverture jusqu'à 200 m²) à 208 €
Valable jusqu'au 10 Décembre

Amazon fait une promotion sur le Kit Wifi 6 Mesh Netgear Orbi RBK352 qui passe à 208  alors qu'on le trouve ailleurs à partir de 250 €. Avec Orbi, vous bénéficiez d’un Wifi étendu n’importe où chez vous sans perte de connexion. Ce Kit Orbi avec un routeur à brancher sur votre box et un satellite vous permettra de couvrir jusqu’à 200 m² grâce à son Wifi 6 AX1800. 

Profitez d’un streaming simultané et sans interruptions de films, jeux, appels vidéo ou téléchargez/transférez des fichiers à une vitesse Wifi de 1,8 Gbit/s.


> Voir l'offre
149,96 €Ecran PC 23.8 pouces Dell S2422HG (incurvé, FullHD, VA, 165 Hz, 1 ms, FreeSync) à 149,96 € (via ODR)
Valable jusqu'au 10 Décembre

LDLC  fait une promotion sur l'écran PC 23.8 pouces Dell S2422HG qui passe à 199,96 € au lieu de 220 € ailleurs. Or Dell rembourse actuellement 50 € sur cet écran qui vous reviendra à 149,96 € après remboursement.

Cet écran possède une dalle incurvée VA Full HD (1920x1080) à 165 Hz et avec un temps de réponse de 1 ms. Il est compatible FreeSync (et GSync via Adaptive Sync). La hauteur et l'inclinaison de l'écran sont réglables. 2 ports HDMI et 1 port DP.


> 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