İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də iş kitabı yenilənirsə e-poçt xatırlatma və ya bildiriş göndərmək üçün necə?

Bəzi hallarda, göndərdiyiniz iş kitabında yenilənmiş məlumatlar varsa, müəyyən bir alıcıya bir e-poçt bildirişi tetiklemesi tələb oluna bilər. Bu məqalədə onu əldə etmək üçün sizə üsul göstərilir.

İş dəftəri VBA kodu ilə yenilənirsə e-poçt xatırlatma və ya bildiriş göndər


İş dəftəri VBA kodu ilə yenilənirsə e-poçt xatırlatma və ya bildiriş göndər


İş dəftəri yeniləndiyi təqdirdə e-poçt xatırlatma və ya bildiriş göndərmək üçün xahiş edirik.

1. İş kitabında daxilində yenilənmiş məlumatlara əsasən e-poçt bildiriş göndərəcəyiniz müəyyən bir iş səhifəsini açın.

2. Sehife sekmesini sağ basın və seçin Kodları baxın sağ tıklayma menyusundan. Ekran görüntüsünə baxın:

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə, kodu kopyalayıb və kodu daxil edin. Ekran görüntüsünə baxın:

VBA kodu: İş dəftəri yenilənirsə, e-poçt xatırlatma və ya bildiriş göndər

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

Qeyd: E-poçt ünvanını satıcının e-poçt ünvanı ilə dəyişdirin . = "E-poçt ünvanı". Lazım olduğunuz halda VC kodunda Cc, Mövzu və cisim sahələrini dəyişdirin.

3. Basın Dayandırmaq + Q düymələri bağlamaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

4. Çalışma kitabında bir hüceyrəni düzəldikdən sonra, a Excel üçün Kutools informasiya qutusu ekran görüntüsünün aşağıda göstərildiyi kimi açılır. Yenilənib iş kitabını e-poçt ünvanına əlavə etmək istəyirsinizsə, xahiş edirik basın bəli düyməsini basın. Əgər deyilsə, basın Yox düyməsini basın.

5. Sonra yenilənən iş kitabçası ilə və ya olmadan avtomatik olaraq bir e-poçt yaradılır. Və bütün göstərilən sahələr də e-poçtda verilmişdir. Xahiş edirik basın Göndərmək göndərmək üçün düyməsini basın.

Qeyd: VBA kodu yalnız Outlook proqramını e-poçt proqramı olaraq istifadə edərkən işləyir.


Related articles:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.