Cuprins
Acesta este un exemplu simplu de cum să trimiteți un e-mail din Excel.
Faceți clic aici pentru un exemplu mai complex: Trimiteți foaia de lucru prin e-mail ca registru de lucru separat. Acest exemplu tratează, de asemenea, protecția prin parolă și alte probleme comune.
| 12345678910111213141516171819202122232425262728 | Sub Mail_Workbook ()Application.ScreenUpdating = FalsDim OutApp Ca obiectReduceți mesajul ca obiect'Creați variabile inițialeSet OutApp = CreateObject („Outlook.Application”)Set OutMail = OutApp.CreateItem (0)'E-mailLa eroare Reluați în continuareCu OutMail.to = "[email protected]".CC = "".BCC = "".Subject = "Subiect".Body = "Textul corpului"'.Attachments.Add (FilePath)' Opțional dacă aveți un atașament.Afişa„.Trimite” Opțional pentru automatizarea trimiterii de e-mail.Se termina cuLa eroare GoTo 0Set OutMail = NimicSet OutApp = NimicApplication.ScreenUpdating = AdevăratSfârșitul Sub |
