Excel, elektronik tablodaki ölçütlere dayanarak Outlook yoluyla bir e-posta "GÖNDER" yapabilir mi?

Bir var mı kolay bir şekilde elde etmek Excel (2013)aslında hiç
send an email (Outlook or Exchange)
belli kriterler karşılandığı takdirde?
Örneğin:

if A2 is between 80 and 90, send email to G2.

A2 çalışanın başlama tarihinin today's datebir sonucudur, yani 90 günlük incelemeye ihtiyaç duyulan 80 ila 90 sonuç.
G2, süpervizörün, yöneticinin vb. Gerçek e-posta adresine
sahip olacaktı . Bu işlem, e-posta adresini alıp e-postayı birer birer göndermek için her hücreye girmeden otomatik olarak gerçekleşecekti.

— GPinSF
kaynak

Şuna bir bak. Bir hücre belli bir değere ulaştığında bir posta gönder

— yass

Ne istersen onu yapan ticari ürünü tavsiye ederim.

— 15'te,

@ yass, bu çözümü içeren bir cevap göndermeyi düşünün. Bu soru ara sıra ortaya çıkıyor ve burada yerleşik bir cevabınız olması yararlı olabilir. Çoğunlukla kopyala / yapıştır ve nitelik olabilir.

— fixer1234

Bu Sub, koşulun uygulandığı seçili hücreleri (sütunu) okur, True, e-postayı, konuyu, gövdeyi okursa ve e-postayı gönderir ve gönderdikten Sentsonra aynı satırda yazdığında testi uygular.
Outlook ile çalışır.

Column 1    Column 2      Column 3         column 4   column 5       column 6  
80           email        Manager Name    Body Text   Employee Name  Sent or empty

Hücreleri (s, c + 2) değiştirebilir, hücre (s, c + 4) ... sütunlarınıza karşılık gelir;
örneğin, A2 sütunu 1 ise G2 (sütun 2) hücre (s, c + 6) olur ve diğerlerini Verilerinize göre hareket ettirin
1. sütundaki hücreleri seçmeniz gerekir, Sub devam edecek

 Sub SendReminderMail()
        Dim s As Long, c As Long
        Dim OutLookApp As Object
        Dim OutLookMailItem As Object
        Dim strBody As String


    Set OutLookApp = CreateObject("Outlook.application")
    Set OutLookMailItem = OutLookApp.CreateItem(0)



     For Each Cell In Selection
     Cell.Select

     s = ActiveCell.Row
     c = ActiveCell.Column


       If Cells(s, c).Value > 80 And Cells(s, c).Value < 90 Then
        strBody = Cells(s, c + 3) & " " & Cells(s, c + 4)
          Set OutLookMailItem = OutLookApp.CreateItem(0)
          With OutLookMailItem

              .To = Cells(s, c + 1).Value
              .Subject = "Reminder: "
              .Body = "Dear " & Cells(s, c + 2).Value & "," & vbCrLf & vbCrLf & strBody

              .Display ' or .Send
          End With
          Cells(s, c + 5) = "Sent"
      End If

    Next Cell
End Sub

— Yass
kaynak