Skip i'r prif gynnwys

Sut i fewnosod llofnod Outlook wrth anfon e-bost yn Excel?

Awdur: Siluvia Wedi'i Addasu Diwethaf: 2024-11-06

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

Mewnosodwch lofnod yn e-bost Outlook wrth ei anfon gan Excel VBA
Mewnosod llofnod Outlook yn hawdd wrth anfon e-bost yn Excel gydag offeryn anhygoel

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


Mewnosodwch lofnod yn e-bost Outlook wrth ei anfon gan Excel VBA

Er enghraifft, mae rhestr o gyfeiriadau e-bost mewn taflen waith, i anfon e-byst i'r holl gyfeiriadau hyn yn Excel ac ychwanegu'r llofnod Outlook rhagosodedig yn y negeseuon e-bost. Cymhwyswch y cod VBA isod i'w gyflawni.

1. Mae agor y daflen waith yn cynnwys y rhestr cyfeiriadau e-bost rydych chi am e-bostio ati, ac yna pwyswch y Alt + F11 allweddi.

2. Yn yr agoriad Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwl, ac yna copïwch yr isod VBA 2 i mewn i ffenestr cod y Modiwl.

3. Nawr mae angen i chi ddisodli'r .Corff llinell i mewn VBA 2 gyda'r cod i mewn VBA 1. Ar ôl hynny, symudwch y llinell .Arddangos dan y llinell Gyda xMailOut.

VBA 1: Templed o anfon e-byst gyda llofnod rhagosodedig Outlook yn Excel

.HTMLBody = "This is a test email sending in Excel" & "<br>" & .HTMLBody

VBA 2: Anfon e-bost i gyfeiriadau e-bost a bennir mewn celloedd yn Excel

Sub SendEmailToAddressInCells()
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        If xRgVal Like "?*@?*.?*" Then
            Set xMailOut = xOutApp.CreateItem(olMailItem)
            With xMailOut
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Gall y screenshot canlynol eich helpu i ddod o hyd i'r gwahaniaethau yn hawdd ar ôl newid y cod VBA.

symud y cod yn y modiwl

4. Gwasgwch y F5 allwedd i redeg y cod. Yna a Kutools ar gyfer Excel dewiswch naidlenni, dewiswch y cyfeiriadau e-bost y byddwch yn anfon e-byst atynt, ac yna cliciwch OK.

dewiswch y cyfeiriadau e-bost i e-byst anfonwyd atynt

Yna mae e-byst yn cael eu creu. Gallwch weld llofnod rhagosodedig Outlook yn cael ei ychwanegu ar ddiwedd y corff e-bost.

e-byst yn cael eu creu gyda llofnod yn cael ei ychwanegu

Awgrym:

  • 1. Gallwch newid y corff e-bost yng nghod 1 VBA yn seiliedig ar eich anghenion.
  • 2. Ar ôl rhedeg y cod, os bydd blwch deialog gwall yn ymddangos nad yw'r math a ddiffiniwyd gan y Defnyddiwr wedi'i ddiffinio, caewch y dialog hwn, ac yna ewch i glicio offer > Cyfeiriadau yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr. Yn yr agoriad Cyfeiriadau - VBAProject ffenestr, gwiriwch y Llyfrgell Gwrthrychau Microsoft Outlook blwch a chlicio OK. Ac yna rhedeg y cod eto.
    gwiriwch y Microsoft Outlook Object Library blwch

Mewnosod llofnod Outlook yn hawdd wrth anfon e-bost yn Excel gydag offeryn anhygoel

Os ydych chi'n newbie yn VBA, dyma argymell y Anfon E-byst cyfleustodau Kutools ar gyfer Excel i chi. Gyda'r nodwedd hon, gallwch chi anfon e-byst yn hawdd yn seiliedig ar rai meysydd yn Excel ac ychwanegu llofnod Outlook atynt. Gwnewch fel a ganlyn.

Kutools ar gyfer Excel yn cynnig dros 300 o nodweddion uwch i symleiddio tasgau cymhleth, gan hybu creadigrwydd ac effeithlonrwydd. Wedi'i wella gyda galluoedd AI, Mae Kutools yn awtomeiddio tasgau gyda manwl gywirdeb, gan wneud rheoli data yn ddiymdrech. Gwybodaeth fanwl am Kutools ar gyfer Excel ...         Treial am ddim...

Yn gyntaf, mae angen i chi greu rhestr bostio gyda gwahanol feysydd y byddwch chi'n anfon e-byst yn seiliedig arnyn nhw.

Gallwch chi greu rhestr bostio â llaw yn ôl yr angen neu gymhwyso'r nodwedd Creu Rhestr Postio i'w chyflawni'n gyflym.

1. Cliciwch Kutools Byd Gwaith > Creu Rhestr Bostio.

Cliciwch Kutools Plus > Creu Rhestr Postio

2. Yn y Creu Rhestr Bostio blwch deialog, nodwch y meysydd sydd eu hangen arnoch chi, dewiswch ble i allbynnu'r rhestr, ac yna cliciwch ar y OK botwm.

nodwch y meysydd a dewiswch ble i allbynnu'r rhestr

3. Nawr mae sampl rhestr bostio yn cael ei chreu. Gan ei fod yn rhestr sampl, mae angen ichi newid y meysydd i gynnwys penodol sydd ei angen. (caniateir rhesi lluosog)

mae sampl rhestr bostio yn cael ei greu

4. Ar ôl hynny, dewiswch y rhestr gyfan (cynnwys penawdau), cliciwch Kutools Byd Gwaith > Anfon E-byst.

5. Yn y Anfon E-byst blwch deialog:

  • 5.1) Rhoddir eitemau yn y rhestr bostio a ddewiswyd mewn meysydd cyfatebol yn awtomatig;
  • 5.2) Gorffennwch y corff e-bost;
  • 5.3) Gwiriwch y ddau Anfon e-bost trwy Outlook a Defnyddiwch osodiadau llofnod Outlook blychau;
  • 5.4) Cliciwch y anfon botwm. Gweler y screenshot:

nodwch yr opsiynau yn y blwch deialog Anfon E-byst

Nawr anfonir e-byst. Ac ychwanegir llofnod rhagosodedig Outlook ar ddiwedd y corff e-bost.

  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.

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 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 ...

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!