2 hitra načina za pošiljanje Excelovega delovnega lista kot Outlookovega e-poštnega sporočila

Če želite Excelov delovni list poslati kot e-poštno sporočilo, namesto da ga dodate v e-poštno sporočilo kot prilogo, lahko uporabite dva načina, predstavljena v tem članku. 

Včasih boste v nasprotju s priložitvijo Excelove datoteke e-pošti kot prilogo morda želeli neposredno vstaviti Excelov delovni list v telo e-pošte, z drugimi besedami, poslati ga kot e-poštno sporočilo. Kot odgovor na to zahtevo lahko uporabite katero koli od naslednjih dveh sredstev, odvisno od tega, ali želite poslati v MS Excel ali MS Outlook. Zdaj preberite, da dobite podrobne operacije.

1. način: Pošljite v Excelu

1. Na začetku odprite izvorno datoteko Excel.
2. Nato kliknite puščico dol v orodni vrstici za hitri dostop.
3. Na spustnem seznamu izberite "Več ukazov".
4. Nato v orodno vrstico za hitri dostop dodajte »Pošlji prejemniku pošte«.

• Najprej izberite »Vsi ukazi« na spustnem seznamu »Izberi ukaze iz:«.
• Nato poiščite in izberite ukaz »Pošlji prejemniku pošte«.
• Nato v sredini kliknite gumb »Dodaj«.
• Ko ga dodate na desno stran, kliknite »V redu«, da shranite spremembe.

5. Po tem se vrnite v glavno okno programa Excel in v orodni vrstici za hitri dostop kliknite gumb »Pošlji prejemniku pošte«.
6. V pojavnem pogovornem oknu izberite “Pošlji trenutni list kot telo sporočila”.
7. Kasneje se bo prikazala nova orodna vrstica, kot je naslednja slika zaslona. Zdaj lahko sestavite e-poštne podatke glede na vaše potrebe.
8. Na koncu kliknite gumb »Pošlji ta list«, da ta list pošljete kot e-pošto.

2. način: Pošljite v Outlooku

1. Najprej zaženite program Outlook.
2. Nato pritisnite tipki “Alt + F11”, da odprete urejevalnik Outlook VBA.
3. Nato odprite nov modul in vanj kopirajte naslednje kode VBA.

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 tem lahko v orodni vrstici kliknete ikono »Zaženi«.
5. Takoj se bo sprožil makro.
6. Nato boste morali v polje za vnos kopirati pot do določene datoteke Excel in pritisniti »V redu«.
7. Na koncu bo novo e-poštno sporočilo, ki vsebuje Excelov delovni list, shranjeno v poštni mapi »Osnutki«. Najdete ga na spodnjem posnetku zaslona:

Taktno se spopadite s težavnimi težavami s PST

Ker je datoteka Outlook PST nagnjena k napakam, ste se v Outlooku morda srečali z različnimi težavami. Zato, da bi se izognili bolečim PST škoda, je pametno, da redno varnostno kopirate podatke za svojo datoteko PST. Poleg tega morate imeti v bližini močno orodje za popravilo, na primer DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z sql škode in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com