Ja bieži nākas izsūtīt noteiktas grāmatas vai lapas pa e-pastu, tad vajadzēja ievērot, ka šo procedūru par ātru nosaukt nevar. Ja jūs to darāt "klasiski", tad jums ir nepieciešams:
- atvērt e-pasta programmu (piemēram, Outlook)
- izveidot jaunu ziņojumu
- ierakstiet adresi, tēmu un tekstu
- pievienojiet ziņai failu (neaizmirstiet!)
- noklikšķiniet uz pogas sūtīt
Patiesībā pastu var viegli nosūtīt tieši no Excel dažādos veidos. Iet…
1. metode: iegultā sūtīšana
Ja jums joprojām ir vecā labā Excel 2003, tad viss ir vienkārši. Atveriet vajadzīgo grāmatu/lapu un izvēlieties no izvēlnes Fails - Sūtīt - Ziņojums (Fails — Sūtīt — pasta adresāts). Tiks atvērts logs, kurā varat izvēlēties vienu no divām sūtīšanas iespējām:
Pirmajā gadījumā pašreizējā grāmata tiks pievienota ziņojumam kā pielikums, otrajā gadījumā pašreizējās lapas saturs nonāks tieši ziņojuma tekstā kā teksta tabula (bez formulām).
Turklāt ēdienkarte Fails — Iesniegt (Fails — sūtīt uz) ir vēl dažas eksotiskas piegādes iespējas:
- Ziņojums (pārskatīšanai) (Pasta saņēmējs pārskatīšanai) – tiek nosūtīta visa darbgrāmata un tajā pašā laikā tai tiek ieslēgta izmaiņu izsekošana, proti, sāk skaidri fiksēt – kurš, kad un kādās šūnās kādas izmaiņas veicis. Pēc tam varat parādīt izvēlnē veiktās izmaiņas Pakalpojums — labojumi — izceliet labojumus (Rīki — izsekot izmaiņas — izcelt izmaiņas) vai cilnē Pārskats – labojumi (Pārskatīt — izsekot izmaiņām) Tas izskatīsies apmēram šādi:
Krāsainie rāmji iezīmē dokumentā veiktās izmaiņas (katram lietotājam ir atšķirīga krāsa). Novietojot peles kursoru, tiek parādīts piezīmei līdzīgs logs ar detalizētu aprakstu par to, kas, ko un kad mainīja šajā šūnā. Tas ir ļoti ērti dokumentu izskatīšanai, kad, piemēram, rediģējat savu padoto atskaiti vai priekšnieks rediģē jūsējo.
- Pa maršrutu (Maršrutēšanas adresāts) – ziņojums, kurā tiks pievienota jūsu grāmata, izies cauri adresātu ķēdei, un katrs no tiem automātiski pārsūtīs to tālāk kā zizlis. Ja vēlaties, varat iestatīt, lai ziņojums atgrieztos pie jums ķēdes beigās. Varat iespējot izmaiņu izsekošanu, lai redzētu katras pavedienā esošās personas veiktos labojumus.
Jaunajā programmā Excel 2007/2010 situācija ir nedaudz atšķirīga. Šajās versijās, lai grāmatu nosūtītu pa pastu, ir jāatlasa poga Office (Biroja poga) vai cilne fileja (Fails) un komanda sūtīt (Sūtīt). Tālāk lietotājam tiek piedāvāts sūtīšanas iespēju kopums:
Ņemiet vērā, ka jaunajās versijās ir pazudusi iespēja nosūtīt atsevišķu darbgrāmatas lapu, kas ievietota vēstules pamattekstā – kā tas bija programmā Excel 2003 un jaunākās versijās. Vienīgā iespēja ir nosūtīt visu failu. Taču bija noderīga iespēja nosūtīt labi zināmajā PDF formātā un mazāk zināmajā XPS (līdzīgi kā PDF, bet lasīšanai nav nepieciešams Acrobat Reader – tas atveras tieši Internet Explorer). Komandu nosūtīt grāmatu pārskatīšanai var izvilkt kā papildu pogu ātrās piekļuves panelī, izmantojot Fails – Opcijas – Ātrās piekļuves rīkjosla – Visas komandas – Sūtīt pārskatīšanai (Fails — Opcijas — Ātrās piekļuves rīkjosla — Visas komandas — Sūtīt pārskatīšanai).
2. metode. Vienkārši makro nosūtīšanai
Makro nosūtīšana ir daudz vienkāršāka. Visual Basic redaktora atvēršana, izmantojot izvēlni Pakalpojums — makro — Visual Basic redaktors (Rīki — Makro — Visual Basic redaktors), ievietojiet jauno moduli izvēlnē Ievietot - modulis un nokopējiet tur šo divu makro tekstu:
Sub SendWorkbook() ActiveWorkbook.SendMail Recipients:="[email protected]", Subject:="Лови файлик" Beigt Sub Sub SendSheet() ThisWorkbook.Sheets("Лист1").Kopēt ar ActiveWorkbook .SendMail Recipients:="[e-pasta adresāti: Protected]", Subject:="Notveriet failu" .Close SaveChanges:=False beigu ar beigu apakšpunktu Pēc tam kopētos makro var palaist izvēlnē Pakalpojums – Makro – Makro (Rīki — Makro — Makro). SendWorkbook nosūta visu pašreizējo grāmatu uz norādīto adresi, un SendSheet — Lapa1 kā pielikums.
Palaižot makro, programma Excel sazināsies ar programmu Outlook, kā rezultātā ekrānā tiks parādīts šāds drošības ziņojums:
Pagaidiet, līdz poga Atrisināt kļūst aktīvs, un noklikšķiniet uz tā, lai apstiprinātu savu iesniegšanu. Pēc tam automātiski ģenerētie ziņojumi tiks ievietoti mapē Izejošs un tiks nosūtīts adresātiem, pirmo reizi startējot programmu Outlook vai, ja tā ir palaista, uzreiz.
3. metode. Universāls makro
Un ja vēlaties nosūtīt nevis pašreizējo grāmatu, bet jebkuru citu failu? Un arī ziņas tekstu būtu jauki iestatīt! Iepriekšējie makro šeit nepalīdzēs, jo tos ierobežo pašas Excel iespējas, taču var izveidot makro, kas pārvaldīs Outlook no Excel – izveido un aizpildi jaunu ziņojuma logu un nosūti to. Makro izskatās šādi:
Sub SendMail() Dim OutApp As Object Dim OutMail As Object Aptumšot šūnu kā diapazonu Application.ScreenUpdating = Nepareizi Iestatīt OutApp = CreateObject("Outlook.Application") 'startējiet programmu Outlook slēptā režīmā OutApp.Session.Logon On Error GoTo tīrīšana, ja tā nav sākās - iziet Set OutMail = OutApp.CreateItem(0) 'izveidot jaunu ziņojumu On Error Resume Next 'aizpildiet ziņojuma laukus With OutMail .To = Range("A1").Value .Subject = Range("A2"). Vērtība .Body = Diapazons("A3").Vērtība .Pielikumi.Pievienot diapazonu("A4").Vērtība 'Sūtīt var aizstāt ar Display, lai skatītu ziņojumu pirms nosūtīšanas. Sūtīt Beigt ar kļūdu GoTo 0 Iestatīt OutMail = Nekas netīrīts : Set OutApp = Nothing Application.ScreenUpdating = True End Sub Adresei, tēmai, ziņojuma tekstam un ceļam uz pievienoto failu jābūt pašreizējās lapas šūnās A1:A4.
- Grupas pasta sūtīšana no Excel ar PLEX pievienojumprogrammu
- Makro pasta sūtīšanai no Excel, izmantojot Denisa Vallentina Lotus Notes
- Kas ir makro, kur ievietot makro kodu programmā Visual Basic
- E-pasta ziņojumu izveide ar funkciju HYPERLINK