Hur skickar jag bara kalkylblad via Outlook från Excel?

Om du vill skicka ett enskilt kalkylblad från en arbetsbok i Excel via Outlook kan du skicka kalkylbladet som en bilaga, som kroppsinnehåll eller som en PDF-fil. Men finns det några snabbare sätt för dig att hantera detta problem i Excel?

Skicka enstaka kalkylblad som text från Excel med kommandot Skicka till e-postmottagare

Skicka enstaka kalkylblad som en bilaga från Excel med VBA-kod

Skicka enstaka kalkylblad som en PDF-fil från Excel med VBA-kod

Skicka enstaka kalkylblad som text från Excel med kommandot Skicka till e-postmottagare

Excel stöder oss att skicka det aktiva kalkylbladet som kroppsinnehåll med hjälp av kommandot Skicka till e-postmottagare. Du kan göra på följande sätt:

Om du använder Excel 2007, 2010 eller 2013 måste du lägga till detta Skicka till e-postmottagare kommandot till Snabbåtkomstverktygsfält först.

1. Klicka på ikonen för Anpassa snabbåtkomstverktygsfältet, och välj Fler kommandon, se skärmdump:

2. Och i Excel-alternativ dialogrutan, välj Kommandon finns inte i menyfliksområdet i Välj kommandon från rullgardinsmenyn och välj sedan Skicka till e-postmottagare alternativet och klicka på Lägg till >> knappen för att lägga till det här kommandot, vid sista klick OK för att spara den här inställningen. Se skärmdump:

3. Smakämnen Skicka till e-postmottagare kommandot har införts i Snabbåtkomstverktygsfält, se skärmdump:

4. Klicka sedan på det här Skicka till e-postmottagare ikonen knapp, och en snabb ruta dyker upp, i E-post snabbruta, kryssa Skicka det aktuella arket som meddelandetext, och klicka OK. Se skärmdump:

5. Och en redigeringsruta för e-post visas ovanför kalkylbladets data, du kan ange dina mottagare, ämne och introduktion i motsvarande textruta. Se skärmdump:

6. Klicka sedan på Skicka denna Sheet för att skicka det här aktiva kalkylbladet som meddelandetext till din specifika person.

Lås upp Excel Magic med Kutools AI

• Smart utförande: Utför celloperationer, analysera data och skapa diagram – allt drivs av enkla kommandon.
• Anpassade formler: Skapa skräddarsydda formler för att effektivisera dina arbetsflöden.
• VBA-kodning: Skriv och implementera VBA-kod utan ansträngning.
• Formeltolkning: Förstå komplexa formler med lätthet.
• Textöversättning: Bryt språkbarriärerna i dina kalkylblad.

Förbättra dina Excel-funktioner med AI-drivna verktyg. Hämta hem nu och upplev effektivitet som aldrig förr!

Skicka enstaka kalkylblad som en bilaga från Excel med VBA-kod

Om du vill skicka det aktiva kalkylbladet som en bilaga via e-post kan följande VBA-kod göra en tjänst för dig.

1. Aktivera kalkylbladet som du vill skicka.

2. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic for Applications-fönstret.

3. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.

VBA-kod: skicka nuvarande kalkylblad som bilaga från 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

Anmärkningar: I ovanstående kod kan du ändra följande information efter eget behov.

• .To = "skyyang@extendoffice.com"
• .CC = ""
• .BCC = ""
• .Subject = "kte-funktioner"
• .Body = "Kontrollera och läs detta dokument."

4. Klicka sedan F5 för att köra den här koden och en snabbruta dyker upp, klicka Tillåt när förloppsindikatorn är klar och sedan har det aktuella kalkylbladet skickats till din mottagare som en bilaga.

Skicka enstaka kalkylblad som en PDF-fil från Excel med VBA-kod

Ibland måste du skicka din kalkylrapport till andra men vill inte att andra ska ändra den. I det här fallet kan du skicka kalkylbladet som en PDF-fil från Excel.

1. Aktivera kalkylbladet som du vill skicka.

2. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic for Applications-fönstret.

3. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.

VBA-kod: skicka nuvarande kalkylblad som PDF-fil från 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

Obs! I ovanstående kod kan du ändra följande information efter behov.

• .To = "skyyang@extendoffice.com"
• .CC = ""
• .BCC = ""
• .Subject = "kte-funktioner"
• .Body = "Kontrollera och läs detta dokument."

4. Tryck sedan på F5 och en snabbruta dyker upp, klicka Tillåt efter att förloppsindikatorn slutförts har det aktiva kalkylbladet skickats till den specifika personen som PDF-fil.

Anmärkningar:

1. Dessa metoder är endast tillgängliga när du använder Outlook som ditt e-postprogram.

2. När du har skickat det aktuella kalkylbladet kan du gå till Outlook för att se till att e-postmeddelandet har skickats.

Skapa e-postlista Skicka sedan e-post

Smakämnen Kutools för Excel's Skapa e-postlista och Skicka E-post verktyg kan snabbt skapa e-postlista i ett kalkylblad och sedan skicka samma ämne, samma innehåll och samma bilagor till flera e-postadresser.

Gå till Ladda ner

Relaterade artiklar:

Hur skickar jag aktuell arbetsbok via Outlook från Excel?

Hur skickar / skickar jag cellutbud via Outlook från Excel?