2 brza metoda za slanje Excel radnog lista kao Outlook e-pošte

Ako želite da pošaljete Excel radni list kao e-poštu, umjesto da ga dodate u e-poruku kao prilog, možete koristiti dvije metode predstavljene u ovom članku. 

Ponekad, za razliku od prilaganja Excel datoteke e-poruci kao priloga, možda ćete poželjeti direktno umetnuti Excel radni list u tijelo e-pošte, drugim riječima, poslati ga kao e-poruku. Kao odgovor na ovaj zahtjev, možete primijeniti bilo koje od sljedeća 2 sredstva ovisno o tome želite li poslati u MS Excel ili MS Outlook. Sada čitajte dalje da biste dobili detaljne operacije.

Metoda 1: Pošaljite u Excelu

1. Na samom početku otvorite izvornu Excel datoteku.
2. Zatim kliknite na strelicu nadole na traci sa alatkama za brzi pristup.
3. Sa padajuće liste treba da izaberete „Više komandi“.
4. Zatim biste trebali dodati "Send to Mail Recipient" na alatnu traku za brzi pristup.

• Prvo, odaberite “Sve komande” na padajućoj listi “Izaberite komande iz:”.
• Zatim pronađite i odaberite naredbu „Pošalji primatelju pošte“.
• Zatim kliknite na dugme "Dodaj" u sredini.
• Nakon što ga dodate na desnu stranu, kliknite na “OK” da sačuvate promjene.

5. Nakon toga, vratite se u glavni prozor programa Excel i kliknite na dugme „Pošalji primaocu pošte“ na traci sa alatkama za brzi pristup.
6. U iskačućem dijaloškom okviru odaberite "Pošalji trenutni list kao tijelo poruke".
7. Kasnije će se prikazati nova traka sa alatkama, poput sljedećeg snimka ekrana. Sada možete sastaviti detalje e-pošte prema vašim potrebama.
8. Na kraju, kliknite na dugme „Pošalji ovaj list“ da pošaljete ovaj list kao e-poštu.

Metod 2: Pošaljite u Outlook

1. Prvo pokrenite svoj Outlook program.
2. Zatim pritisnite tipke “Alt + F11” da otvorite Outlook VBA editor.
3. Nakon toga otvorite novi modul i kopirajte sljedeće VBA kodove u njega.

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. Nakon toga možete kliknuti na ikonu “Run” na traci sa alatkama.
5. Makro će se odmah pokrenuti.
6. Zatim će se od vas tražiti da kopirate putanju datoteke do određene Excel datoteke u polje za unos i pritisnete “OK”.
7. Konačno, nova e-pošta koja sadrži Excel radni list u tijelu bit će sačuvana u folderu pošte “Nacrti”. Možete ga pronaći kao na sljedećem snimku ekrana:

Taktično se nosite s problematičnim PST problemima

Zbog činjenice da je Outlook PST datoteka sklona greškama, možda ste naišli na razne probleme u Outlooku. Stoga, kako bi se izbjeglo bolno PST šteta, mudro je praviti redovne sigurnosne kopije podataka za vašu PST datoteku. Nadalje, morate držati moćan alat za popravku u blizini, npr DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql šteta i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com