> 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
51,99 €Office 365 Famille - 6 utilisateurs - Abonnement 1 an à 51,99 €
Valable jusqu'au 19 Mai

Amazon fait une promotion sur Office 365 Famille qui passe ainsi à 51,99 €, en téléchargement légal alors qu'on le trouve habituellement à 99 €. Vous pourrez télécharger et installer les dernières versions d'Outlook, Word, Excel, PowerPoint et OneNote sur 6 PC, Mac ou tablettes (iOS ou Android) pendant 1 an. Vous bénéficierez également d'un espace de stockage en ligne sur OneDrive de 1 To pour chaque utilisateur (6x1 To). Le code de téléchargement vous sera envoyé par email.


> Voir l'offre
12,99 €Hub USB C 6 en 1 (HDMI 4K, 3xUSB 3.0, SD et MicroSD) à 12,99 €
Valable jusqu'au 19 Mai

Amazon fait une promotion sur le hub USB C 6 en 1 Cappuon qui passe à 12,99 € au lieu de 29,99 € grâce à un coupon de réduction à activer sur la page du produit. Ce hub vous permettra de rajouter un port HDMI 4K, 3 ports USB 3.0 et un lecteur de cartes SD et MicroSD à votre ordinateur via un simple USB-C. 


> Voir l'offre
125,43 €Box Android Nvidia Shield TV 2019 8 Go avec télécommande à 125,43 € livrée
Valable jusqu'au 19 Mai

Amazon Espagne fait une belle promotion sur la box Android Nvidia Shield TV 2019 8 Go avec sa télécommande à 120,18 €. Comptez 5,25 € pour la livraison en France soit un total de 125,43 € livrée. On trouve ailleurs ce pack à partir de 149 €. Compatible FullHD et 4K, vous pourrez utiliser vos applications Android, jouer et regarder des films et des séries en très haute résolution sur votre TV (compatible Kodi, Molotov, Netflix, Disney+, MyCanal, Prime Video, YouTube, ...).


> 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