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 = ""
.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 Subnotițe: În codul de mai sus, puteți schimba următoarele informații în funcție de nevoile dvs.
- .Pentru = ""
- .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.
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.
| Kutools pentru Excel, cu mai mult de 120 funcții la îndemână, vă ușurează lucrările. | ||
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 = ""
.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."
- .Articol.Către = ""
- .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?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
