Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: yapex - 22 Şubat 2016, 17:29:55

Başlık: alarm
Gönderen: yapex - 22 Şubat 2016, 17:29:55

1-  Excel hucresi belli bir sayiya ulasinca email yolla emri verilebilirmi ?
2- Excel hucresi belli bir sayiya ulasinca sesli uyari yap emri verilebilirmi ?

ornek:  c1 hucresi 5 sayisina gelince bana otomatik email yollasin.  bu sekilde devamli bilgisayarin basinda takip etmeme gerek kalmaz.
email yollama emri verilirmi ?
sesli uyari yapmasi saglanabilirmi ?

Başlık: Ynt: alarm
Gönderen: Huseyinkis - 15 Mart 2016, 14:30:54

ekteki kodları denermisiniz Deneme@Deneme.com adresi yerine kendi mail adresinizi yazın. Kod dosyanın açık olduğu bilgisayarda outlook hesabı varsa mail atar.

Kod: [Seç]


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C1")) Is Nothing Then Exit Sub

if Cells(1,3)>= 5 then

Dim strDate As String
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem

           
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
On Error Resume Next
.To = "Deneme@Deneme.com"
.Subject = "Hücre 5 rakamına ulaştı"
.Save
.Send
End With
Set NewMail = Nothing
Set OutApp = Nothing

end if

End Sub