> 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
8,99 €Lot de 32 piles Philips AA à 8,99 €
Valable jusqu'au 31 Janvier

Fnac fait une promotion sur le lot de 32 piles Philips AA qui passe à 8,99 € au lieu de 15 €.


> Voir l'offre
189,99 €Pack de 2 disques durs Seagate NAS Iron Wolf 4 To à 189,99 €
Valable jusqu'au 29 Janvier

Cdiscount propose le pack de 2 disques durs Seagate IronWolf 4 To à 189,99 €. le Ces disques durs 3.5 pouces SATA III sont adaptés aux NAS et ordinateurs qui fonctionnent 24h/24. On les trouve ailleurs autour de 110 € l'unité. Disques CMR.


> Voir l'offre
46 €SSD WD Blue SN550 500 Go (NMVe M.2, 2400 Mo/s) à 46 €
Valable jusqu'au 30 Janvier

RueDuCommerce fait une promotion sur le SSD WD Blue SN550 500 Go (NMVe M.2) qui passe à 46 € alors qu'on le trouve ailleurs à partir de 60 €. Ce SSD utilise une interface M.2 NVMe PCIe Gen3 x 4 pour une connexion simple et des performances exceptionnelles : jusqu’à 2 400 Mo/s en lecture séquentielle et jusqu’à 1 950 Mo/s en écriture séquentielle. Le SSD est doté de la technologie 3D TLC NAND haute densité offrant une endurance d’écriture durable et assorti d’une garantie de cinq ans. 


> 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