Kako poslati / poslati obseg celic prek Outlook-a iz Excela?
Ste že kdaj imeli težave, ki jih morate po končanem poročilu na delovnem listu poslati v vrsto celic na tem delovnem listu, ki vsebujejo nekatere pomembne podatke za vašega določenega prejemnika. Ali obstajajo hitri načini za pošiljanje tega obsega iz Excela, ne da bi odprli Outlook?
Pošlji obseg celic kot prilogo iz Excela s kodo VBA
Pošlji obseg celic kot telo iz Excela s kodo VBA
Pošlji obseg celic kot prilogo iz Excela s kodo VBA
Naslednja koda VBA vam lahko pomaga, da izbrani obseg pošljete kot prilogo v Excelu. Naredite to:
1. Odprite delovni zvezek in držite tipko ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic for Applications.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.
Koda VBA: pošlji obseg celic kot prilogo iz Excela
Sub SendRange()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim Ws As Worksheet
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Wb = Application.ActiveWorkbook
Wb.Worksheets.Add
Set Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells(1, 1)
Ws.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 = "skyyang@extendoffice.com"
.CC = ""
.BCC = ""
.Subject = "information of kte"
.Body = "hello, 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
Ws.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Opombe: V zgornji kodi lahko spremenite naslednje podatke po svojih željah.
- .To = "skyyang@extendoffice.com"
- .CC = ""
- .BCC = ""
- .Subject = "informacije o kte"
- .Telo = "zdravo, preverite in preberite ta dokument."
3. Nato kliknite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, ki vas bo opozorilo na izbiro obsega, ki ga želite poslati. Oglejte si posnetek zaslona:
4. Nato kliknite OK, in pojavilo se bo pozivno polje, po končani vrstici napredka kliknite Dovoli, nato pa je bil določen obseg celic prejemniku poslan kot priloga.

Odklenite Excel Magic z Kutools AI
- Pametna izvedba: Izvajajte celične operacije, analizirajte podatke in ustvarjajte grafikone – vse poganjajo preprosti ukazi.
- Formule po meri: Ustvarite prilagojene formule za poenostavitev delovnih tokov.
- Kodiranje VBA: Napišite in implementirajte kodo VBA brez truda.
- Razlaga formule: Z lahkoto razumejte zapletene formule.
- Prevajanje besedila: Odpravite jezikovne ovire v vaših preglednicah.
Pošlji obseg celic kot telo iz Excela s kodo VBA
Če želite poslati določen obseg kot del telesa sporočila iz Excela, lahko za njegovo rešitev uporabite tudi naslednjo kodo VBA.
1. Aktivirajte svoj delovni list in držite tipko ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic for Applications.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.
Koda VBA: iz Excela pošlji vrsto celic kot telo
Sub EmailRange()
'Update 20131209
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
WorkRng.Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Please read this email."
.Item.To = "skyyang@extendoffice.com"
.Item.Subject = "information of kte"
.Item.Send
End With
Application.ScreenUpdating = True
End Sub
Opomba: V zgornji kodi lahko spremenite naslednje podatke po svojih željah.
- .Introduction = "Preberite to e-pošto."
- .Item.To = "skyyang@extendoffice.com"
- .Item.Subject = "informacije o kte"
3. Nato kliknite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, ki vas bo opozorilo na izbiro obsega, ki ga želite poslati.
4. Nato kliknite OK, in pojavilo se bo pozivno polje, po končani vrstici napredka kliknite Dovoli, nato pa je bil določen obseg celic poslan vašemu prejemniku kot telo sporočila.
Opombe:
1. Te kode so na voljo samo, če je Outlook vaš poštni program.
2. Po pošiljanju trenutnega delovnega lista se lahko v Outlooku prepričate, ali je bilo e-poštno sporočilo uspešno poslano.
Sorodni članki:
Kako poslati delovni list samo prek Outlooka iz Excela?
Kako poslati trenutno delovno knjigo prek Outlooka 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!