Si sovint heu d'enviar determinats llibres o fulls per correu electrònic, hauríeu d'haver notat que aquest procediment no es pot trucar ràpidament. Si ho fas "clàssic", necessites:
- obrir un programa de correu electrònic (per exemple, Outlook)
- crear un missatge nou
- escriviu l'adreça, l'assumpte i el text
- adjunta un fitxer al missatge (no t'oblidis!)
- feu clic al botó enviar
De fet, el correu es pot enviar fàcilment des d'Excel de moltes maneres diferents. Vés…
Mètode 1: Enviament incrustat
Si encara teniu el bon Excel 2003, tot és senzill. Obriu el llibre/full desitjat i seleccioneu-lo al menú Fitxer – Envia – Missatge (Fitxer — Envia a — Destinatari del correu). S'obrirà una finestra en la qual podeu triar una de les dues opcions per enviar:
En el primer cas, el llibre actual s'afegirà al missatge com a fitxer adjunt, en el segon cas, el contingut del full actual anirà directament al text del missatge com a taula de text (sense fórmules).
A més, el menú Arxiu – Envia (Fitxer — Envia a) Hi ha algunes opcions d'enviament més exòtiques:
- Missatge (per revisió) (Destinatari del correu per revisió) – s'envia tot el llibre de treball i, al mateix temps, s'activa el seguiment de canvis, és a dir, comença a solucionar-se clarament: qui, quan i en quines cel·les ha fet quins canvis. A continuació, podeu mostrar els canvis fets al menú Servei - Correccions - Ressaltar les correccions (Eines — Seguiment dels canvis — Ressaltar els canvis) o a la pestanya Revisió – Correccions (Revisió: seguiment dels canvis) Semblarà així:
Els marcs de colors marquen els canvis fets al document (cada usuari té un color diferent). Quan passeu el ratolí, apareix una finestra semblant a una nota amb una descripció detallada de qui, què i quan s'ha canviat en aquesta cel·la. És molt convenient per revisar documents, quan, per exemple, edites l'informe dels teus subordinats o el cap edita el teu.
- Al llarg de la ruta (Destinatari d'encaminament) – el missatge on s'adjuntarà el vostre llibre passarà per una cadena de destinataris, cadascun dels quals l'enviarà automàticament més endavant, com una batuta. Si ho desitja, podeu configurar el missatge perquè us torni al final de la cadena. Podeu activar el seguiment de canvis per veure les modificacions fetes per cada persona al fil.
En el nou Excel 2007/2010, la situació és lleugerament diferent. En aquestes versions, per enviar el llibre per correu, cal seleccionar el botó Oficines (botó d'oficina) o pestanya Dossier (Dossier) i equip enviar (Enviar). A continuació, s'ofereix a l'usuari un conjunt d'opcions d'enviament:
Tingueu en compte que en les noves versions, la possibilitat d'enviar un full separat del llibre de treball inserit al cos de la carta ha desaparegut, com ho va ser a Excel 2003 i posteriors. L'única opció que queda és enviar el fitxer sencer. Però hi va haver una oportunitat útil per enviar el conegut format PDF i el menys conegut XPS (semblant al PDF, però no requereix Acrobat Reader per llegir - s'obre directament a Internet Explorer). L'ordre per enviar un llibre a revisió es pot extreure com a botó addicional al tauler d'accés ràpid mitjançant Fitxer – Opcions – Barra d'eines d'accés ràpid – Totes les ordres – Envia a revisió (Fitxer — Opcions — Barra d'eines d'accés ràpid — Tots els comandaments — Envia per revisió).
Mètode 2. Macros simples per enviar
Enviar una macro és molt més fàcil. Obrint l'Editor de Visual Basic mitjançant el menú Servei – Macro – Editor Visual Basic (Eines — Macro — Editor Visual Basic), inseriu el mòdul nou al menú Inserir – Mòdul i copieu el text d'aquestes dues macros allà:
Sub SendWorkbook() ActiveWorkbook.SendMail Recipients:="[email protected]", Subject:="Лови файлик" End Sub Sub SendSheet() ThisWorkbook.Sheets("Лист1"). Copia amb ActiveWorkbook .SendMail Recipients:="[ protegit]", Subject:="Captura el fitxer" .Close SaveChanges:=Fals Final amb End Sub Després d'això, les macros copiades es poden executar al menú Servei – Macro – Macros (Eines — Macro — Macros). Enviar llibre de treball envia tot el llibre actual a l'adreça especificada i Enviar Full — Fitxa 1 com a document adjunt.
Quan executeu la macro, Excel es posarà en contacte amb Outlook, cosa que farà que aparegui el següent missatge de seguretat a la pantalla:
Espereu fins que aparegui el botó Resoldre s'activa i feu-hi clic per confirmar l'enviament. Després d'això, els missatges generats automàticament es col·locaran a la carpeta Sortint i s'enviarà als destinataris la primera vegada que inicieu Outlook o, si el teniu en funcionament, immediatament.
Mètode 3. Macro universal
I si no voleu enviar el llibre actual, sinó algun altre fitxer? I el text del missatge també estaria bé de configurar! Les macros anteriors no ajudaran aquí, ja que estan limitades per les capacitats del mateix Excel, però podeu crear una macro que gestionarà Outlook des d'Excel: creeu i ompliu una finestra de missatge nova i envieu-la. La macro té aquest aspecte:
Sub SendMail() Dim OutApp com a objecte Dim OutMail com a object Dim cel·la Com a rang Application.ScreenUpdating = False Establiu OutApp = CreateObject("Outlook.Application") 'inicieu Outlook en mode ocult OutApp.Session.Logon En cas d'error GoTo neteja' si no començat - sortida Set OutMail = OutApp.CreateItem(0) 'crear un missatge nou En cas d'error Reprendre Següent' ompliu els camps del missatge amb OutMail .To = Range("A1").Value .Subject = Range("A2"). Valor .Cos = Interval("A3").Valor .Fitxers adjunts.Afegir rang("A4").El valor "Enviament es pot substituir per Visualització per veure el missatge abans d'enviar-lo .Enviar Finalitzar amb un error GoTo 0 Set OutMail = Res de neteja : Set OutApp = Res Application.ScreenUpdating = True End Sub L'adreça, l'assumpte, el text del missatge i la ruta al fitxer adjunt han d'estar a les cel·les A1:A4 del full actual.
- Grup de correu des d'Excel amb el complement PLEX
- Macros per enviar correu des d'Excel mitjançant Lotus Notes de Dennis Wallentin
- Què són les macros, on inserir codi de macro a Visual Basic
- Creació de correus electrònics amb la funció HYPERLINK