Kako poslati e-poštni opomnik ali obvestilo, če je delovni zvezek posodobljen v Excelu?

V nekaterih primerih boste morda morali sprožiti e-poštno obvestilo določenemu prejemniku, če so v poslanem delovnem zvezku posodobljeni podatki. Ta članek vam bo pokazal način, kako to doseči.

Pošljite e-poštni opomnik ali obvestilo, če je delovni zvezek posodobljen s kodo VBA

Pošljite e-poštni opomnik ali obvestilo, če je delovni zvezek posodobljen s kodo VBA

Če posodobite delovni zvezek, po e-pošti pošljite opomnik ali obvestilo.

1. V delovnem zvezku odprite določen delovni list in na podlagi posodobljenih podatkov v njem boste poslali e-poštno obvestilo.

2. Z desno miškino tipko kliknite jeziček lista in izberite Ogled kode v meniju z desnim klikom. Oglejte si posnetek zaslona:

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite naslednjo kodo v okno kode. Oglejte si posnetek zaslona:

Koda VBA: Če je delovni zvezek posodobljen, pošljite e-poštni opomnik ali obvestilo

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

Opombe: E-poštni naslov zamenjajte z e-poštnim naslovom prejemnika v vrstici .To = "E-poštni naslov". In spremenite polja Cc, Subject in body v kodo VBA, kot potrebujete.

3. Pritisnite druga + Q tipke za zapiranje Microsoft Visual Basic za aplikacije okno.

4. Po urejanju celice na delovnem listu a Kutools za Excel Pojavi se pogovorno okno, kot je prikazano spodaj. Če želite v e-poštno sporočilo priložiti posodobljeni delovni zvezek, kliknite Da . Če ne, kliknite Ne gumb.

5. Nato se samodejno ustvari e-poštno sporočilo s priloženo posodobljeno delovno knjigo ali brez nje. Vsa navedena polja so navedena tudi v e-pošti. Kliknite Pošlji gumb, da ga pošljete.

Opombe: Koda VBA deluje samo, če Outlook uporabljate kot svoj e-poštni program.

Sorodni članki:

• Kako samodejno poslati e-pošto na podlagi vrednosti celice v Excelu?
• Kako poslati e-pošto prek Outlooka, ko je delovni zvezek shranjen v Excelu?
• Kako poslati e-pošto, če je določena celica spremenjena v Excelu?
• Kako poslati e-pošto, če v Excelu kliknemo na gumb?
• Kako poslati e-pošto, če je bil datum izpolnjen v Excelu?