2 greiti būdai, kaip siųsti „Excel“ darbalapį „Outlook“ el. paštu

Jei norite siųsti „Excel“ darbalapį kaip el. laišką, o ne pridėti jį prie el. laiško kaip priedą, galite naudoti du šiame straipsnyje aprašytus metodus. 

Kartais, skirtingai nei prie el. laiško pridedant „Excel“ failą kaip priedą, galite norėti tiesiogiai įterpti „Excel“ darbalapį į el. laiško turinį, kitaip tariant, išsiųsti jį kaip el. laišką. Atsižvelgdami į šį reikalavimą, galite taikyti vieną iš šių 2 priemonių, priklausomai nuo to, ar norite siųsti MS Excel ar MS Outlook. Dabar skaitykite toliau, kad gautumėte išsamias operacijas.

1 būdas: nusiųskite į „Excel“.

1. Pačioje pradžioje atidarykite šaltinio Excel failą.
2. Tada greitosios prieigos įrankių juostoje spustelėkite rodyklę žemyn.
3. Išskleidžiamajame sąraše turėtumėte pasirinkti „Daugiau komandų“.
4. Tada prie greitosios prieigos įrankių juostos turėtumėte pridėti „Siųsti pašto gavėjui“.

• Pirmiausia išskleidžiamajame sąraše „Pasirinkti komandas iš:“ pasirinkite „Visos komandos“.
• Tada suraskite ir pasirinkite komandą „Siųsti pašto gavėjui“.
• Tada spustelėkite mygtuką „Pridėti“ centre.
• Pridėję jį dešinėje, spustelėkite „Gerai“, kad išsaugotumėte pakeitimus.

5. Po to grįžkite į pagrindinį „Excel“ langą ir greitosios prieigos įrankių juostoje spustelėkite mygtuką „Siųsti pašto gavėjui“.
6. Iššokančiajame dialogo lange pasirinkite „Siųsti dabartinį lapą kaip pranešimo tekstą“.
7. Vėliau bus rodoma nauja įrankių juosta, kaip ir šioje ekrano kopijoje. Dabar galite sudaryti el. pašto informaciją pagal savo poreikius.
8. Galiausiai spustelėkite mygtuką „Siųsti šį lapą“, kad išsiųstumėte šį lapą el. paštu.

2 būdas: išsiųskite „Outlook“.

1. Pirmiausia paleiskite „Outlook“ programą.
2. Tada paspauskite „Alt + F11“ klavišų mygtukus, kad atidarytumėte „Outlook VBA“ redaktorių.
3. Tada atidarykite naują modulį ir nukopijuokite į jį šiuos VBA kodus.

Sub SendanExcelWorksheetAsEmail()
    Dim strExcelFile As String
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkBook As Excel.Workbook
    Dim objExcelWorkSheet As Excel.Worksheet
    Dim objMail As Outlook.MailItem
 
    strExcelFile = InputBox("Copy the file path to the specific excel file here:", "Specify Excel file", "E:\Contacts.xlsx")
 
    On Error Resume Next
    Set objExcelApp = CreateObject("Excel.Application")
    Set objExcelWorkBook = objExcelApp.Workbooks.Open(strExcelFile)
    Set objExcelWorkSheet = objExcelWorkBook.Sheets("Sheet1")
 
    'Change to your own desired email body
    objExcelWorkSheet.MailEnvelope.Introduction = "Message Body"
    Set objMail = objExcelWorkSheet.MailEnvelope.Item
    With objMail
         'Change the recipient and subject as per your needs
         .To = "frank@datanumen.com"
         .Subject = objExcelWorkSheet.Name
         'Use .Send to send it out directly
         .Save
    End With
 
    objExcelApp.Quit
End Sub

4. Po to įrankių juostoje galite spustelėti piktogramą „Vykdyti“.
5. Iš karto bus suaktyvinta makrokomanda.
6. Tada turėsite nukopijuoti failo kelią į konkretų "Excel" failą į įvesties laukelį ir paspauskite "Gerai".
7. Galiausiai naujas el. laiškas, kurio turinyje yra „Excel“ darbalapis, bus išsaugotas laiškų aplanke „Juodraščiai“. Jį galite rasti kaip šią ekrano kopiją:

Taktiškai susitvarkykite su varginančiomis PST problemomis

Dėl to, kad „Outlook PST“ faile yra klaidų, galbūt susidūrėte su įvairiomis „Outlook“ problemomis. Todėl, siekiant išvengti skausmo PST žala, protinga reguliariai kurti atsargines PST failo duomenų kopijas. Be to, šalia turite turėti galingą taisymo įrankį, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sql žala ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com