Se moitas veces tes que enviar certos libros ou follas por correo electrónico, deberías ter notado que este procedemento non se pode chamar rápido. Se o fas "de forma clásica", necesitas:
- abrir un programa de correo electrónico (por exemplo, Outlook)
- crear unha nova mensaxe
- escriba o enderezo, o asunto e o texto
- anexa un ficheiro á mensaxe (non o esquezas!)
- fai clic no botón enviar
De feito, o correo pode enviarse facilmente directamente desde Excel de moitas formas diferentes. Vaia…
Método 1: envío incorporado
Se aínda tes o bo Excel 2003, entón todo é sinxelo. Abra o libro/folla desexado e seleccione no menú Ficheiro - Enviar - Mensaxe (Ficheiro — Enviar a — Destinatario do correo). Abrirase unha xanela na que podes escoller unha das dúas opcións para enviar:
No primeiro caso, o libro actual engadirase á mensaxe como anexo, no segundo caso, o contido da folla actual irá directamente ao texto da mensaxe como unha táboa de texto (sen fórmulas).
Ademais, o menú Arquivo - Enviar (Arquivo — Enviar a) Hai algunhas opcións de envío máis exóticas:
- Mensaxe (para revisión) (Destinatario do correo para revisión) – envíase todo o caderno de traballo e ao mesmo tempo actívase o seguimento de cambios para iso, é dicir, comeza a corrixirse claramente – quen, cando e en que celas fixo que cambios. A continuación, pode mostrar os cambios realizados no menú Servizo - Correccións - Destaque as correccións (Ferramentas — Rastrexar cambios — Destacar cambios) ou na pestana Revisión - Correccións (Revisión — Seguimento dos cambios) Parecerá algo así:
Os marcos de cores marcan os cambios realizados no documento (cada usuario ten unha cor diferente). Cando pasas o rato co rato, aparece unha xanela con forma de nota cunha descrición detallada de quen, que e cando se cambia nesta cela. É moi cómodo para revisar documentos, cando, por exemplo, editas o informe dos teus subordinados ou o xefe edita o teu.
- Ao longo da ruta (Destinatario de enrutamento) – a mensaxe onde se adxuntará o teu libro pasará por unha cadea de destinatarios, cada un dos cales o reenviará automaticamente, como un bastón de mando. Se o desexa, pode configurar a mensaxe para que che volva ao final da cadea. Podes activar o seguimento de cambios para ver as edicións realizadas por cada persoa no fío.
No novo Excel 2007/2010, a situación é lixeiramente diferente. Nestas versións, para enviar o libro por correo, cómpre seleccionar o botón Oficina (Botón de oficina) ou ficha Arquivo (Arquivo) e equipo enviar (Enviar). A continuación, ofrécese ao usuario un conxunto de opcións de envío:
Teña en conta que nas novas versións desapareceu a posibilidade de enviar unha folla separada do libro de traballo inserida no corpo da carta, como en Excel 2003 e posteriores. A única opción que queda é enviar o ficheiro completo. Pero houbo unha oportunidade útil para enviar o formato PDF coñecido e o XPS menos coñecido (semellante ao PDF, pero non require Acrobat Reader para ler: ábrese directamente en Internet Explorer). O comando para enviar un libro para revisar pódese extraer como un botón adicional no panel de acceso rápido mediante Ficheiro – Opcións – Barra de ferramentas de acceso rápido – Todos os comandos – Enviar para revisión (Ficheiro — Opcións — Barra de ferramentas de acceso rápido — Todos os comandos — Enviar para revisión).
Método 2. Macros simples para enviar
Enviar unha macro é moito máis doado. Abrir o Editor de Visual Basic a través do menú Servizo – Macro – Editor de Visual Basic (Ferramentas — Macro — Editor de Visual Basic), insira o novo módulo no menú Inserir – Módulo e copia alí o texto destas dúas macros:
Sub SendWorkbook() ActiveWorkbook.SendMail Recipients:="[email protected]", Subject:="Лови файлик" End Sub Sub SendSheet() ThisWorkbook.Sheets("Лист1").Copy With ActiveWorkbook .SendMail Recipients:="[ protexido]", Subject:="Capturar o ficheiro" .Close SaveChanges:=Falso Final con End Sub Despois diso, as macros copiadas pódense executar no menú Servizo – Macro – Macros (Ferramentas — Macro — Macros). Enviar libro de traballo envía todo o libro actual ao enderezo especificado e Enviar folla — Ficha 1 como anexo.
Cando executa a macro, Excel poñerase en contacto con Outlook, o que fará que apareza a seguinte mensaxe de seguranza na pantalla:
Agarde ata que o botón Resolver activa e fai clic nel para confirmar o envío. Despois diso, as mensaxes xeradas automaticamente colocaranse no cartafol Saída e enviarase aos destinatarios a primeira vez que inicie Outlook ou, se o ten en execución, inmediatamente.
Método 3. Macro universal
E se queres enviar non o libro actual, senón algún outro ficheiro? E o texto da mensaxe tamén estaría ben fixado! As macros anteriores non axudarán aquí, xa que están limitadas polas capacidades do propio Excel, pero pode crear unha macro que xestionará Outlook desde Excel: cree e enche unha nova xanela de mensaxes e envíea. A macro ten o seguinte aspecto:
Sub SendMail() Dim OutApp como obxecto Dim OutMail como obxecto Dim cell As Range Application.ScreenUpdating = False Establecer OutApp = CreateObject("Outlook.Application") 'inicie Outlook en modo oculto OutApp.Session.Logon On Error GoTo cleanup 'se non iniciado - saír Establecer OutMail = OutApp.CreateItem(0) 'crear unha nova mensaxe En caso de erro Continuar Seguinte 'enche os campos da mensaxe Con OutMail .To = Range("A1").Value .Subject = Range("A2"). Valor .Body = Rango("A3").Valor .Anexos.Engadir intervalo("A4").O valor 'Enviar pódese substituír por Mostrar para ver a mensaxe antes de enviar. : Set OutApp = Nada Application.ScreenUpdating = True End Sub O enderezo, o asunto, o texto da mensaxe e o camiño ao ficheiro adxunto deben estar nas celas A1:A4 da folla actual.
- Grupo de correo desde Excel co complemento PLEX
- Macros para enviar correo desde Excel a través de Lotus Notes de Dennis Wallentin
- Que son as macros, onde inserir o código de macros en Visual Basic
- Creación de correos electrónicos coa función HYPERLINK