Note: The other languages of the website are Google-translated. Back to English

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


mboilgeog cheart gorm saigheadSeol 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 = "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

nótaí: Sa chód thuas, is féidir leat an fhaisnéis seo a leanas a athrú go do riachtanas féin.

  • .To = "skyyang @extendoffice.com "
  • .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:

doc-seol-raon1

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.

doc-seol-raon2


mboilgeog cheart gorm saigheadSeol 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 = "skyyang@extendoffice.com"
    .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 = "skyyang @extendoffice.com "
  • .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ú.

doc-seol-raon1

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.

doc-seol-raon2

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?


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

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á!
bun officetab
Sórtáil tuairimí de réir
Comments (26)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, tá mé ag baint úsáide as an marco a roghnaíonn na cealla is gá chun ríomhphost. Tá sé seo comhcheangailte agam le macra eile ionas go bhfaighidh mé "ríomhphost nua" a oscailt is í an fhadhb atá agam anois má chuireann tú go leor eolais isteach i gcill amháin ní thógann sé ach an fhoirm a fheiceann tú nach bhfuil an fhaisnéis go léir sa chill sin aon smaointe ?? go raibh míle maith agat soooooo i bhfad as do chabhair leis an gártha seo
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia dhaoibh
Tá tionscadal agam chun raon a roghnú i mbileog 1 le seoladh trí ríomhphost ceann ar cheann chuig go leor seoltaí ríomhphoist scríofa ar bhileog 2 i gcolún A agus má tá colún B folamh le hábhar áirithe agus tar éis é a sheoladh scríobh sé sa bhileog 2 colún b seolta
Agus fanacht 10 soicind chun an chéad ríomhphost eile a sheoladh mar choinníoll an fhreastalaí
Aon duine cabhrú liom le do thoil?   
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, An féidir leat a chur in iúl dom le do thoil conas síniú agus an dara líne tosaigh a chur leis an ríomhphost seo don dara clár. Go raibh maith agat roimh ré.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
deas & úsáideach, post maith !!!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An-úsáideach. Go raibh maith agat . Tá liosta seoltaí ríomhphoist agam ar an mbileog chéanna. Nuair a chliceáil mé chuig seoladh ríomhphoist amháin , seolfar an raon cealla roghnaithe mar cheangaltán leis an ríomhphost seo. An féidir le do thoil cabhrú liom ar seo? Míle buíochas.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Mínítear an-deas. In ionad leabhar oibre nua a sheoladh, an féidir linn ach an raon roghnaithe a chóipeáil agus a ghreamú isteach i gcorp ríomhphoist agus seolta. Níl mé ag iarraidh an Raon roghnaithe a sheoladh mar Íomhá. Ba mhaith liom a sheoladh cosúil le dearcadh tábla i gcorp an ríomhphost. An féidir linn é sin a dhéanamh??
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat, Tá sé seo an-úsáideach ach cad más gá dom a chur ar roinnt cur síos i gcorp an phoist roimh é a sheoladh. Mol an cód le do thoil.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Breathnaíonn gach rud go maith ach ní thugann an raon teorann roghnaithe, An bhféadfá a mholadh le do thoil.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat Tá mé ag teacht ar an réiteach seo chomh fada.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Jab den scoth. Bheadh ​​sé níos fearr é seo a sheoladh amach go huathoibríoch. Cad ba cheart dom a dhéanamh ionas nach spreagfaidh sé earráid sula dtosóidh mé ag seoladh arís?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
an bhféadfaimis an oiread seoltaí ríomhphoist a chur chucu?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Carey, is féidir go léir os cionn na VBAs go leor seoladh ríomhphoist a chur leis (Chuig, BCC, CC) le seoladh chuig trí úsáid a bhaint as ; mar dheighilteoir. Mar shampla, .To = "skyyang@extendoffice.com; tástáil1@extendoffice.com; tástáil2@extendoffice.com "
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
ich möchte das kopierte nicht als Datei in eine E-Mail einfügen, sonrú in aghaidh an chóip agus greamaigh in die E-Mail einfügen. Wie geht das in dem VBA-Code?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Tá tábla socraithe agam a theastaíonn uaim don fhoireann a líonadh isteach agus ansin cnaipe ordaithe a ghinfidh ríomhphost go huathoibríoch ansin, ach ba mhaith liom na sonraí ón tábla a bheith i gcorp an ríomhphoist. An bhfuil cód ann chuige sin? 
Go raibh maith agat 
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia dhaoibh
Tá tionscadal agam chun raon a roghnú i mbileog 1 le seoladh trí ríomhphost ceann ar cheann chuig go leor seoltaí ríomhphoist scríofa ar bhileog 2 i gcolún A agus má tá colún B folamh le hábhar áirithe agus tar éis é a sheoladh scríobh sé sa bhileog 2 colún b seolta
Agus fanacht 10 soicind chun an chéad ríomhphost eile a sheoladh mar choinníoll an fhreastalaí
Aon duine cabhrú liom le do thoil?   
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia dhaoibh
Tá tionscadal agam chun raon a roghnú i mbileog 1 le seoladh trí ríomhphost ceann ar cheann chuig go leor seoltaí ríomhphoist scríofa ar bhileog 2 i gcolún A agus má tá colún B folamh le hábhar áirithe agus tar éis é a sheoladh scríobh sé sa bhileog 2 colún b seolta
Agus fanacht 10 soicind chun an chéad ríomhphost eile a sheoladh mar choinníoll an fhreastalaí
Aon duine cabhrú liom le do thoil?   
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, hriad, " má tá colún B folamh le hábhar áirithe agus tar éis é a sheoladh scríobh ar bhileog 2 colún b seolta
Agus fanacht 10 soicind chun an chéad ríomhphost eile a sheoladh mar choinníoll an fhreastalaí" Ní thuigim é seo. Inis dom arís faoi do riachtanas.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Grianmhar
ar an gcéad dul síos , go raibh maith agat as do chabhair , mar a chuir an freastalaí coinníoll chun gan a lán ríomhphoist a sheoladh sa dara ceann céanna , ba mhaith liom fanacht 10 soicind tar éis an chéad ríomhphost a sheoladh agus an ceann seo a leanas.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, a Dhia, bain triail as an gcód thíos, tar éis duit é a rith, popfaidh sé dialóg chun raon a roghnú a theastaíonn uait a sheoladh, ansin seolfaidh sé chuig seoltaí ar bhileog 2 colún A agus leis na hábhair i gcolún B. Gach 10 soicind , seol chuig seoladh amháin. Is féidir leat an cód "Léigh an ríomhphost seo" a athrú de réir mar is gá duit.
Raon Fo-SendEmail()

' NuashonrúByExtendoffice20220414

Dim WorkRng Mar Raon

Dim xSU, EV As Boole

Dim xWsh Mar Bhileog Oibre

Dim xCount As Slánuimhir

Dim xI Mar Shlánuimhir

Ar Lean Earráid Aghaidh

xTitleId = "KutoolsforExcel"

'roghnaigh raon a bhíodh á sheoladh mar chorp

Socraigh WorkRng = Application.InputBox("Raon", xTitleId, Application.Selection.Seoladh, , , , , 8)

Mura bhfuil tada ag WorkRng Ansin Scoir Fo
WorkRng.Gníomhachtaigh
WorkRng.Roghnaigh

Socraigh xWSh = ActiveWorkbook.Worksheets("Bileog2") 'an bhileog ina bhfuil seoltaí agus ábhair

xCount = xWsh.UsedRange.Rows.Count

xSU = Application.ScreenUpdating

EV = ActiveWorkbook.EnvelopeVisible

Application.ScreenUpdating = Bréagach


Le haghaidh xI = 1 Go xCount

Más rud é (xWsh.Range("A" & xI)="") Ansin
Scoir Do
Deireadh Má
ActiveWorkbook.EnvelopeVisible = Fíor
Le ActiveSheet.MailEnvelope
.Introduction = "Léigh an ríomhphost seo le do thoil."

.Item.To = xWSh.Range("A" & xI)

.Item.Subject = xWSh.Range("B" & xI)

.Item.Seol
Deireadh Le
Má (xI = xCount) Ansin

Scoir Do

Deireadh Má

Feidhmchlár.Fan anois + Luach Ama ("0:00:10")

Ar Aghaidh


Application.ScreenUpdating = xSU

ActiveWorkbook.EnvelopeVisible = EV

Fo Deireadh

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Grianmhar
Míle Buíochas as ucht do iarracht.... Go raibh míle maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An féidir linn raonta seasta? ina mhacra féin
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,

Mam plik z 6 arkuszami. Każdy z arkuszy 2-6 musi zostać wysłany do innej grupy odbiorców jako załącznik excela. Czy da się a podpiąć pod 5 przycisków?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, pawerl
Chun d’fhadhb a réiteach, d’fhéadfadh an t-alt thíos cabhrú leat, seiceáil le do thoil é:

https://www.extendoffice.com/documents/excel/7178-send-each-sheet-to-different-email.html

Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat as seo! Déanfaidh mé tástáil air go luath mar beidh mé ar ais ó saoire. Bíodh ceist amháin eile agat. Bíodh fadhb agat le cóid vba a rith trí chnaipe Activex a úsáid (gan aon ghníomh ar bith) fiú má oibríonn an cód go foirfe ar mhodh eagarthóireachta nó nuair a ritheann sé le ctrl+ cnaipe roghnaithe ón méarchlár. Nílim ach ag tosú turas vba agus níl aon
smaoineamh cad atá á dhéanamh agam mícheart :/
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, pawerl
Níl le déanamh agat ach an cód a chóipeáil agus a ghreamú isteach sa Microsoft Visual Basic d’Fheidhmchláir fhuinneog, agus ansin cliceáil ar an Rith cnaipe ón mbarra uirlisí mar a thaispeántar an scáileán thíos: (nótaí: sa chód, S1 an bhfuil an seoladh ríomhphoist sa chill ar mian leat an ríomhphost a sheoladh chuige. Athraigh iad chuig do riachtanas le do thoil.)

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-send-emails.png

Arís, le d'thoil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,

Tá gach rud mar atá thuas déanta agam agus is é an toradh atá air: oibríonn gach rud go foirfe seachas an cnaipe :) Is cuma faoi seo faoi láthair :)

Míle buíochas!!! ábhar dúnta :)
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL