Испраќање книга или лист по е-пошта

Ако често треба да испраќате одредени книги или листови по е-пошта, тогаш требаше да забележите дека оваа постапка не може да се нарече брза. Ако го правите тоа „класично“, тогаш ви треба:

  • отворете програма за е-пошта (на пример, Outlook)
  • креирајте нова порака
  • внесете ја адресата, темата и текстот
  • прикачете датотека на пораката (не заборавајте!)
  • кликнете на копчето Испрати

Всушност, поштата може лесно да се испрати директно од Excel на еден куп различни начини. Оди…

Метод 1: Вградено испраќање

Ако сè уште го имате стариот добар Excel 2003, тогаш сè е едноставно. Отворете ја саканата книга/лист и изберете од менито Датотека – Испрати – Порака (Датотека - Испрати до - Примач на пошта). Ќе се отвори прозорец во кој можете да изберете една од двете опции за испраќање:

Во првиот случај, тековната книга ќе биде додадена на пораката како прилог, во вториот случај, содржината на тековниот лист ќе оди директно во текстот на пораката како текстуална табела (без формули).

Покрај тоа, менито Датотека - Поднесете (Датотека - Испрати до) има уште неколку егзотични опции за испорака:

 

  • Порака (за преглед) (Примач на пошта за преглед) – се испраќа целата работна книга и во исто време за неа се вклучува следењето на промените, односно почнува јасно да се поправа – кој, кога и во кои ќелии направил какви промени. Потоа можете да ги прикажете промените направени во менито Услуга – Поправки – Истакнете поправки (Алатки - Промени за следење - Означете ги промените) или на јазичето Преглед – корекции (Преглед - следете ги промените) Lookе изгледа вакво нешто:

    Рамките во боја ги означуваат промените направени во документот (секој корисник има различна боја). Кога лебдите со глувчето, се појавува прозорец како белешка со детален опис кој, што и кога сменил во оваа ќелија. Многу е погодно за прегледување документи, кога, на пример, го уредувате извештајот на вашите подредени или шефот го уредува вашиот.

  • По должината на трасата (Рутирачки примач) – пораката каде што ќе биде прикачена вашата книга ќе помине низ синџир на примачи, од кои секој автоматски ќе ја проследи понатаму, како палка. Доколку сакате, можете да ја поставите пораката да ви се враќа на крајот од ланецот. Може да го овозможите следењето на промените за да ги видите уредувањата направени од секое лице во низата.

Во новиот Excel 2007/2010, ситуацијата е малку поинаква. Во овие верзии, за да ја испратите книгата по пошта, треба да го изберете копчето канцеларија (Канцелариско копче) или таб датотека (датотека) и тим Испрати (Испрати). Следно, на корисникот му се нуди збир на опции за испраќање:

Имајте предвид дека во новите верзии, можноста за испраќање посебен лист од работната книга вметната во телото на писмото исчезна - како што беше во Excel 2003 и подоцна. Единствената опција што останува е да ја испратите целата датотека. Но, имаше корисна можност да се испрати во добро познатиот PDF формат и помалку познатиот XPS (сличен на PDF, но не бара Acrobat Reader за читање - се отвора директно во Internet Explorer). Командата за испраќање книга за преглед може да се извлече како дополнително копче на панелот за брз пристап преку Датотека – Опции – Лента со алатки за брз пристап – Сите команди – Испрати за преглед (Датотека - Опции - Лента со алатки за брз пристап - Сите команди - Испрати за преглед).

Метод 2. Едноставни макроа за испраќање

Испраќањето макро е многу полесно. Отворање на уредувачот на Visual Basic преку менито Услуга – Макро – Уредувач на Visual Basic (Алатки - макро - уредник на Visual Basic), вметнете го новиот модул во менито Вметни – Модул и копирајте го текстот на овие две макроа таму:

Под SendWorkbook() ActiveWorkbook.SendMail Recipients:="[email protected]", Subject:="Лови файлик" End Sub Sub SendSheet() ThisWorkbook.Sheets("Лист1").Копирај со ActiveWorkbook .Примачи на SendMail:="[email заштитени]", Subject:="Фати ја датотеката" .Close SaveChanges:=False End With End Sub  

После тоа, копираните макроа може да се извршат во менито Услуга – Макро – Макроа (Алатки - макро - макроа). Испрати Работна книга ја испраќа целата тековна книга на наведената адреса и SendSheet — Лист1 како прилог.

Кога ќе го извршите макрото, Excel ќе контактира со Outlook, што ќе предизвика следнава безбедносна порака да се појави на екранот:

Почекајте додека копчето Реши станува активен и кликнете на него за да го потврдите вашето поднесување. После тоа, автоматски генерираните пораки ќе бидат ставени во папката Појдовна и ќе биде испратен до примателите кога првпат ќе го стартувате Outlook или, доколку го имате во функција, веднаш.

Метод 3. Универзално макро

И ако сакате да ја испратите не тековната книга, туку која било друга датотека? И текстот на пораката исто така би било убаво да се постави! Претходните макроа нема да помогнат овде, бидејќи се ограничени од можностите на самиот Excel, но можете да креирате макро што ќе управува со Outlook од Excel - креирајте и пополнете нов прозорец со пораки и испратете го. Макрото изгледа вака:

Под SendMail() Затемнете ја OutApp како објект Затемнете ја OutMail како објект Затемнете ја ќелијата како опсег Application.ScreenUpdating = False Set OutApp = CreateObject („Outlook.Application“) 'стартувајте го Outlook во скриен режим OutApp.Session.Logon On Грешка GoTo cleanupif не започна - излезе Value .Body = Range("A0").Value .Attachments.Add Range("A1").Value 'Send може да се замени со Display за да се види пораката пред да се испрати .Send End With On Error GoTo 2 Set OutMail = Nothing cleanup : Поставете OutApp = Ништо Application.ScreenUpdating = True End Sub  

Адресата, темата, текстот на пораката и патеката до приложената датотека мора да бидат во ќелиите A1:A4 од тековниот лист.

  • Групна пошта од Excel со додатокот PLEX
  • Макроа за испраќање пошта од Excel преку Lotus Notes од Денис Валентин
  • Што се макроа, каде да вметнете макро код во Visual Basic
  • Креирање е-пошта со функцијата HYPERLINK

 

Оставете Одговор