Kako poslati delovni list samo prek Outlooka iz Excela?
Če želite en delovni list poslati iz delovnega zvezka v Excelu prek Outlooka, ga lahko pošljete kot prilogo, kot vsebino telesa ali kot datoteko PDF. Toda ali obstajajo kakšne hitrejše rešitve te težave v Excelu?
Pošljite en delovni list kot telo iz Excela z ukazom Pošlji prejemniku pošte
Pošljite en delovni list kot prilogo iz Excela s kodo VBA
Pošljite en delovni list kot datoteko PDF iz Excela s kodo VBA
Pošljite en delovni list kot telo iz Excela z ukazom Pošlji prejemniku pošte
Excel nas podpira, da aktivni delovni list pošljemo kot vsebino telesa z ukazom Pošlji prejemniku pošte. Naredite lahko naslednje:
Če uporabljate Excel 2007, 2010 ali 2013, morate to dodati Pošlji prejemniku pošte ukaz na Orodna vrstica za hitri dostop najprej.
1. Kliknite ikono Prilagodite orodno vrstico za hitri dostop, in izberite Več ukazov, glej posnetek zaslona:
2. In v Možnosti programa Excel izberite pogovorno okno Ukazi ni na traku v Izberite Ukazi med spustnega seznama in izberite Pošlji prejemniku pošte in kliknite Dodaj >> gumb, da dodate ta ukaz, zadnji klik OK , da shranite to nastavitev. Oglejte si posnetek zaslona:
3. O Pošlji prejemniku pošte ukaz je bil vstavljen v Orodna vrstica za hitri dostop, glej posnetek zaslona:
4. Nato kliknite to Pošlji prejemniku pošte ikono in v oknu se prikaže pozivno okno E-naslov potrditveno polje, potrdite Pošljite trenutni list kot telo sporočilain kliknite OK. Oglejte si posnetek zaslona:
5. In polje za urejanje e-pošte se prikaže nad podatki delovnega lista, v ustrezno besedilno polje lahko vnesete prejemnike, zadevo in uvod. Oglejte si posnetek zaslona:
6. Nato kliknite Pošlji tega Sheet poslati ta aktivni delovni list kot telo sporočila vaši določeni osebi.
Pošljite en delovni list kot prilogo iz Excela s kodo VBA
Če želite poslati aktivni delovni list kot prilogo, vam lahko naslednja koda VBA naredi uslugo.
1. Aktivirajte svoj delovni list, ki ga želite poslati.
2. Držite tipko ALT + F11 in odpre tipko Okno Microsoft Visual Basic for Applications.
3. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.
Koda VBA: trenutni delovni list pošljite kot prilogo iz Excela
Sub SendWorkSheet()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
If Wb2.HasVBProject Then
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
Else
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
End If
Case Excel8:
xFile = ".xls"
xFormat = Excel8
Case xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "kte features"
.Body = "Please check and read this document."
.Attachments.Add Wb2.FullName
.Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.ScreenUpdating = True
End Sub
Opombe: V zgornji kodi lahko spremenite naslednje podatke po svojih željah.
- .To = ""
- .CC = ""
- .BCC = ""
- .Subject = "funkcije kte"
- .Body = "Preverite in preberite ta dokument."
4. Nato kliknite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, kliknite Dovoli ko je vrstica napredka končana in je trenutni delovni list prejemniku poslan kot priloga.
Pošljite en delovni list kot datoteko PDF iz Excela s kodo VBA
Včasih morate poslati poročilo o delovnem listu drugim, vendar ne želite, da ga drugi spreminjajo. V tem primeru lahko delovni list iz Excela pošljete kot datoteko PDF.
1. Aktivirajte svoj delovni list, ki ga želite poslati.
2. Držite tipko ALT + F11 in odpre tipko Okno Microsoft Visual Basic for Applications.
3. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.
Koda VBA: iz Excela pošljite trenutni delovni list kot datoteko PDF
Sub SendWorkSheetToPDF()
'Update 20131209
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "kte features"
.Body = "Please check and read this document."
.Attachments.Add FileName
.Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub
Opomba: V zgornji kodi lahko spremenite naslednje podatke po svojih željah.
- .To = ""
- .CC = ""
- .BCC = ""
- .Subject = "funkcije kte"
- .Body = "Preverite in preberite ta dokument."
4. Nato pritisnite F5 in se bo odprlo pozivno polje, kliknite Dovoli po zaključku vrstice napredovanja je bil aktivni delovni list določeni osebi poslan kot datoteka PDF.
Opombe:
1. Te metode so na voljo samo, če Outlook uporabljate kot poštni program.
2. Po pošiljanju trenutnega delovnega lista se lahko v Outlooku prepričate, da je bilo e-poštno sporočilo uspešno poslano.
Ustvari poštni seznam in nato pošlji e-pošto
|
O Kutools za Excel's Ustvari poštni seznam in Pošlji E-pošta pripomočki lahko hitro ustvarijo poštni seznam na delovnem listu, nato pa pošljejo isto temo, isto vsebino in iste priloge na več e-poštnih naslovov. |
Sorodni članki:
Kako poslati trenutno delovno knjigo prek Outlooka iz Excela?
Kako poslati / poslati obseg celic prek Outlook-a iz Excela?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!