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

Kanske gör och ändrar du alltid en rapport i Excel-arbetsboken, efter att ha avslutat den måste du skicka den aktuella sparade rapporten till din avdelningschef så snart som möjligt. Hur kunde du snabbt skicka hela din nuvarande arbetsbok till den specifika personen utan att öppna Outlook från Excel?

Skicka aktuell arbetsbok via Outlook från Excel med kommandot Spara och skicka

Skicka aktuell arbetsbok via Outlook som bilaga från Excel med VBA-kod

Skicka aktuell arbetsbok via Outlook från Excel med kommandot Spara och skicka

Med denna Spara och skicka kommandot i Excel kan du snabbt skicka hela arbetsboken som bilaga, som PDF-fil, som XPS-fil eller Internetfax via din Outlook. Du kan göra så här:

1. Öppna arbetsboken som du vill skicka.

2. klick Fil > Spara och skicka > Skicka med e-post i Excel 2010, se skärmdump:

tips: Om du använder Excel 2007, klicka Kontorsknapp > Skicka, se skärmdump:

Klicka i Excel 2013 Fil > Dela > E-postadress , se skärmdump:

3. Välj sedan ett format som du vill skicka Excel från Skicka med e-post avsnitt, i det här fallet klickar jag Skicka som bilaga ikonknapp, se skärmdump:

4. Och ett Outlook-redigeringsfönster visas, skriv in mottagarnamnen i Till och Cc textrutor och skriv ett ämne i Ämne rutan, kan du mata in ett meddelande i Introduktionsrutan också, se skärmdump:

Anmärkningar:

1. Den här metoden fungerar bara när du använder Outlook som ditt e-postprogram.

2. Efter att ha skickat arbetsboken kan du gå till din Outlook för att kontrollera om e-postmeddelandet har skickats.

Skicka aktuell arbetsbok via Outlook som bilaga från Excel med VBA-kod

Här kan du också skicka den aktuella arbetsboken som en bilaga från Excel med följande VBA-kod, vänligen gör med följande steg:

1. Öppna din arbetsbok 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 aktuell arbetsbok som bilaga från Excel

Sub SendWorkBook()
'Update 20131209
Dim OutlookApp As Object
Dim OutlookMail As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
On Error Resume Next
With OutlookMail
    .To = "skyyang@extendoffice.com"
    .CC = ""
    .BCC = ""
    .Subject = "kte feature"
    .Body = "Hello, please check and read this document, thank you."
    .Attachments.Add Application.ActiveWorkbook.FullName
    .Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
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-funktion"
• .Body = "Hej, kolla och läs detta dokument, tack."

4. Klicka sedan F5 för att köra den här koden och en snabbruta dyker upp, klicka Tillåt, och denna arbetsbok har skickats ut.

Anmärkningar:

1. Den här koden är endast tillgänglig när du använder Outlook som ditt e-postprogram.

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

Relaterade artiklar:

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

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