Sommario
Questo è un semplice esempio di come inviare un'e-mail da Excel.
Fare clic qui per un esempio più complesso: inviare un foglio di lavoro tramite e-mail come cartella di lavoro separata. Questo esempio tratta anche della protezione tramite password e di altri problemi comuni.
| 12345678910111213141516171819202122232425262728 | Sottoposta_cartella di lavoro()Application.ScreenUpdating = FalseDim OutApp come oggettoDim OutMail come oggetto'Crea variabili inizialiImposta OutApp = CreateObject("Outlook.Application")Imposta OutMail = OutApp.CreateItem(0)'E-mailIn caso di errore Riprendi AvantiCon OutMail.to = "[email protected]".CC = "".BCC = "".Oggetto = "Oggetto".Body = "Corpo del testo"'.Attachments.Add (FilePath) 'Facoltativo se hai un allegato.Schermo' .Invia 'Facoltativo per automatizzare l'invio di email.Termina conIn caso di errore Vai a 0Imposta OutMail = NienteImposta OutApp = NienteApplication.ScreenUpdating = TrueFine sottotitolo |
