Ako radni list programa Excel želite poslati kao e-poruku, umjesto da je dodate u e-poštu kao privitak, možete koristiti dvije metode predstavljene u ovom članku.
Ponekad, za razliku od privitka Excel datoteke e-pošti kao privitka, možda ćete poželjeti izravno umetnuti Excel radni list u tijelo e-pošte, drugim riječima, poslati je kao e-poruku. Kao odgovor na ovaj zahtjev, možete primijeniti jedno od sljedeća 2 sredstva, ovisno o tome želite li poslati u MS Excelu ili MS Outlooku. Sada čitajte kako biste saznali detaljne operacije.
Metoda 1: Pošaljite u Excelu
- Na samom početku otvorite izvornu Excel datoteku.
- Zatim kliknite na strelicu prema dolje na alatnoj traci za brzi pristup.
- S padajućeg popisa trebali biste odabrati "Više naredbi".
- Zatim biste trebali dodati "Pošalji primatelju pošte" na alatnu traku za brzi pristup.
- Prvo odaberite “Sve naredbe” na padajućem popisu “Odaberi naredbe iz:”.
- Zatim pronađite i odaberite naredbu "Pošalji primatelju pošte".
- Zatim kliknite na gumb "Dodaj" u sredini.
- Nakon što ga dodate na desnu stranu, kliknite na "OK" za spremanje promjena.
- Nakon toga vratite se na glavni prozor programa Excel i kliknite gumb "Pošalji primatelju pošte" na alatnoj traci za brzi pristup.
- U skočnom dijaloškom okviru odaberite "Pošalji trenutni list kao tijelo poruke".
- Kasnije će se prikazati nova alatna traka, poput sljedeće snimke zaslona. Sada možete sastaviti detalje e-pošte prema svojim potrebama.
- Na kraju, kliknite na gumb "Pošalji ovaj list" da biste poslali ovaj list kao e-poštu.
Metoda 2: Pošaljite u programu Outlook
- Prvo pokrenite svoj program Outlook.
- Zatim pritisnite tipke "Alt + F11" za otvaranje programa Outlook VBA editor.
- Nakon toga otvorite novi modul i u njega kopirajte sljedeće VBA kodove.
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
- Nakon toga možete kliknuti ikonu "Pokreni" na alatnoj traci.
- Makro će se pokrenuti odjednom.
- Zatim ćete morati kopirati put datoteke do određene Excel datoteke u okvir za unos i pritisnuti "OK".
- Konačno, nova e-pošta koja sadrži Excel radni list u tijelu bit će spremljena u mapu e-pošte "Skice". Možete ga pronaći kao na sljedećoj snimci zaslona:
Taktično se nosite s problematičnim PST problemima
Zbog činjenice da je Outlook PST datoteka sklona pogreškama, možda ste naišli na razne probleme u svom Outlooku. Stoga, kako bi se izbjegle bolne PST oštećenje, mudro je redovito izrađivati sigurnosne kopije podataka za vašu PST datoteku. Nadalje, u blizini morate držati moćan alat za popravak, npr DataNumen Outlook Repair.
Uvod za autora:
Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql oštećenje i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com