Cum să trimiteți foaia de lucru numai prin Outlook din Excel?

Dacă doriți să trimiteți prin e-mail o singură foaie de lucru dintr-un registru de lucru în Excel prin Outlook, puteți trimite foaia de lucru ca atașament, ca conținut corporal sau ca fișier PDF. Dar există vreo modalitate mai rapidă de a rezolva această problemă în Excel?

Trimiteți o singură foaie de lucru ca corp din Excel cu comanda Trimiteți către destinatarul e-mail

Trimiteți o singură foaie de lucru ca atașament din Excel cu cod VBA

Trimiteți o singură foaie de lucru ca fișier PDF din Excel cu cod VBA

Trimiteți o singură foaie de lucru ca corp din Excel cu comanda Trimiteți către destinatarul e-mail

Excel ne sprijină să trimitem prin e-mail foaia de lucru activă ca conținut corporal utilizând comanda Trimiteți către destinatarul e-mail. Puteți face următoarele:

Dacă utilizați Excel 2007, 2010 sau 2013, trebuie să adăugați acest lucru Trimiteți către destinatarul poștei comanda la Bara de instrumente pentru acces rapid mai întâi.

1. Faceți clic pe pictograma fișierului Personalizați bara de instrumente cu acces rapidși alegeți Mai multe comenzi, vezi captura de ecran:

2. Și în Opțiuni Excel caseta de dialog, alegeți Comenzile nu sunt în panglică în Alege Comenzi din lista derulantă, apoi selectați Trimiteți către destinatarul poștei și faceți clic pe Adăugați >> pentru a adăuga această comandă, faceți clic în cele din urmă OK pentru a salva această setare. Vedeți captura de ecran:

3. Trimiteți către destinatarul poștei comanda a fost inserată în Bara de instrumente pentru acces rapid, vezi captura de ecran:

4. Apoi faceți clic pe acesta Trimiteți către destinatarul poștei butonul pictogramă și o casetă de prompt apare în, Adresa e-mail casetă prompt, bifați Trimiteți foaia curentă ca corp al mesajului, și faceți clic pe OK. Vedeți captura de ecran:

5. Și o casetă de editare a e-mailului este afișată deasupra datelor foii de lucru, puteți introduce destinatarii, subiectul și introducerea în caseta de text corespunzătoare. Vedeți captura de ecran:

6. Apoi faceți clic pe Trimite acest Sheet pentru a trimite această foaie de lucru activă ca corp de mesaj către persoana dvs. specifică.

Deblocați Excel Magic cu Kutools AI

• Execuție inteligentă: Efectuați operații cu celule, analizați date și creați diagrame, toate conduse de comenzi simple.
• Formule personalizate: generați formule personalizate pentru a vă simplifica fluxurile de lucru.
• Codare VBA: Scrieți și implementați codul VBA fără efort.
• Interpretarea formulei: Înțelegeți cu ușurință formulele complexe.
• Traducere text: spargeți barierele lingvistice din foile de calcul.

Îmbunătățiți-vă capabilitățile Excel cu instrumente bazate pe inteligență artificială. Descarcă acum și experimentați eficiența ca niciodată!

Trimiteți o singură foaie de lucru ca atașament din Excel cu cod VBA

Dacă doriți să trimiteți prin e-mail foaia de lucru activă ca atașament, următorul cod VBA vă poate face o favoare.

1. Activați foaia de lucru pe care doriți să o trimiteți.

2. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Fereastra Microsoft Visual Basic pentru aplicații.

3. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.

Cod VBA: trimiteți foaia de lucru curentă ca atașament din 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

notițe: În codul de mai sus, puteți schimba următoarele informații în funcție de nevoile dvs.

• .To = „skyyang@extendoffice.com”
• .CC = ""
• .BCC = ""
• .Subject = "caracteristici kte"
• .Body = "Vă rugăm să verificați și să citiți acest document."

4. Apoi apasa F5 pentru a rula acest cod și va apărea o casetă de prompt, faceți clic pe Permite când bara de progres este terminată, iar apoi foaia de lucru curentă a fost trimisă destinatarului dvs. ca atașament.

Trimiteți o singură foaie de lucru ca fișier PDF din Excel cu cod VBA

Uneori, trebuie să trimiteți raportul foii de lucru altora, dar nu doriți ca alții să îl modifice. În acest caz, puteți trimite foaia de lucru ca fișier PDF din Excel.

1. Activați foaia de lucru pe care doriți să o trimiteți.

2. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Fereastra Microsoft Visual Basic pentru aplicații.

3. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.

Cod VBA: trimiteți foaia de lucru curentă ca fișier PDF din 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

Notă: În codul de mai sus, puteți modifica următoarele informații în funcție de nevoile dvs.

• .To = „skyyang@extendoffice.com”
• .CC = ""
• .BCC = ""
• .Subject = "caracteristici kte"
• .Body = "Vă rugăm să verificați și să citiți acest document."

4. Apoi apăsați F5 tasta și va apărea o casetă de prompt, faceți clic pe Permite după finalizarea barei de progres, atunci foaia de lucru activă a fost trimisă persoanei respective ca fișier PDF.

note:

1. Aceste metode sunt disponibile numai atunci când utilizați Outlook ca program de poștă electronică.

2. După trimiterea foii de lucru curente, puteți merge la Outlook pentru a vă asigura că e-mailul a fost trimis cu succes.

Creați o listă de e-mail, apoi trimiteți e-mailuri

Kutools pentru Excel's Creați o listă de corespondență si  Trimiteți E-mailuri utilitarele pot crea rapid o listă de discuții într-o foaie de lucru, apoi pot trimite același subiect, același conținut și aceleași atașamente la mai multe adrese de e-mail.

Accesați Descărcare

Legate de articole:

Cum să trimiteți registrul de lucru curent prin Outlook din Excel?

Cum să trimiteți / trimiteți prin e-mail gama de celule prin Outlook din Excel?