Come inviare un singolo foglio di lavoro tramite Outlook direttamente da Excel?
Esistono metodi più rapidi per inviare un singolo foglio di lavoro da una cartella di Excel tramite Outlook, ad esempio come allegato, nel corpo del messaggio o in formato PDF?
Invia un singolo foglio di lavoro come allegato da Excel con codice VBA
Invia un singolo foglio di lavoro come File PDF da Excel con codice VBA
Invia un singolo foglio di lavoro come corpo del messaggio da Excel con il comando Invia destinatario posta
Excel ti permette di inviare il foglio attivo direttamente nel corpo del messaggio email grazie al comando **Invia a destinatario posta**. Ecco come fare:
Se utilizzi Excel 2007, 2010 o 2013, devi innanzitutto aggiungere il comando Invia destinatario posta alla Barra degli strumenti di accesso rapido.
1. Fare clic sull'icona di Personalizza barra degli strumenti di accesso rapido, quindi scegliere Altri comandi. Vedere lo screenshot:
2. Nella finestra di dialogo Opzioni di Excel, selezionare Comandi non presenti nella Barra multifunzione dall’elenco a discesa Scegli comandi da, quindi selezionare l’opzione Invia destinatario posta e fare clic sul pulsante Aggiungi >> per aggiungere questo comando. Infine, fare clic su OK per salvare l’impostazione. Vedere lo screenshot:
3. Il comando Invia destinatario posta è stato aggiunto alla Barra degli strumenti di accesso rapido. Guarda lo screenshot:
4. Fare quindi clic sull’icona del pulsante Invia destinatario posta: verrà visualizzata una finestra di dialogo. Nella finestra E-mail, selezionare l’opzione Invia il Foglio di lavoro corrente come corpo del messaggio, quindi fare clic su OK. Vedere lo screenshot:
5. Verrà visualizzata una casella per la modifica dell’email sopra i dati del foglio di lavoro: inserisci destinatari, oggetto e un’introduzione nei rispettivi campi. Guarda lo screenshot:
6. Fare quindi clic su Invia questo foglio per inviare il foglio attivo come corpo del messaggio al destinatario specificato.
Sblocca la magia di Excel con KUTOOLS AI
- Esecuzione intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici, il tutto con comandi semplici e intuitivi.
- Formule personalizzate: crea formule su misura per ottimizzare i tuoi flussi di lavoro.
- Codifica VBA: Scrivi e implementa codice VBA in modo semplice e immediato.
- Interpretazione delle formule: Comprendi con facilità anche le formule più complesse.
- Traduzione del testo: Superate le barriere linguistiche direttamente nei vostri fogli di calcolo.
Invia un singolo foglio di lavoro come allegato da Excel con codice VBA
Se desideri inviare via email il foglio attivo come allegato, il seguente codice VBA ti sarà utile.
1. Attiva il foglio di lavoro che vuoi inviare.
2. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic, Applications.
3. Fai clic su Inserisci > Modulo, quindi incolla il codice seguente nella finestra del modulo.
Codice VBA: invia Foglio di lavoro corrente come allegato da Excel
Sub SendWorkSheet()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
If Wb2.HasVBProject Then
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
Else
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
End If
Case Excel8:
xFile = ".xls"
xFormat = Excel8
Case xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
.To = "skyyang@extendoffice.com"
.CC = ""
.BCC = ""
.Subject = "kte features"
.Body = "Please check and read this document."
.Attachments.Add Wb2.FullName
.Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.ScreenUpdating = True
End Sub
Nota: nel codice riportato sopra, puoi personalizzare le seguenti informazioni in base alle tue esigenze.
- .To = «skyyang@extendoffice.com»
- .CC = «»
- .BCC = «»
- .Subject = «kte features»
- .Body = «Si prega di controllare e leggere questo documento.»
4. Fare quindi clic sul tasto F5 per eseguire il codice. Verrà visualizzata una finestra di dialogo: fare clic su Consenti al termine della barra di avanzamento; il foglio di lavoro corrente sarà stato inviato al destinatario come allegato.
Invia un singolo foglio di lavoro come File PDF da Excel con codice VBA
A volte è necessario condividere il proprio rapporto in un foglio di lavoro con altre persone, impedendo loro di apportare modifiche. In questi casi, puoi inviare il foglio di lavoro direttamente da Excel come file PDF.
1. Attiva il foglio di lavoro che vuoi inviare.
2. Tenere premuti i tasti ALT + F11, per aprire la finestra Microsoft Visual Basic, Applications.
3. Fare clic su Inserisci>Modulo, quindi incollare il codice seguente nella finestra del modulo.
Codice VBA: invia Foglio di lavoro corrente come File PDF da Excel
Sub SendWorkSheetToPDF()
'Update 20131209
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
.To = "skyyang@extendoffice.com"
.CC = ""
.BCC = ""
.Subject = "kte features"
.Body = "Please check and read this document."
.Attachments.Add FileName
.Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub
Nota: nel codice riportato sopra, puoi personalizzare le seguenti informazioni in base alle tue esigenze.
- .To = «skyyang@extendoffice.com»
- .CC = «»
- .BCC = «»
- .Subject = «kte features»
- .Body = «Si prega di controllare e leggere questo documento.»
4. Premere quindi il tasto F5: verrà visualizzata una finestra di dialogo. Al termine della barra di avanzamento, fare clic su Consenti; il foglio attivo sarà stato inviato al destinatario specificato come file PDF.
Note:
1. Questi metodi sono disponibili esclusivamente quando si utilizza Outlook come client di posta elettronica.
2. Dopo aver inviato il foglio di lavoro corrente, puoi verificare direttamente in Outlook che l'email sia stata inviata correttamente.
Crea elenco di invio Quindi invia email |
| Le utilità Kutools per Excel's Crea elenco di invio e Emailpossono individuare rapidamente «Crea elenco di invio» in un foglio di lavoro, consentendoti di inviare lo stesso oggetto, lo stesso contenuto e gli stessi allegati a più indirizzi email.e |
 |
 |
 |
Articoli correlati:
Come inviare il foglio di lavoro corrente tramite Outlook da Excel?
Come inviare un intervallo di celle tramite email da Excel utilizzando Outlook?
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi