Conas raon cealla a sheoladh / ríomhphost trí ionchas ó Excel?
Ar fhulaing tú riamh le fadhb, tar éis duit tuarascáil a chríochnú i mbileog oibre, agus go gcaithfidh tú a sheoladh chuig raon cealla sa bhileog oibre seo ina bhfuil roinnt sonraí tábhachtacha chuig d’fhaighteoir ar leith. An bhfuil aon bhealaí gasta ann chun an raon seo a sheoladh ar ríomhphost ó Excel gan Outlook a oscailt?
Seol raon cealla mar cheangaltán ó Excel le cód VBA
Seol raon cealla mar chorp ó Excel le cód VBA
Seol raon cealla mar cheangaltán ó Excel le cód VBA
Is féidir leis an gcód VBA seo a leanas cabhrú leat do raon roghnaithe a sheoladh mar cheangaltán in Excel. Déan mar seo le do thoil:
1. Oscail do leabhar oibre agus ansin coinnigh síos an ALT + F11 eochracha a oscailt Fuinneog Microsoft Visual Basic for Applications.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.
Cód VBA: seol raon cealla mar cheangaltán ó 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 Subnótaí: Sa chód thuas, is féidir leat an fhaisnéis seo a leanas a athrú go do riachtanas féin.
- .Chuig = ""
- .CC = ""
- .BCC = ""
- .Subject = "faisnéis kte"
- .Body = "Dia duit, seiceáil agus léigh an doiciméad seo le do thoil."
3. Ansin cliceáil F5 eochair chun an cód seo a rith, agus tiocfaidh bosca pras amach le cur i gcuimhne duit raon a theastaíonn uait a sheoladh a roghnú. Féach an pictiúr:
4. Ansin cliceáil OK, agus beidh bosca pras le feiceáil, tar éis don bharra dul chun cinn a bheith críochnaithe, cliceáil Ceadaigh, agus ansin tá an raon sonrach cealla seolta chuig d’fhaighteoir mar cheangaltán.
Seol raon cealla mar chorp ó Excel le cód VBA
Más mian leat raon sonrach a sheoladh mar chuid de chorp teachtaireachta ó Excel, is féidir leat an cód VBA seo a leanas a chur i bhfeidhm chun é a réiteach.
| Kutools le haghaidh Excel, le níos mó ná 120 feidhmeanna úsáideacha, déanann sé do phoist níos éasca. | ||
1. Gníomhachtaigh do bhileog oibre agus coinnigh síos an ALT + F11 eochracha a oscailt Fuinneog Microsoft Visual Basic for Applications.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.
Cód VBA: seol raon cealla mar chorp ó 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
Nóta: Sa chód thuas, is féidir leat an fhaisnéis seo a leanas a athrú go do riachtanas.
- .Introduction = "Léigh an ríomhphost seo le do thoil."
- .Item.To = ""
- .Item.Subject = "faisnéis kte"
3. Ansin cliceáil F5 eochair chun an cód seo a rith, agus tiocfaidh bosca pras amach le cur i gcuimhne duit raon a theastaíonn uait a sheoladh a roghnú.
4. Ansin cliceáil OK, agus beidh bosca pras le feiceáil, tar éis don bharra dul chun cinn a bheith críochnaithe, cliceáil Ceadaigh, agus ansin tá an raon sonrach cealla seolta chuig d’fhaighteoir mar chomhlacht teachtaireachta.
Nótaí:
1. Níl na cóid seo ar fáil ach nuair a bhíonn an Outlook mar do chlár ríomhphoist.
2. Tar éis duit an bhileog oibre reatha a sheoladh, is féidir leat dul chuig do Outlook chun a chinntiú an bhfuil an ríomhphost seolta go rathúil.
Earraí gaolmhara:
Conas bileog oibre a sheoladh trí Outlook ó Excel amháin?
Conas leabhar oibre reatha a sheoladh trí Outlook ó Excel?
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
