Conas ríomhphost a sheoladh chuig iliomad faighteoirí i liosta ó Excel trí Outlook?
Má tá seoltaí ríomhphoist iolracha agat i gcolún de bhileog oibre, agus anois, ba mhaith leat ríomhphost a sheoladh chuig an liosta seo d’fhaighteoirí ó Excel go díreach gan an Outlook a oscailt. An t-alt seo, labhróidh mé faoi conas ríomhphost a sheoladh chuig iliomad faighteoirí ó Excel ag an am céanna.
Seol r-phost chuig faighteoirí iolracha ó Excel le cód VBA
Seol r-phost chuig faighteoirí iolracha ó Excel le cód VBA
Is féidir leat cód VBA a úsáid chun teachtaireacht a sheoladh chuig iliomad faighteoirí ag an am céanna, déan mar a leanas:
1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.
Cód VBA: Seol r-phost chuig faighteoirí iolracha
Sub sendmultiple()
'updateby Extendoffice
Dim xOTApp As Object
Dim xMItem As Object
Dim xCell As Range
Dim xRg As Range
Dim xEmailAddr As String
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the addresses list:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xOTApp = CreateObject("Outlook.Application")
For Each xCell In xRg
If xCell.Value Like "*@*" Then
If xEmailAddr = "" Then
xEmailAddr = xCell.Value
Else
xEmailAddr = xEmailAddr & ";" & xCell.Value
End If
End If
Next
Set xMItem = xOTApp.CreateItem(0)
With xMItem
.To = xEmailAddr
.Display
End With
End Sub
3. Agus ansin brúigh F5 eochair chun an cód seo a fhorghníomhú, tiocfaidh bosca pras amach le cur i gcuimhne duit an liosta seoltaí a roghnú, féach an scáileán:
4. Ansin cliceáil OK, agus Forbhreathnú Teachtaireacht taispeántar an fhuinneog, is féidir leat a fheiceáil go bhfuil na seoltaí ríomhphoist uile curtha isteach sa Chun réimse, agus ansin is féidir leat dul isteach san ábhar agus do theachtaireacht a chumadh, féach an scáileán:
5. Tar éis duit an teachtaireacht a chríochnú, cliceáil le do thoil Seol cnaipe, agus seolfar an teachtaireacht seo chuig na faighteoirí seo ar do liosta bileog oibre.
Seol r-phost chuig faighteoirí iolracha a bhfuil an leabhar oibre reatha acu mar cheangaltán trí chód VBA a úsáid
Más gá duit teachtaireacht a sheoladh chuig faighteoirí iolracha a bhfuil an leabhar oibre reatha acu mar cheangaltán, is féidir leat an cód VBA seo a leanas a chur i bhfeidhm.
1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.
Cód VBA: Seol r-phost chuig faighteoirí iolracha leis an leabhar oibre reatha mar cheangaltán
Sub EmailAttachmentRecipients()
'updateby Extendoffice
Dim xOutlook As Object
Dim xMailItem As Object
Dim xRg As Range
Dim xCell As Range
Dim xEmailAddr As String
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the arresses list:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xOutlook = CreateObject("Outlook.Application")
Set xMailItem = xOutlook.CreateItem(0)
For Each xCell In xRg
If xCell.Value Like "*@*" Then
If xEmailAddr = "" Then
xEmailAddr = xCell.Value
Else
xEmailAddr = xEmailAddr & ";" & xCell.Value
End If
End If
Next
With xMailItem
.To = xEmailAddr
.CC = ""
.Subject = ""
.Body = ""
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
Set xOutlook = Nothing
Set xMailItem = Nothing
End Sub
3. Tar éis an cód a ghreamú, brúigh F5 eochair chun an cód seo a rith, agus tá bosca pras popped amach chun a mheabhrú duit na seoltaí ar mhaith leat teachtaireacht a sheoladh chucu a roghnú, féach an scáileán:
4. Ansin cliceáil OK cnaipe, agus Outlook Teachtaireacht taispeántar an fhuinneog, tá na seoltaí ríomhphoist uile curtha isteach sa Chun réimse, agus tá do leabhar oibre reatha curtha isteach mar cheangaltán freisin, agus ansin is féidir leat dul isteach san ábhar agus do theachtaireacht a chumadh, féach ar an scáileán:
5. Ansin cliceáil Seol cnaipe chun an teachtaireacht seo a sheoladh chuig liosta na bhfaighteoirí leis an leabhar oibre reatha mar cheangaltán.
Seol ríomhphoist pearsantaithe chuig faighteoirí iolracha le ceangaltáin éagsúla:
Le Kutools le haghaidh Excel's Seol Ríomhphost gné, is féidir leat ríomhphoist phearsantaithe a sheoladh go tapa chuig faighteoirí iolracha le ceangaltáin éagsúla ó Excel trí Outlook de réir mar is gá duit. Ag an am céanna, is féidir leat CC nó Bcc na teachtaireachtaí chuig duine ar leith freisin. Cliceáil chun Kutools a íoslódáil le haghaidh Excel! |
Airteagal gaolmhar:
Conas mais ríomhphoist pearsantaithe a sheoladh chuig liosta ó Excel trí Outlook?
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á!