Come inviare solo un foglio di lavoro tramite Outlook da Excel?

Se desideri inviare una singola scheda di lavoro di un file Excel tramite Outlook, puoi inviare il foglio come allegato, come contenuto del corpo del messaggio o come file PDF. Ma ci sono modi più rapidi per gestire questo problema in Excel?

Invia un singolo foglio di lavoro come corpo del messaggio da Excel con il comando Invia al destinatario di posta

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 al destinatario di posta

Excel ci consente di inviare il foglio di lavoro attivo come contenuto del corpo del messaggio utilizzando il comando Invia al destinatario di posta. Puoi procedere nel seguente modo:

Se utilizzi Excel 2007, 2010 o 2013, devi prima aggiungere il comando Invia al destinatario di posta alla Barra di accesso rapido.

1. Clicca sull'icona Personalizza Barra di accesso rapido e scegli Altri comandi, vedi screenshot:

2. Nella finestra di dialogo Opzioni di Excel, scegli Comandi non presenti nella barra multifunzione dall'elenco a discesa Scegli comandi da, quindi seleziona l'opzione Invia al destinatario di posta e clicca sul pulsante Aggiungi >> per aggiungere questo comando, infine clicca OK per salvare questa impostazione. Vedi screenshot:

3. Il comando Invia al destinatario di posta è stato inserito nella Barra di accesso rapido, vedi screenshot:

4. Quindi fai clic su questo pulsante icona Invia al destinatario di posta, e apparirà una finestra di dialogo; nella finestra di dialogo E-mail, seleziona Invia il foglio corrente come corpo del messaggio e fai clic su OK. Vedi screenshot:

5. Viene visualizzata una casella di modifica dell'email sopra i dati del foglio di lavoro, dove puoi inserire i destinatari, l'oggetto e l'introduzione nei rispettivi campi di testo. Vedi screenshot:

6. Quindi fai clic su Invia questo Foglio per inviare il foglio di lavoro attivo come corpo del messaggio alla persona specifica.

Sblocca la Magia di Excel con Kutools AI

• Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
• Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
• Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
• Interpretazione delle Formule: Comprendi facilmente formule complesse.
• Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.

Potenzia le tue capacità di Excel con strumenti alimentati dall'IA. Scarica Ora ed esperisci un'efficienza mai vista prima!

Invia un singolo foglio di lavoro come allegato da Excel con codice VBA

Se desideri inviare il foglio di lavoro attivo come allegato, il seguente codice VBA può esserti utile.

1. Attiva il tuo foglio di lavoro che desideri inviare.

2. Tieni premuti i tasti ALT + F11, e si aprirà la finestra Microsoft Visual Basic for Applications.

3. Clicca su Inserisci > Modulo, e incolla il seguente codice nella Finestra del Modulo.

Codice VBA: invia il 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 sopra, puoi modificare le seguenti informazioni secondo le tue esigenze.

• .To = "skyyang@extendoffice.com"
• .CC = ""
• .BCC = ""
• .Subject = "kte features"
• .Body = "Per favore, controlla e leggi questo documento."

4. Quindi premi il tasto F5 per eseguire questo codice, e apparirà una finestra di dialogo; clicca Consenti quando la barra di avanzamento sarà completata, e il foglio di lavoro corrente verrà inviato al destinatario come allegato.

Invia un singolo foglio di lavoro come file PDF da Excel con codice VBA

A volte, devi inviare il report del tuo foglio di lavoro ad altri ma non vuoi che lo modifichino. In questo caso, puoi inviare il foglio di lavoro come file PDF da Excel.

1. Attiva il tuo foglio di lavoro che desideri inviare.

2. Tieni premuti i tasti ALT + F11, e si aprirà la finestra Microsoft Visual Basic for Applications.

3. Clicca su Inserisci > Modulo, e incolla il seguente codice nella Finestra del Modulo.

Codice VBA: invia il 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 sopra, puoi modificare le seguenti informazioni secondo le tue esigenze.

• .To = "skyyang@extendoffice.com"
• .CC = ""
• .BCC = ""
• .Subject = "kte features"
• .Body = "Per favore, controlla e leggi questo documento."

4. Quindi premi il tasto F5, e apparirà una finestra di dialogo; clicca Consenti dopo il completamento della barra di avanzamento, quindi il foglio di lavoro attivo verrà inviato alla persona specifica come file PDF.

Note:

1. Questi metodi sono disponibili solo quando utilizzi Outlook come programma di posta.

2. Dopo aver inviato il foglio di lavoro corrente, puoi andare su Outlook per assicurarti che l'email sia stata inviata correttamente.

Crea elenco di invio e invia email

Le utility Crea elenco di invio e Invia Email di Kutools per Excel possono creare rapidamente un elenco di invio in un foglio di lavoro, quindi inviare lo stesso oggetto, lo stesso contenuto e gli stessi allegati a più indirizzi email.

Vai al Download

Articoli correlati:

Come inviare il workbook corrente tramite Outlook da Excel?

Come inviare / email un intervallo di celle tramite Outlook da Excel?