Comment envoyer une feuille de calcul uniquement via Outlook à partir d'Excel?
Si vous souhaitez envoyer par courrier électronique une seule feuille de calcul à partir d'un classeur dans Excel via Outlook, vous pouvez envoyer la feuille de calcul en tant que pièce jointe, en tant que contenu du corps ou en tant que fichier PDF. Mais existe-t-il des moyens plus rapides pour vous de résoudre ce problème dans Excel?
Envoyer une seule feuille de calcul en tant que pièce jointe à partir d'Excel avec le code VBA
Envoyer une seule feuille de calcul sous forme de fichier PDF à partir d'Excel avec le code VBA
Envoyer une feuille de calcul unique en tant que corps d'Excel avec la commande Envoyer au destinataire du courrier
Excel nous aide à envoyer par courrier électronique la feuille de calcul active en tant que contenu du corps à l'aide de la commande Envoyer au destinataire du courrier. Vous pouvez faire comme suit:
Si vous utilisez Excel 2007, 2010 ou 2013, vous devez ajouter ceci Envoyer au destinataire du courrier commande à la Barre d'outils d'accès rapide d'abord.
1. Cliquez sur l'icône du Personnaliser la barre d'outils Accès rapideet choisissez Plus de commandes, voir capture d'écran:
2. Et dans le Options Excel boîte de dialogue, choisissez Commandes absentes du ruban dans l' Choisissez les commandes dans liste déroulante, puis sélectionnez le Envoyer au destinataire du courrier option, et cliquez Ajouter >> bouton pour ajouter cette commande, au dernier clic OK pour enregistrer ce paramètre. Voir la capture d'écran:
3. La Envoyer au destinataire du courrier commande a été insérée dans le Barre d'outils d'accès rapide, voir capture d'écran:
4. Cliquez ensuite sur ceci Envoyer au destinataire du courrier bouton icône, et une boîte de dialogue apparaît, dans le Email boîte de dialogue, cochez Envoyer la feuille actuelle comme corps du messageEt cliquez OK. Voir la capture d'écran:
5. Et une zone d'édition de courrier électronique est affichée au-dessus des données de la feuille de calcul, vous pouvez entrer vos destinataires, sujet et introduction dans la zone de texte correspondante. Voir la capture d'écran:
6. Puis clique Envoyez cette Sheet pour envoyer cette feuille de calcul active comme corps de message à votre personne spécifique.
Envoyer une seule feuille de calcul en tant que pièce jointe à partir d'Excel avec le code VBA
Si vous souhaitez envoyer par courrier électronique la feuille de calcul active en tant que pièce jointe, le code VBA suivant peut vous rendre service.
1. Activez votre feuille de calcul que vous souhaitez envoyer.
2. Maintenez le ALT + F11 clés, et il ouvre le Fenêtre Microsoft Visual Basic pour Applications.
3Cliquez sur insérer > Moduleet collez le code suivant dans le Fenêtre du module.
Code VBA: envoyer la feuille de calcul actuelle en tant que pièce jointe à partir d'Excel
Sub SendWorkSheet()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
If Wb2.HasVBProject Then
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
Else
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
End If
Case Excel8:
xFile = ".xls"
xFormat = Excel8
Case xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "kte features"
.Body = "Please check and read this document."
.Attachments.Add Wb2.FullName
.Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.ScreenUpdating = True
End Sub
Notes: Dans le code ci-dessus, vous pouvez modifier les informations suivantes selon vos propres besoins.
- .À = ""
- .CC = ""
- .BCC = ""
- .Subject = "fonctionnalités kte"
- .Body = "Veuillez vérifier et lire ce document."
4. Puis clique F5 clé pour exécuter ce code, et une boîte de dialogue apparaîtra, cliquez sur Autoriser lorsque la barre de progression est terminée et que la feuille de calcul actuelle a été envoyée à votre destinataire en tant que pièce jointe.
Envoyer une seule feuille de calcul sous forme de fichier PDF à partir d'Excel avec le code VBA
Parfois, vous devez envoyer votre rapport de feuille de calcul à d'autres personnes, mais vous ne voulez pas que d'autres le modifient. Dans ce cas, vous pouvez envoyer la feuille de calcul sous forme de fichier PDF à partir d'Excel.
1. Activez votre feuille de calcul que vous souhaitez envoyer.
2. Maintenez le ALT + F11 clés, et il ouvre le Fenêtre Microsoft Visual Basic pour Applications.
3Cliquez sur insérer > Moduleet collez le code suivant dans le Fenêtre du module.
Code VBA: envoyer la feuille de calcul actuelle sous forme de fichier PDF à partir d'Excel
Sub SendWorkSheetToPDF()
'Update 20131209
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "kte features"
.Body = "Please check and read this document."
.Attachments.Add FileName
.Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub
Remarque: Dans le code ci-dessus, vous pouvez modifier les informations suivantes selon vos besoins.
- .À = ""
- .CC = ""
- .BCC = ""
- .Subject = "fonctionnalités kte"
- .Body = "Veuillez vérifier et lire ce document."
4. Puis appuyez F5 clé, et une boîte de dialogue apparaîtra, cliquez sur Autoriser après la fin de la barre de progression, la feuille de calcul active a été envoyée à la personne spécifique sous forme de fichier PDF.
Notes:
1. Ces méthodes ne sont disponibles que lorsque vous utilisez Outlook comme programme de messagerie.
2. Après avoir envoyé la feuille de calcul actuelle, vous pouvez accéder à votre Outlook pour vous assurer que l'e-mail a bien été envoyé.
Créer une liste de diffusion puis envoyer des e-mails
|
| La Kutools for Excel's Créer une liste de diffusion et Envoyer Emails Les utilitaires peuvent créer rapidement une liste de diffusion dans une feuille de calcul, puis envoyer le même sujet, le même contenu et les mêmes pièces jointes à plusieurs adresses e-mail. |
 |
 |
 |
Articles Liés:
Comment envoyer le classeur actuel via Outlook à partir d'Excel?
Comment envoyer / envoyer par e-mail une plage de cellules via Outlook à partir d'Excel?
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
