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 feuille de calcul unique en tant que corps d'Excel avec la commande Envoyer au destinataire du courrier

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 le 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. Vue d'ensemble 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 E-mail 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 cliquer Envoyez cette Sheet pour envoyer cette feuille de calcul active comme corps de message à votre personne spécifique.

Débloquez Excel Magic avec Kutools AI

• Exécution intelligente: effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
• Formules personnalisées: Générez des formules sur mesure pour rationaliser vos flux de travail.
• Codage VBA: Écrivez et implémentez du code VBA sans effort.
• Interprétation de la formule: Comprendre facilement des formules complexes.
• Traduction de texte: Brisez les barrières linguistiques dans vos feuilles de calcul.

Améliorez vos capacités Excel avec des outils basés sur l'IA. Téléchargez et faites l'expérience d'une efficacité comme jamais auparavant !

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.

3. Cliquez 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 = "skyyang@extendoffice.com"
    .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

Note: Dans le code ci-dessus, vous pouvez modifier les informations suivantes selon vos propres besoins.

• .À = "skyyang@extendoffice.com"
• .CC = ""
• .BCC = ""
• .Subject = "fonctionnalités kte"
• .Body = "Veuillez vérifier et lire ce document."

4. Puis cliquer 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.

3. Cliquez 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 = "skyyang@extendoffice.com"
    .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.

• .À = "skyyang@extendoffice.com"
• .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.

Remarques :

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

Vue d'ensemble 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.

Aller au téléchargement

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?