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

Ați suferit vreodată o problemă care, după finalizarea unui raport într-o foaie de lucru, și trebuie să trimiteți la o serie de celule din această foaie de lucru care conțin câteva date importante destinatarului dvs. specific. Există modalități rapide de a trimite acest e-mail din Excel fără a deschide Outlook?

Trimiteți o gamă de celule ca atașament din Excel cu cod VBA

Trimiteți gama de celule ca corp din Excel cu cod VBA

Trimiteți o gamă de celule ca atașament din Excel cu cod VBA

Următorul cod VBA vă poate ajuta să trimiteți gama selectată ca atașament în Excel. Vă rugăm să faceți acest lucru:

1. Deschideți registrul de lucru și apoi țineți apăsat butonul ALT + F11 tastele pentru a deschide Fereastra Microsoft Visual Basic pentru aplicații.

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

Cod VBA: trimite gama de celule ca atașament din Excel

Sub SendRange()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim Ws As Worksheet
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Wb = Application.ActiveWorkbook
Wb.Worksheets.Add
Set Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells(1, 1)
Ws.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 = "information of kte"
    .Body = "hello, 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
Ws.Delete
Application.DisplayAlerts = True
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 = "informații despre kte"
• .Body = "salut, vă rugăm să verificați și să citiți acest document."

3. Apoi apasa F5 pentru a rula acest cod și va apărea o casetă de solicitare pentru a vă reaminti să selectați un interval pe care doriți să îl trimiteți. Vedeți captura de ecran:

4. Apoi apasa OK, și va apărea o casetă de prompt, după finalizarea barei de progres, faceți clic pe Permite, iar apoi gama specifică de celule a fost trimisă destinatarului dvs. ca atașament.

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 gama de celule ca corp din Excel cu cod VBA

Dacă doriți să trimiteți un anumit interval ca parte a corpului mesajului din Excel, puteți aplica, de asemenea, următorul cod VBA pentru a-l rezolva.

1. Activați foaia de lucru și țineți apăsat butonul ALT + F11 tastele pentru a deschide Fereastra Microsoft Visual Basic pentru aplicații.

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

Cod VBA: trimite gama de celule ca corp din Excel

Sub EmailRange()
'Update 20131209
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
WorkRng.Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
    .Introduction = "Please read this email."
    .Item.To = "skyyang@extendoffice.com"
    .Item.Subject = "information of kte"
    .Item.Send
End With
Application.ScreenUpdating = True
End Sub

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

• .Introduction = "Vă rugăm să citiți acest e-mail."
• .Item.To = "skyyang@extendoffice.com"
• .Item.Subject = "informații despre kte"

3. Apoi apasa F5 pentru a rula acest cod și va apărea o casetă de prompt pentru a vă reaminti să selectați un interval pe care doriți să îl trimiteți.

4. Apoi faceți clic pe OK, și va apărea o casetă de prompt, după finalizarea barei de progres, faceți clic pe Permiteși apoi intervalul specific de celule a fost trimis destinatarului dvs. ca corp de mesaj.

note:

1. Aceste coduri sunt disponibile numai când 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.

Legate de articole:

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

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