Preskoči na glavno vsebino

Kako poslati / poslati obseg celic prek Outlook-a iz Excela?

Avtor: Xiaoyang Zadnja sprememba: 2024-09-05

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


puščica modri desni mehurčekPoš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:

kodo vba za izbiro obsega podatkov

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.

kliknite Dovoli, da pošljete izbrani obseg kot prilogo

posnetek zaslona kutools za excel ai

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.
Izboljšajte svoje zmogljivosti Excela z orodji, ki jih poganja AI. Prenesi zdaj in izkusite učinkovitost kot še nikoli prej!

puščica modri desni mehurčekPoš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.

kodo vba za izbiro obsega podatkov

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.

kliknite Dovoli, da pošljete izbrani obseg kot telo e-pošte

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

🤖 Kutools AI Aide: Revolucionirajte analizo podatkov na podlagi: Inteligentna izvedba   |  Ustvari kodo  |  Ustvarite formule po meri  |  Analizirajte podatke in ustvarite grafikone  |  Prikličite funkcije Kutools...
Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

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!