2 ātras metodes Excel darblapas nosūtīšanai kā Outlook e-pastu

Ja vēlaties nosūtīt Excel darblapu kā e-pastu, tā vietā, lai pievienotu to e-pastam kā pielikumu, varat izmantot divas šajā rakstā ieviestās metodes. 

Dažkārt, atšķirībā no Excel faila pievienošanas e-pastam kā pielikumu, jūs varat vēlēties tieši ievietot Excel darblapu e-pasta pamattekstā, citiem vārdiem sakot, nosūtīt to kā e-pastu. Atbildot uz šo prasību, varat izmantot kādu no šiem 2 līdzekļiem atkarībā no tā, vai vēlaties nosūtīt MS Excel vai MS Outlook. Tagad lasiet tālāk, lai iegūtu detalizētas darbības.

1. metode: nosūtīt programmā Excel

1. Jau pašā sākumā atveriet avota Excel failu.
2. Pēc tam ātrās piekļuves rīkjoslā noklikšķiniet uz lejupvērstās bultiņas.
3. Nolaižamajā sarakstā jāizvēlas “Vairāk komandu”.
4. Pēc tam ātrās piekļuves rīkjoslā jāpievieno “Sūtīt uz pastu”.

• Pirmkārt, nolaižamajā sarakstā “Izvēlēties komandas no:” atlasiet “Visas komandas”.
• Pēc tam atrodiet un atlasiet komandu “Sūtīt uz pastu”.
• Pēc tam centrā noklikšķiniet uz pogas “Pievienot”.
• Pēc labās puses pievienošanas noklikšķiniet uz “OK”, lai saglabātu izmaiņas.

5. Pēc tam atgriezieties galvenajā Excel logā un ātrās piekļuves rīkjoslā noklikšķiniet uz pogas Sūtīt uz pasta adresātu.
6. Uznirstošajā dialoglodziņā atlasiet “Nosūtīt pašreizējo lapu kā ziņojuma pamattekstu”.
7. Vēlāk tiks parādīta jauna rīkjosla, piemēram, šis ekrānuzņēmums. Tagad jūs varat sastādīt e-pasta informāciju atbilstoši savām vajadzībām.
8. Visbeidzot, noklikšķiniet uz pogas Sūtīt šo lapu, lai izsūtītu šo lapu kā e-pastu.

2. metode: sūtīt programmā Outlook

1. Pirmkārt, palaidiet savu Outlook programmu.
2. Pēc tam nospiediet taustiņu pogas “Alt + F11”, lai atvērtu Outlook VBA redaktoru.
3. Pēc tam atveriet jaunu moduli un iekopējiet tajā šādus 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. Pēc tam rīkjoslā varat noklikšķināt uz ikonas “Palaist”.
5. Uzreiz tiks aktivizēts makro.
6. Pēc tam jums būs jānokopē faila ceļš uz konkrēto Excel failu ievades lodziņā un jānospiež “OK”.
7. Visbeidzot, jauns e-pasts ar Excel darblapu pamattekstā tiks saglabāts mapē “Melnraksti”. To var atrast kā šo ekrānuzņēmumu:

Taktiski tikt galā ar apgrūtinošām PST problēmām

Tā kā Outlook PST failā ir tendence uz kļūdām, iespējams, programmā Outlook esat saskāries ar dažādām problēmām. Tāpēc, lai izvairītos no sāpīga PST bojājumi, ir prātīgi regulāri veikt PST faila datu dublēšanu. Turklāt jums tuvumā ir jātur spēcīgs labošanas rīks, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sql bojājumi un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar