İ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

Avtomatik olaraq Excel-də cell dəyəri əsasında e-poçt göndərmək üçün necə?

Excel-də müəyyən bir hüceyrə dəyərinə əsasən müəyyən bir alıcıya Outlook vasitəsilə e-poçt göndərmək istəyirsən. Məsələn, bir işdə D7 hücresinin dəyəri 200-dən çox olduğunda, avtomatik olaraq bir e-poçt yaradılır. Bu məqalə bu məsələni tez bir zamanda həll etmək üçün VBA metodunu təqdim edir.

Avtomatik olaraq VBA kodu ilə hücum dəyərinə əsasən elektron poçt göndərin


Excel-də yaradılan poçt siyahısının sahələrinə əsasən e-poçt vasitəsilə asanlıqla göndərin:

The E-poçt göndər faydası Excel üçün Kutools istifadəçilər Excel-də Excel-də yaradılmış poçt siyahısına əsasən e-poçt göndərməyə kömək edir. İndi Excel üçün Kutools tam xüsusiyyətini 60 gün pulsuz izini yükləyin!

  • Bütün lazımi poçt sahələri ilə bir poçt siyahısı yaradın və hamısını seçin.
  • E-poçt göndər funksiyasını aktivləşdirin və e-poçt bədəninizi doldurun.
  • Outlook ilə göndər.

Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi pulsuz sınaq yükləyin!


Avtomatik olaraq VBA kodu ilə hücum dəyərinə əsasən elektron poçt göndərin

Excel-də cell dəyərinə əsaslanan e-poçt göndərmək üçün xahiş edirik.

1. İş yerindəki hücum dəyərinə əsasən e-məktub göndərmək lazımdır (burada D7 hücumu deyir), hesabatı sekmesini sağa vurun və seçin Kodları baxın kontekst menyusundan. Ekran görüntüsünə baxın:

2. Popping up Proqramlar üçün Microsoft Visual Basic Pəncərədən, aşağıdakı VBA kodunu hesabat kodu penceresine kopyalayıb yapışdırın.

VBA kodu: Excel-də Excel-də mobil dəyər əsasında e-poçt göndər

Dim xRg As Range
'Update by Extendoffice 2018/3/7
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Cells.Count > 1 Then Exit Sub
  Set xRg = Intersect(Range("D7"), Target)
    If xRg Is Nothing Then Exit Sub
    If IsNumeric(Target.Value) And Target.Value > 200 Then
        Call Mail_small_Text_Outlook
    End If
End Sub
Sub Mail_small_Text_Outlook()
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xMailBody As String
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xMailBody = "Hi there" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2"
    On Error Resume Next
    With xOutMail
        .To = "Email Address"
        .CC = ""
        .BCC = ""
        .Subject = "send by cell value test"
        .Body = xMailBody
        .Display   'or use .Send
    End With
    On Error GoTo 0
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

Qeydlər:

1. VBA kodunda, D7dəyər> 200 Sizə elektron poçt göndərəcəyiniz hüceyrə və mobil dəyərdir.

2. Xahiş edirik e-poçt bədənini lazım olduğunda dəyişdirin xMailBody kodu daxil edin.

3. E-poçt ünvanını satıcının e-poçt ünvanını dəyişdirin . = "E-poçt ünvanı".

4. Və ehtiyac duyduğunuz Cc və Bcc alıcılarını daxil edin .CC = ""Bcc = "" bölmələr.

5. Nəhayət e-poçt mövzunu xəttində dəyişin .Subject = "Cell dəyər testi ilə göndərin".

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

İndi, D7 hücresinə daxil etdiyiniz dəyəri 200-dən çox olduğunda, müəyyən alıcılara və bədənə malik bir e-poçt Outlook-da avtomatik olaraq yaradılacaq. Sizi tıklaya bilərsiniz Göndərmək Bu e-poçt göndərmək üçün düyməsini basın. Ekran görüntüsünə baxın:

Qeydlər:

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

2. D7 hücresindeki daxil olan məlumatlar mətn dəyəri olduqda, e-poçt pəncərəsi də buraxılacaq.


Office Tab - Excel-də iş kitablarının sekmeli tarama, redaktə edilməsi və idarə olunması:

Office Tab sekmeli interfeysi Google Chrome, Internet Explorer yeni versiyaları və Microsoft Excel kimi Firefox kimi veb brauzerlərdə göründüyü kimi gətirir. Bu zaman qənaət vasitədir və işinizdə əvəzsizdir. Demonun aşağıda bax:

Ofis Sekmesinin pulsuz sınaq üçün basın!

Excel üçün Office Tab


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.
  • To post as a guest, your comment is unpublished.
    April · 5 months ago
    Hi,

    What would the code look like if I am trying to send a reminder to myself that an expiry date is approaching (a month before official date). I have conditional formatting on the column (G2:G32) to highlight when the due date is a month away. How do I incorporate that into a VBA code to send to my e-mail as a reminder?
  • To post as a guest, your comment is unpublished.
    Melissa · 6 months ago
    Hi, I am very new to VBA and when I copy and paste this I have managed to get it to work with my expiry dates but it only works for 1 cell. Is there a way for this to work with all the cells in a column.


    thanks
    Melissa
    • To post as a guest, your comment is unpublished.
      crystal · 5 months ago
      Hi Melissa,
      Please change "D7" to "D:D" in the above VBA code if you want to work with all the cells in column D. Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    BSS · 6 months ago
    Hi
    I am fairly new to formatting on spreadsheets and am currently working on a spreadsheet that has multiple expiry dates over several columns and rows (I have already put in place conditional formatting to highlight in red when date has expired) However I was wondering if is possible to create either a report or alert of when the dates are due to expire?
    Any thoughts are gratefully received
  • To post as a guest, your comment is unpublished.
    Ian · 6 months ago
    Hello!


    I'm new to VBA, so this may be a dumb question. I'm trying to use this code to send automatic email alerts when inventory gets below a numerical value that is specific to each cell. I've been able to get it to work for one cell, and now I'm trying to repeat the process for other cells in my sheet. (i.e. When D7 get's below 2 it send out an email. But when D8 gets below 4 I'd like it to send out a different email.)However, copying and pasting the code and changing the specified cell does not work. What can I do to solve this problem? Thanks!
  • To post as a guest, your comment is unpublished.
    Kim · 6 months ago
    I have a code to autogenerate an email if an change is made to cells e11:a33. If I make several changes, I'd only like it to autogenerate the email once. How can I do this? Thanks,


    Dim xRg As Range
    'Update by Extendoffice 2018/3/7
    Private Sub Worksheet_Change(ByVal Target As Range)
    'Determine if change was made to cells E11:E33
    If Not Intersect(Target, Range("E11:E33")) Is Nothing Then
    Call Mail_small_Text_Outlook
    End If
    End Sub
    Sub Mail_small_Text_Outlook()
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xMailBody As String
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xMailBody = "LAC team," & vbNewLine & vbNewLine & _
    "This LAC Event Management Macro for _ has a status update. Please review. Thanks."
    On Error Resume Next
    With xOutMail
    .To = ""
    .CC = ""
    .BCC = ""
    .Subject = "Event Planning Update"
    .Body = xMailBody
    .Display 'or use .Send
    End With
    On Error GoTo 0

    Set xOutMail = Nothing
    Set xOutApp = Nothing
    End Sub
    • To post as a guest, your comment is unpublished.
      crystal · 5 months ago
      Hi Kim,
      Sorry I am not sure I got your question. Would be nice if you could provide screenshot of what you are trying to do.
      Or you can post any question about Excel to our forum: https://www.extendoffice.com/forum.html to get more Excel supports from our professional or other Excel fans.