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

Ինչպե՞ս ուղարկել էլփոստի հիշեցում կամ ծանուցում, եթե աշխատանքային գիրքը թարմացվում է Excel- ում:

Որոշ դեպքերում ձեզ հարկավոր է անհրաժեշտություն առաջացնել ստացողի էլ. Փոստով ծանուցում, եթե ձեր ուղարկած աշխատանքային գրքում թարմացված տվյալներ կան: Այս հոդվածը ցույց կտա ձեզ դրան հասնելու մեթոդը:

Ուղարկեք էլփոստի հիշեցում կամ ծանուցում, եթե աշխատանքային գիրքը թարմացվում է VBA կոդով


Ուղարկեք էլփոստի հիշեցում կամ ծանուցում, եթե աշխատանքային գիրքը թարմացվում է VBA կոդով

Աշխատանքային գրքի թարմացման դեպքում էլեկտրոնային փոստով հիշեցում կամ ծանուցում ուղարկելու համար արեք հետևյալը.

1. Աշխատանքային գրքում բացեք նշված աշխատանքային թերթը, որով դուք կուղարկեք էլեկտրոնային ծանուցում ՝ ներսում առկա նորացված տվյալների հիման վրա:

2. Աջ կտտացրեք թերթիկի ներդիրին և ընտրեք Դիտել կոդը աջ կտտացնելու ցանկից: Տեսեք,

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և տեղադրեք հետևյալ կոդը ծածկագրի պատուհանում: Տեսեք,

VBA կոդ. Աշխատանքային գրքի թարմացման դեպքում ուղարկեք էլփոստի հիշեցում կամ ծանուցում

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

ՆշումՓոխարինեք էլ. Փոստի հասցեն ստացողի էլ . To = "Էլ. Փոստի հասցե", Եվ փոխեք Cc- ի, Subject- ի, ինչպես նաև մարմնի դաշտերը VBA կոդում, որքան անհրաժեշտ է:

3. Սեղմեք ալտ + Q ստեղները փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

4. Աշխատաթերթում բջիջ խմբագրելուց հետո, ա Excel- ի համար նախատեսված գործիքներ երկխոսության տուփը կհայտնվի, ինչպես ցույց է տրված նկարի ներքևում: Եթե ​​ցանկանում եք էլեկտրոնային փոստում կցել թարմացված աշխատանքային գրքույկը, սեղմեք այստեղ այո կոճակ Եթե ​​ոչ, կտտացրեք այն Ոչ կոճակը:

5. Դրանից հետո էլփոստը ստեղծվում է ավտոմատ կերպով `կցված թարմացված աշխատանքային գրքի հետ կամ առանց դրա: Եվ նշված բոլոր դաշտերը նույնպես նշված են էլ. Փոստում: Խնդրում ենք սեղմել ուղարկել այն ուղարկելու կոճակը:

ՆշումVBA կոդը գործում է միայն այն ժամանակ, երբ Outlook- ը օգտագործում եք որպես ձեր էլփոստի ծրագիր:


Առնչվող հոդվածներ քանակը:


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (20)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Եթե ​​որևէ մեկը գտել է այս էջը, որը մտածում է, թե ինչպես ուղարկել նամակ Excel-ից CDO-ի միջոցով, ես հավաքեցի Google Doc - Ինչպես ուղարկել էլփոստ Excel-ից Gmail-ի միջոցով (https://docs.google.com/document/d/1u5VLzCApU3k4-9Vp9LEfqyFZ6u9tAY0avNPYN_1FsN4/edit?usp=sharing) կոդով GitHub էության վրա (https://gist.github.com/bergerjac/7355d4e528fa6c64a02dc494f3d241a1)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ եմ CC ավելին, քան մարդ այս հարցում: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi Leah,
Խնդրում ենք մուտքագրել էլ. փոստի հասցեները անմիջապես .cc="" տողում և դրանք առանձնացնել ստորակետով, օրինակ՝ .cc = "AAA@gmail.com;BBB@gmail.com"
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես պատճենեցի և տեղադրեցի կոդը հենց այնպես, ինչպես կա այս էջից, բայց երբ ես փոփոխություն եմ կատարում իմ փաստաթղթում, ստանում եմ «Սինտաքսային սխալ» հաղորդագրությունը, և այս տողում նշվում է՝ Dim xOutApp As Object: Ցանկացած օգնություն կգնահատվի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ջուդի,
Կտրամադրե՞ք ձեր օգտագործած Excel տարբերակը: Շնորհակալություն մեկնաբանության համար։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև ձեզ, կոդը հիանալի է աշխատում: Այնուամենայնիվ, երբ մակրո գործողության միջոցով բջիջը փոխվում է շեմային կետից ցածր, որը պատճենում և տեղադրում է ստորին արժեքը նշանակված բջիջում, թվում է, թե կոդը չի գործարկվում:

Բացի այդ, ես կցանկանայի կիրառել այս կոդը մի քանի բջիջների վրա: Կարո՞ղ եմ մի քանի անգամ պատճենել և տեղադրել կոդը և փոխել յուրաքանչյուր պատճենված տարբերակը՝ յուրաքանչյուր բջիջի կարիքներին համապատասխան: Կա՞ դա անելու ավելի լավ միջոց: Ես չեմ կարող դա պարզել: Շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կներեք, ես սա սխալ հոդվածում եմ տեղադրել: Ես կտեղադրեմ ճիշտ հոդվածում
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Երբ ես փորձում էի ինչ-որ բան փոխել բջիջում, հաղորդագրություն էր հուշում Outlook էլփոստի կազմաձևման համար, և այն պարզապես շարունակում է իմ գաղտնաբառը խնդրել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև MJ,
Excel-ի ո՞ր տարբերակն եք օգտագործում: Կարո՞ղ եք տրամադրել հուշման սքրինշոթը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինձ համար կոդը աշխատում է նորից ու նորից, կարծես երբեք չավարտվող հանգույց: Ես փակում եմ նամակը, այն նորից խնդրում է ուղարկել այն...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
խնդրում եմ, ես մի փոքր շփոթված եմ, բայց կոդի որտեղ է այն հայտնաբերում, որ թերթիկը փոփոխվում է/թարմացվում է:
Ես փորձում եմ գրել կոդ, որտեղ որոշակի թերթիկի աղյուսակը կուղարկվի, երբ աղյուսակը փոփոխվում է (կամ ավելի կոնկրետ, երբ տողեր են ավելացվում)
շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Գրառման կոդը հայտնաբերում է ամբողջ աշխատաթերթի բոլոր բջիջները՝ հիմնվելով «Private Sub Worksheet_Change (ByVal Target As Range)» առաջին տողի վրա:
Եթե ​​ցանկանում եք նամակ ուղարկել որոշակի աղյուսակով, երբ այն փոփոխվում է, կարող եք փորձել հետևյալ VBA-ն:
ՆշումԽնդրում ենք փոխել «Աղյուսակ1»-ը ձեր սեփական աղյուսակի անունով:
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
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hola cristal, donde dice Private Sub Worksheet_Change, deberia poner el nombre de mi excel or no?
Los rangos de (I,J) cambiarlos por los valores de celdas que yo dese estar mirando si cambian?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
HOLA CRISTAL, ME GUSTARIA PONERME EN CONTACTO DIRECTO CONTIGO, NE CESITO DE TU AYUDA EN EXCEL,GRACIAS
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
HOLA CRISTAL, ME GUSTARIA PONERME EN CONTACTO DIRECTO CONTIGO, PARA PEDIR TU AYUDA EN UN PROBLEMITA EN UNA HOJA DE EXCEL
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև ՋԵՐԱՐԴՈ ՄԱՐՏԻՆ ՕԼՎԵՐԱ,
Դուք կարող եք ինձ էլփոստ ուղարկել zxm@addin99.com հասցեով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ձեզ, կոդի ո՞ր հատվածը պետք է ջնջեմ, որպեսզի այն ուղարկի նամակ միայն այն ժամանակ, երբ ես սեղմում եմ պահպանումը և ոչ բոլոր գործողությունների վրա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև դոնկե,
VBA կոդում խնդրում ենք փոխարինել հետևյալ տողը.
.Dուցադրել
հետ
.Ուղարկել
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես հետևում եմ վկայագրերի մուտքի Excel թերթիկին: Ես պետք է հիշեցում ստանամ նախքան վկայականների ժամկետը լրանալը: խնդրում եմ խորհուրդ տվեք ինձ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ռահուլ Ռաջան,

Ցանկանու՞մ եք հիշեցում բացել՝ հիմնված բջջի ամսաթվի վրա:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից