In questo articolo, creeremo una macro per inviare un foglio come allegato in un'e-mail.
Prima di eseguire la macro, è necessario specificare un ID e-mail e l'oggetto dell'e-mail.
In questo esempio, vogliamo inviare "DataSheet" come allegato all'e-mail.
Spiegazione logica
Abbiamo creato la macro "MailSheet", che prende l'ID e-mail e l'oggetto dell'e-mail dalle caselle di testo. Crea una nuova copia di “DataSheet”, la salva e la invia come allegato.
Spiegazione del codice
Fogli("Foglio dati").Copia
Il codice sopra viene utilizzato per creare una copia di "DataSheet" in una nuova cartella di lavoro.
ActiveWorkbook.SaveAs "Parte di " & ThisWorkbook.Name _
& " " & DataStr & ".xls"
Il codice sopra viene utilizzato per salvare la nuova cartella di lavoro.
ActiveWorkbook.SendMail EmailID, MailSubject
Il codice sopra viene utilizzato per inviare la cartella di lavoro attiva come allegato all'ID e-mail specificato, con l'oggetto specificato.
ActiveWorkbook.Chiudi Falso
Il codice sopra viene utilizzato per chiudere la cartella di lavoro attiva senza salvarla.
Si prega di seguire sotto per il codice
Sub MailSheet() 'Dichiarazione delle variabili Dim StrDate, EmailID, MailSubject As String 'Ottenimento del valore per l'ID e-mail e l'oggetto dalle caselle di testo EmailID = Sheet1.TextBox1.Value MailSubject = Sheet1.TextBox2.Value 'Copia "DataSheet" nella nuova cartella di lavoro Fogli(" DataSheet"). Copia 'Formattazione di data e ora in un formato particolare StrDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm") 'Salvataggio della cartella di lavoro attiva con un nuovo nome ActiveWorkbook. Salva con nome "Parte di " & ThisWorkbook.Name _ & " " & StrDate & ".xls" 'Invio posta ActiveWorkbook.SendMail EmailID, Oggetto Mail 'Chiudi la cartella di lavoro attiva ActiveWorkbook.Close False End Sub
Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook. Inoltre, puoi seguirci su Twitter e Facebook.
Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici al sito di posta elettronica