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

Sut i anfon e-bost gyda chopïo a gludo ystod benodol i'r corff e-bost yn Excel?

Mewn llawer o achosion, gallai ystod benodol o gynnwys yn nhaflen waith Excel fod yn ddefnyddiol yn eich cyfathrebiad e-bost. Yn yr erthygl hon, byddwn yn cyflwyno dull o anfon e-bost gydag pasting ystod benodol i'r corff e-bost yn uniongyrchol yn Excel.

Anfon e-bost gydag ystod benodol wedi'i gludo i'r corff e-bost yn Excel
Anfon e-bost gydag ystod benodol wedi'i gludo i mewn i gorff e-bost gydag offeryn anhygoel

Mwy o sesiynau tiwtorial ar gyfer postio yn Excel ...


Anfon e-bost gydag ystod benodol wedi'i gludo i'r corff e-bost yn Excel

Gall y cod VBA canlynol eich helpu i gopïo ystod a'i gludo i mewn i gorff e-bost Outlook yn uniongyrchol yn Excel. Gwnewch fel a ganlyn.

1. Yn y daflen waith sy'n cynnwys yr ystod y mae angen i chi ei chopïo, pwyswch y Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn yr agoriad Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch offer > cyfeiriadau fel y dangosir isod screenshot.

3. Yn y Cyfeiriadau - VBAProject blwch deialog, dewch o hyd i a gwirio'r Llyfrgell Gwrthrychau Microsoft Outlook opsiwn, ac yna cliciwch ar y OK botwm.

4. Cliciwch Mewnosod > Modiwlau, yna copïwch a gludwch y cod VBA isod i mewn i ffenestr y Modiwl.

Cod VBA: Anfon e-bost gydag ystod benodol wedi'i gludo i'r corff e-bost yn Excel

Sub Send_Email()
'Updated by Extendoffice 20200119
    Dim xRg As Range
    Dim I, J As Long
    Dim xAddress As String
    Dim xEmailBody As String
    Dim xMailOut As Outlook.MailItem
    Dim xOutApp As Outlook.Application    
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select range you need to paste into email body", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    For I = 1 To xRg.Rows.Count
        For J = 1 To xRg.Columns.Count
            xEmailBody = xEmailBody & "  " & xRg.Cells(I, J).value
        Next
        xEmailBody = xEmailBody & vbNewLine
    Next
    xEmailBody = "Hi" & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine
    With xMailOut
        .Subject = "Test"
        .To = "happy.xuebi@163.com"
        .Body = xEmailBody
        .Display
        '.Send
    End With
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Nodiadau:

  • 1). Newidiwch y corff e-bost yn unol xEmailBody = "Hi" & vbLf & vbLf & "corff y neges rydych chi am ei ychwanegu" & vbLf & vbLf & xEmailBody & vbNewLine fel y mae arnoch ei angen.
  • 2). Nodwch eich derbynnydd e-bost a'ch pwnc (.To = hapus.xuebi@163.com ac .Subject = "prawf") llinellau yn y cod.

5. Gwasgwch y F5 allwedd i redeg y cod. Yn y popping up Kutools ar gyfer Excel blwch deialog, dewiswch yr ystod y mae angen i chi ei gludo yn y corff e-bost, ac yna cliciwch ar y OK botwm. Gweler y screenshot:

6. Nawr bod e-bost yn cael ei greu gyda derbynnydd, pwnc, corff ac ystod Excel dethol, cliciwch ar y anfon botwm i anfon yr e-bost hwn. Gweler y screenshot a ddangosir.

Nodyn: Dim ond pan fyddwch chi'n defnyddio Outlook fel eich rhaglen e-bost y mae'r cod VBA yn gweithio.


Anfon e-bost gydag ystod benodol wedi'i gludo i mewn i gorff e-bost gydag offeryn anhygoel

Os na ddefnyddiwch Outlook ac yn dal i fod eisiau anfon e-byst yn uniongyrchol yn Excel gyda data amrediad penodol wedi'i gludo y tu mewn, rwy'n argymell y Anfon E-byst cyfleustodau Kutools ar gyfer Excel i chi. Gyda'r nodwedd hon, does ond angen i chi ffurfweddu gweinydd sy'n mynd allan o gyfeiriad e-bost, ac yna anfon e-byst yn Excel yn uniongyrchol trwy'r cyfeiriad e-bost hwn yn y dyfodol.

Cyn gwneud cais Kutools ar gyfer Excel, os gwelwch yn dda ei lawrlwytho a'i osod yn gyntaf.

1. Yn gyntaf, mae angen i chi baratoi rhestr bostio gyda'r meysydd sydd eu hangen.

  • Awgrymiadau: Rhaid i'r rhestr bostio gynnwys o leiaf 2 res, a rhaid i'r rhes gyntaf fod yn y penawdau (Gan dybio eich bod am anfon e-byst i ddau gyfeiriad e-bost yn Excel, teipiwch y ddau gyfeiriad e-bost hyn gyda'r pennawd “E-bost” fel y llun isod. ).
  • Fel arall, gallwch chi greu rhestr bostio gyda'r Creu Rhestr Bostio nodwedd.

2. Dewiswch yr ystod y byddwch chi'n ychwanegu'r data at y corff e-bost a gwasgwch y Ctrl + C allweddi i'w gopïo.

3. Dewiswch y rhestr bostio gyfan (cynnwys penawdau), cliciwch Kutools Byd Gwaith > Anfon E-byst. Gweler y screenshot:

4. Yna y Anfon E-byst blwch deialog yn ymddangos.

  • 4.1) Mae eitemau o restr bostio ddethol wedi'u poblogi mewn meysydd cyfatebol (gallwch ychwanegu mwy o feysydd at y rhestr bostio yn ôl yr angen);
  • 4.2) Cliciwch ar flwch y corff e-bost, pwyswch y Ctrl + V allweddi i gludo'r data amrediad a ddewiswyd ynddo. Ar ôl hynny, ychwanegwch gynnwys arall yn ôl yr angen;
  • 4.3 Dad-diciwch y Anfon e-byst trwy Outlook blwch;
  • 2.4) Cliciwch y Gosodiadau Gweinydd Allanol botwm. Gweler y screenshot:

5. Yna y Gosodiadau Gweinydd Allanol (SMTP) - Cynllun Newydd blwch deialog yn ymddangos. Llenwch y cyfeiriad e-bost gyda'i osodiadau gweinydd, nodwch ffolder i achub yr holl negeseuon e-bost a anfonwyd ar ôl gwirio'r Cadw e-byst a anfonwyd at blwch, ac yna cliciwch ar y OK botwm i achub y gosodiadau.

6. Pan fydd yn dychwelyd i'r Anfon E-byst blwch deialog, cliciwch y anfon botwm i anfon yr e-bost.

O hyn ymlaen, gallwch anfon e-byst gyda'r nodwedd hon yn Excel yn uniongyrchol.

  Os ydych chi am gael treial am ddim (30 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.


Erthyglau cysylltiedig:

Anfon e-bost i gyfeiriadau e-bost a bennir mewn celloedd yn Excel
Gan dybio bod gennych chi restr o gyfeiriadau e-bost, a'ch bod chi am anfon neges e-bost i'r cyfeiriadau e-bost hyn mewn swmp yn uniongyrchol yn Excel. Sut i'w gyflawni? Bydd yr erthygl hon yn dangos dulliau i chi o anfon e-bost i gyfeiriadau e-bost lluosog a nodwyd mewn celloedd yn Excel.

Mewnosodwch lofnod Outlook wrth anfon e-bost yn Excel
Gan dybio eich bod am anfon e-bost yn uniongyrchol yn Excel, sut allwch chi ychwanegu'r llofnod Outlook rhagosodedig yn eich e-bost? Mae'r erthygl hon yn darparu dau ddull i'ch helpu chi i ychwanegu llofnod Outlook wrth anfon e-bost yn Excel.

Anfon e-bost gydag atodiadau lluosog ynghlwm yn Excel
Mae'r erthygl hon yn sôn am anfon e-bost trwy Outlook gyda nifer o atodiadau ynghlwm yn Excel.

Anfon e-bost os yw'r dyddiad dyledus wedi'i fodloni yn Excel
Er enghraifft, os yw'r dyddiad dyledus yng ngholofn C yn llai na neu'n hafal i 7 diwrnod (y dyddiad cyfredol yw 2017/9/13), yna anfonwch nodyn atgoffa e-bost at y derbynnydd penodedig yng ngholofn A gyda chynnwys penodol yng ngholofn B. Sut i ei gyflawni? Bydd yr erthygl hon yn darparu dull VBA i ddelio ag ef yn fanwl.

Anfon e-bost yn awtomatig yn seiliedig ar werth celloedd yn Excel
Gan dybio eich bod am anfon e-bost trwy Outlook at dderbynnydd penodol yn seiliedig ar werth celloedd penodol yn Excel. Er enghraifft, pan fydd gwerth cell D7 mewn taflen waith yn fwy na 200, yna crëir e-bost yn awtomatig. Mae'r erthygl hon yn cyflwyno dull VBA i chi ddatrys y mater hwn yn gyflym.

Mwy o sesiynau tiwtorial ar gyfer postio yn Excel ...


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (20)
Wedi graddio 4.5 allan o 5 · Graddfeydd 1
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod hwn yn wych, ond mae angen i mi weithredu gyda botwm gorchymyn yn hytrach na phwyso F5 yn y golwg cod. Hoffwn pe bai fy ngweithwyr yn gallu llenwi rhywfaint o wybodaeth, yna taro'r botwm a'i gael i gopïo'r ystod o gelloedd y maent wedi'u cwblhau a'u gludo i'r e-bost. Gallaf gael cod yn gweithio ar gyfer y botwm e-bost ac ar wahân ar gyfer y copi / past o'r ystod o gelloedd, ond nid yw'n ymddangos i gyfuno'r ddwy swyddogaeth. Helpwch os gwelwch yn dda!!! Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi Michael,
Mae angen i chi greu botwm (fel Botwm (Rheoli Ffurflen)) yn eich taflen waith, yna aseinio'r macro i'r botwm.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Crystal, Diolch!
Cefais god wedi'i greu ac roeddwn yn meddwl tybed sut i aseinio'r botwm Command i'r cod. Helpodd eich post! ac mae fy adroddiad yn gweithio fel swyn.

Diolch eto.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn wych. Mae'n gweithio yn ôl y disgwyl. Yr unig broblem yw nad yw fformat y tabl yn cael ei gadw yn y post. A allwch roi gwybod i mi sut rydym yn cadw fformat y tabl yn y post
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi
Mae'r cod hwn yn amrywio'n wych, trwy ddefnyddio'r cod rydw i wedi cwblhau fy 90% o fy mhrosiect.
Mae gennyf yr un mater ag a grybwyllwyd gan Anirudh sef fformatio tablau. Sut alla i fformatio'r tabl mewn e-bost.
Helpwch fi os gwelwch yn dda......
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Ni ellir datrys y broblem eto. Sori am yr anghyfleustra a diolch am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, A oes unrhyw ddiweddariad isod......
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Hefyd roeddwn i Eisiau cod ar gyfer "Hidlo yn ôl Dyddiad".
Rwy'n gweithio ar brosiect, ar y prosiect hwnnw roeddwn i eisiau hidlo'r data erbyn y dyddiad, mewn gwirionedd rydym wedi hidlo / cuddio'r 05 diwrnod diwethaf i ddata dyddiad cyfredol ac rydym wedi tynnu sylw at yr holl ddata arall.
Helpwch fi i gwblhau'r prosiect hwn.
Mae eich cymorth yn wych iawn i mi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cod i anfon yn awtomatig ar ôl dewis ar ôl iawn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
mae hwn yn pastio fel testun. Awgrymwch yn garedig sut i anfon y tabl neu'r un fformat sy'n cael ei gopïo o'r Excel.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n gweld gwall crynhoi (math wedi'i ddiffinio gan y defnyddiwr heb ei ddiffinio". Helpwch fi i oresgyn hyn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Ewch i mewn i'r ffenestr Cyfeirio trwy glicio Offer > cyfeiriadau. Sgroliwch i lawr i ddod o hyd i'r blwch Llyfrgell Gwrthrychau Microsoft Outlook a'i wirio a chliciwch ar y botwm OK i orffen y gosodiad.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo arbenigwyr, A oes gennym ni'r wybodaeth ddiweddaraf am sut mae'r fformat yn cael ei gynnal?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Ther,
Methu ei chyfrifo. Mae'n ddrwg gennyf am hynny.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Yn hytrach na dewis yr ystod â llaw, rwyf am ddewis yr ystod yn awtomatig.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Raman,
Yn y cod isod, disodli'r ystod "A1: C5" yn llinell Set xRg = Ystod ("A1: C5") gyda'ch ystod eich hun.

Is-anfon_E-bost()
Dim xRg Fel Ystod
Dim I, J Cyhyd
Dim xCyfeiriad Fel Llinyn
Dim xEmailBody Fel Llinynnol
Dim xMailOut Fel Outlook.MailItem
Dim xOutApp Fel Outlook.Application
Ar Ail-ddechrau Gwall Nesaf
xAddress = ActiveWindow.RangeSelection.Address
Gosod xRg = Ystod ("A1: C5")
Os yw xRg Yn Ddim Yna Ymadael Is
Application.ScreenUpdating = Anghywir
Gosod xOutApp = CreateObject ("Outlook.Application")
Gosod xMailOut = xOutApp.CreateItem(olMailItem)
Am I = 1 I xRg.Rows.Count
I J = 1 I xRg.Columns.Count
xEmailBody = xEmailBody & " " & xRg.Cells(I, J).Value
Digwyddiadau
xEmailBody = xEmailBody & vbNewLine
Digwyddiadau
xEmailBody = "Hi" & vbLf & vbLf & "corff y neges rydych chi am ei ychwanegu" & vbLf & vbLf & xEmailBody & vbNewLine
Gyda xMailOut
.Subject = "Prawf"
.To = "hapus.xuebi@163.com"
.Corff = xEmailBody
.Arddangos
'.Anfon
Diwedd Gyda
Gosod xMailOut = Dim byd
Gosod xOutApp = Dim byd
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Yn hytrach na dewis yr ystod, rwyf am ddewis colyn lluosog yn yr excel.
allwch chi fy helpu os gwelwch yn dda.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
allwch chi fy helpu ar isod
Rwyf wedi creu taflen excel ac wedi diweddaru 10 manylion post cyflenwr Rwyf wedi anfon post drwy excel at bob un o'r 10 cyflenwr gydag atodiad tudalen unigol gyda phost unigol.
Rwyf am gludo data excel yng nghorff outlook yn lle atodiad yn y post
all unrhyw un fy helpu
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr unig broblem yw nad yw fformat y tabl yn cael ei gadw yn y post. A allwch chi roi gwybod i mi sut ydyn ni'n cadw fformat y tabl yn y post, mae gennyf yr un mater, a allech chi weld a allech chi ei ddiweddaru os gwelwch yn dda, fel arall mae hyn yn wych.
Diolch yn fawr
Wedi graddio 4.5 allan o 5
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Andy Mitchell,
Os ydych chi am gynnal fformat y tabl, gall y sgript VBA ganlynol wneud ffafr i chi. Rhowch gynnig arni. Diolch.
Sub Send_Email()
'Updated by Extendoffice 20220616
    Dim xRg As Range
    Dim I, J As Long
    Dim xAddress As String
    Dim xMailOut As Object
    Dim xOutApp As Object
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select range you need to paste into email body", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    With xMailOut
        .Subject = "Test"
        .To = "happy.xuebi@163.com"
        .HTMLBody = RangetoHTML(xRg)
        .Display
        '.Send
    End With
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

 ' The following VBA script is cited from this page:
 ' https://stackoverflow.com/questions/18663127/paste-excel-range-in-outlook
Function RangetoHTML(rng As Range)
' By Ron de Bruin.
    Dim fso As Object
    Dim ts As Object
    Dim TempFile As String
    Dim TempWB As Workbook

    TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"

    'Copy the range and create a new workbook to past the data in
    rng.Copy
    Set TempWB = Workbooks.Add(1)
    With TempWB.Sheets(1)
        .Cells(1).PasteSpecial Paste:=8
        .Cells(1).PasteSpecial xlPasteValues, , False, False
        .Cells(1).PasteSpecial xlPasteFormats, , False, False
        .Cells(1).Select
        Application.CutCopyMode = False
        On Error Resume Next
        .DrawingObjects.Visible = True
        .DrawingObjects.Delete
        On Error GoTo 0
    End With

    'Publish the sheet to a htm file
    With TempWB.PublishObjects.Add( _
         SourceType:=xlSourceRange, _
         Filename:=TempFile, _
         Sheet:=TempWB.Sheets(1).Name, _
         Source:=TempWB.Sheets(1).UsedRange.Address, _
         HtmlType:=xlHtmlStatic)
        .Publish (True)
    End With

    'Read all data from the htm file into RangetoHTML
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
    RangetoHTML = ts.ReadAll
    ts.Close
    RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _
                          "align=left x:publishsource=")

    'Close TempWB
    TempWB.Close savechanges:=False

    'Delete the htm file we used in this function
    Kill TempFile

    Set ts = Nothing
    Set fso = Nothing
    Set TempWB = Nothing
End Function
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir