Uyarı sistemi

[gokhanavci84]

Merhaba,

ekteki çalışmada bahsettiğim üzere bir uyarı sistemi entegre etmek istiyorum yardımcı olabilecek arkadaşlara teşekkür ederim

saygılarımla

 

[gokhanavci84]

Sanırım kimse ilgilenmeyecek ..

 

[Emir Hüseyin Çoban]

Merhaba, ekteki dosyayı inceleyiniz.
Tablonun mail atabilmesi için;
Microsoft Outlook programının açık olması ve
Microsoft Excel Kod ekranında References- Microsoft Outlook 12.0 Object Library seçeneği işaretli olmalı.

 

[gokhanavci84]

merhaba, ekteki dosyayı inceleyiniz.
Tablonun mail atabilmesi için;
microsoft outlook programının açık olması ve
microsoft excel kod ekranında references- microsoft outlook 12.0 object library seçeneği işaretli olmalı.

dosyanız açılıyor ama içi boş.


Outlook herzaman açık . Yapmam gerekeni söylerseniz ben ne gerekiyorsa yaparım sorun değil..

 

[Emir Hüseyin Çoban]

dosyanız açılıyor ama içi boş.


Outlook herzaman açık . Yapmam gerekeni söylerseniz ben ne gerekiyorsa yaparım sorun değil..

Boş bir module aşağıdaki kodları yapıştırın.

Sub mail()
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Dim objOutlook As Object
Dim objMail As Object
Dim i As Long, NoA As Long
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "deneme@mail.com"
.Subject = "konu"
.Body = "mesaj"
.Save
.Send
'.Display
End With
Set objMail = Nothing
Set objOutlook = Nothing

End Sub

Sayfanın kod bölümüne aşağıdaki kodları yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A3")) Is Nothing Then
        On Error Resume Next
        If Target = "" Then Exit Sub
        
    If "a1" + "a2" + "a3" > 160000 Then
        Call mail
End If
End If
End Sub

Referansın işaretli olduğundan emin olun.