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

Sut i anfon nodyn atgoffa neu hysbysiad e-bost os yw'r llyfr gwaith yn cael ei ddiweddaru yn Excel?

Mewn rhai achosion, efallai y bydd angen i chi sbarduno hysbysiad e-bost i dderbynnydd penodol os oes data wedi'i ddiweddaru yn y llyfr gwaith rydych wedi'i anfon. Bydd yr erthygl hon yn dangos dull i chi ei gyflawni.

Anfonwch nodyn atgoffa e-bost neu hysbysiad os yw'r llyfr gwaith yn cael ei ddiweddaru gyda chod VBA


Anfonwch nodyn atgoffa e-bost neu hysbysiad os yw'r llyfr gwaith yn cael ei ddiweddaru gyda chod VBA


Gwnewch fel a ganlyn i anfon nodyn atgoffa e-bost neu hysbysiad os yw'r llyfr gwaith yn cael ei ddiweddaru.

1. Yn y llyfr gwaith, agorwch daflen waith benodol byddwch yn anfon hysbysiad e-bost yn seiliedig ar y data wedi'i ddiweddaru y tu mewn.

2. De-gliciwch y tab dalen, a dewis Gweld y Cod o'r ddewislen clicio ar y dde. Gweler y screenshot:

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïo a gludo'r cod canlynol i'r ffenestr cod. Gweler y screenshot:

Cod VBA: Anfon nodyn atgoffa e-bost neu hysbysiad os yw'r llyfr gwaith yn cael ei ddiweddaru

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/14
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xName As String
    Dim xYesOrNo As Integer
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailItem = xOutApp.CreateItem(0)
    xYesOrNo = MsgBox("Want to attach updated workbook in email?", vbInformation + vbYesNo, "KuTools For Excel")
    If xYesOrNo = 6 Then ActiveWorkbook.Save
    If xYesOrNo = 6 Then xName = ActiveWorkbook.FullName
    With xMailItem
        .To = "Email Address"
        .cc = ""
        .Subject = "email notification test"
        .Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
        If xYesOrNo = 6 Then .Attachments.Add xName
        .Display
    End With
    xMailItem = Nothing
    xOutApp = Nothing
End Sub

Nodyn: Amnewid y Cyfeiriad E-bost gyda'r cyfeiriad e-bost derbynnydd yn unol .To = "Cyfeiriad E-bost". A newid y Cc, Pwnc yn ogystal â meysydd corff yn y cod VBA yn ôl yr angen.

3. Gwasgwch y Alt + Q allweddi i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

4. Ar ôl golygu cell yn y daflen waith, a Kutools ar gyfer Excel bydd blwch deialog yn ymddangos fel y dangosir isod. Os ydych chi am atodi'r llyfr gwaith wedi'i ddiweddaru yn yr e-bost, cliciwch ar y Oes botwm. Os na, cliciwch y Na botwm.

5. Yna mae e-bost yn cael ei greu yn awtomatig gyda'r llyfr gwaith wedi'i ddiweddaru neu hebddo. Ac mae'r holl feysydd penodedig hefyd wedi'u rhestru yn yr e-bost. Cliciwch y anfon botwm i'w anfon.

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


Erthyglau cysylltiedig:


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 (16)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Os daeth unrhyw un o hyd i'r dudalen hon yn pendroni sut i anfon e-bost gan Excel gan ddefnyddio CDO, fe wnes i daflu Google Doc at ei gilydd -- Sut i Anfon E-bost o Excel gan ddefnyddio Gmail (https://docs.google.com/document/d/1u5VLzCApU3k4-9Vp9LEfqyFZ6u9tAY0avNPYN_1FsN4/edit?usp=sharing) gyda chod ar GitHub gist (https://gist.github.com/bergerjac/7355d4e528fa6c64a02dc494f3d241a1)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A allaf CC yn fwy na pherson yn hyn? Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi Leah,
Rhowch y cyfeiriadau e-bost yn uniongyrchol yn y llinell .cc="" a'u gwahanu â hanner colon, megis .cc = "AAA@gmail.com; BBB@gmail.com"
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Fe wnes i gopïo a gludo'r cod yn union fel y mae o'r dudalen hon, ond pan fyddaf yn gwneud newid i'm dogfen rwy'n cael y neges "Gwall Cystrawen" ac mae'r llinell hon yn amlygu: Dim xOutApp As Object. Byddai unrhyw help yn cael ei werthfawrogi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Judy,
A fyddech chi'n darparu'r fersiwn Excel rydych chi'n ei ddefnyddio? Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo yno, Mae'r cod yn gweithio'n wych. Fodd bynnag, pan fydd cell yn newid i fod yn is na'r pwynt trothwy trwy weithrediad macro sy'n copïo ac yn gludo'r gwerth is i'r gell ddynodedig, nid yw'n ymddangos bod y cod yn sbarduno.

Hefyd, hoffwn gymhwyso'r cod hwn i sawl cell. A allaf gopïo a gludo'r cod sawl gwaith a newid pob fersiwn a gopïwyd i gyd-fynd ag anghenion pob cell? A oes ffordd well o wneud hynny. Ni allaf gyfrifo hynny. Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ddrwg gennyf, postiais hwn yn yr erthygl anghywir. Byddaf yn postio yn yr erthygl gywir
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pan geisiais newid rhywbeth mewn cell, ysgogodd neges am ffurfweddiad e-bost Outlook ac mae'n parhau i ofyn am fy nghyfrinair.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo MJ,
Pa fersiwn Excel ydych chi'n ei ddefnyddio? Allwch chi ddarparu sgrinlun o'r anogwr?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
I mi, mae'r cod yn rhedeg dro ar ôl tro, fel dolen ddiddiwedd. Rwy'n cau e-bost mae'n gofyn eto i'w anfon ...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
os gwelwch yn dda yr wyf ychydig yn ddryslyd ond ble yn y cod mae'n canfod y daflen yn cael ei addasu / diweddaru?
Rwy'n ceisio ysgrifennu cod lle mae'r tabl ar ddalen benodol yn cael ei anfon pan fydd y tabl yn cael ei addasu (neu'n fwy penodol pan ychwanegir rhesi)
Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Mae'r cod yn y post yn canfod pob cell yn y daflen waith gyfan yn seiliedig ar linell gyntaf "Private Sub Worksheet_Change(ByVal Target As Range)".
Os ydych chi am anfon e-bost gyda thabl penodol pan gaiff ei addasu, gallwch chi roi cynnig ar y VBA canlynol.
Nodyn: os gwelwch yn dda newidiwch "Table1" i'ch enw tabl eich hun.
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2022/5/27
    Dim xYesOrNo As Integer
    Dim xTableName As String
    Dim xTableRg As Range
    Dim I, J As Long
    Dim xEmailBody As String
    Dim xMailOut As Object
    Dim xOutApp As Object
    On Error Resume Next
    
    xTableName = "Table1" 'The name of the table you will send when it is modified
    Set xTableRg = ActiveSheet.ListObjects(xTableName).Range
    If Intersect(Target, xTableRg) Is Nothing Then Exit Sub

    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    For I = 1 To xTableRg.Rows.Count
        For J = 1 To xTableRg.Columns.Count
            xEmailBody = xEmailBody & "  " & xTableRg.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 = "XXX@163.com"
        .Body = xEmailBody
        .Display
        '.Send
    End With
    Set xMailOut = Nothing
    Set xOutApp = Nothing
End Sub
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hola cristal, donde dis Is-daflen Waith Breifat_Change, deberia poner el nombre de mi excel o na?
Los rangos de (I,J) cambiarlos por los valores de celdas que yo dese estar mirando si cambian?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
HOLA CRISTAL, ME GUSTARIA PONERME EN CONTACTO CYFARWYDDYD CONTIGO, NE CESITO DE TU AYUDA EN EXCEL, GRACIAS
Lleihawyd y sylw hwn gan y safonwr ar y wefan
HOLA CRISTAL, ME GUSTARIA PONERME EN CONTACTO CYFARWYDDYD CONTIGO, PARA PEDIR TU AYUDA A PROBLEMITA UNA HOJA DE EXCEL
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo GERARDO MARTIN OLVERA,
Gallwch anfon e-bost ataf yn zxm@addin99.com.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir