alarm

[genesis]

Selam
Biliyorsunuzdur mutlaka John Walkenbachın bir api si var.Aşağıdaki gibi.

http://j-walk.com/ss/excel/tips/tip87.htm

'Windows API function declaration
Private Declare Function PlaySound Lib "winmm.dll" _
  Alias "PlaySoundA" (ByVal lpszName As String, _
  ByVal hModule As Long, ByVal dwFlags As Long) As Long


Function Alarm(Cell, Condition)
    Dim WAVFile As String
    Const SND_ASYNC = &H1
    Const SND_FILENAME = &H20000
    On Error GoTo ErrHandler
    If Evaluate(Cell.Value & Condition) Then
        WAVFile = ThisWorkbook.Path & "\sound.wav" 'Edit this statement
        Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
        Alarm = True
        Exit Function
    End If
ErrHandler:
    Alarm = False
End Function

=Alarm(A1;">=1000")

Þimdi benim sorunum şöyle , E sütununda tarihler var.Bu tarihlerden 10 gün önce alarm versin ve F sütunundaki kişilere Microsoft Outlookdan uyarı e-maili göndersin. Bu mümkün mü acaba?

 

[Haluk]

Excel ile e-mail gönderilecekse e-mail client olarak MS Outlook'un kullanılması her zaman daha iyidir. Çünkü MS Outlook da bir Office programı olduğu için, Excel VBA'de MS Outlook'a referans vererek bazı işler daha kolay yapılabilir.

Aşağıdaki kodu çalıştırmadan önce Excel VBE'de Tools | References kısmından MS Outlook 9.0 Object Libray referansının eklenmesi gerekir. (MS Outlook versiyonuna göre 10 veya 11 de olabilir.)

PC'nin tarihi ile E sütunundaki tarihleri kontrol edip, 10 günlük farkı gördüğü yerde F sütunundaki geçerli e-mail adresine bir e-mail, MS Outlook ile aşağıdaki gibi bir kodla gönderilebilir.

Sub MultiEmail()
    Dim OutApp As Outlook.Application
    Dim NewMail As Outlook.MailItem
    Dim noE As Integer, i As Integer
    noE = Cells(65536, 5).End(xlUp).Row
        For i = 1 To noE
            If Cells(i, 5) = Date - 10 Then
                Set OutApp = New Outlook.Application
                Set NewMail = CreateItem(olMailItem)
                    With NewMail
                        .To = Cells(i, 6).Text
                        .Subject = "Deneme"
                        .Body = "Bu e-mail deneme amacıyla gönderilmiştir."
                        .Save
                        .Send
                    End With
                Set NewMail = Nothing
                Set OutApp = Nothing
            End If
        Next
End Sub

Eğer bu kodun çalıştırıldığı PC'de ilgili güvenlik yaması kurulmuş ise Windows kullanıcıyı ikaz eder ve başka bir programın e-mail göndermeye çalıştığına dair kullanıcıyı uyarır. Bu yama kurulu değilse, böyle bir problem olmaz.

 

[genesis]

:mrgreen:

Sonunda yapabildim.Hatam 13.08.2004 yazacağıma eylül ayından tarih seçiyormuşum.

Çok teşekkür ederim elinize sağlık. :dua:

 

[genesis]

Ben konuyu uzatmayı severim. :hihoho:
Bu kullandığımız excel kapalı iken, E sütunundaki çeşitli tarihlere göre kendiliğinden e-mail gönderebilir mi diye soracaktım.?

 

[ALPEN]

zamanlanmış görevler kullanarak belkı diyorum.

 

[genesis]

zamanlanmış görevler kullanarak belkı diyorum.

Sevgili Arkadaşım Alpen,

Bunu nasıl yapacağım konusunda biraz yol gösterebilirmisin.

 

[Haluk]

Start >> Programs >> Acessories >> System Tools >> Scheduled Tasks

 

[genesis]

Teşekkür ederim sevgili Raider
Bu yöntemle yapmam mümkün olamadı.Başka önerebileceğiniz yöntem var mı acaba?

 

[Hüseyin]

Teşekkür ederim sevgili Raider
Bu yöntemle yapmam mümkün olamadı.Başka önerebileceğiniz yöntem var mı acaba?

Münkün olmadı derken;
Hata veya sorun nerede oldu?
Bence de bu yöntem uygun görünmüştü.
Scheduled Tasks belirttiğiniz Excel dosyasını periyodik olarak açar, açılışa yerleştirilen bir makro kontrolu yapar ve uygun kayıt bulursa email gönderir.... diye düşünmüştüm.

 

[genesis]

Çünki PC lerde güvenlik nedeniyle scheduled tasklar ne yazık ki açık değil.

 

[holifera]

olmadı

Alarm için Kodu VBA da yazdım ama çalışmadı.
Formulde hata var mesajı veriyor. çalışan örneğini ekleyebilirmisiniz

 

[jale]

Merhaba

Ekli file:deneme1.zip

İyi Çalışmalar

 

[holifera]

Teşekkür ederim Mail tamam ama sound la ilgili bir sorunum var sanırım.

 

[jale]

Selam

Sound.wav

olmayabilir bu satırı sound1.wav olarak değiştirip deneyin.Bu da olmazsa wav filelarınızı bulun sound diye filenız var mı kontrol edin.Yoksa tabiiki çalışmaz..

İyi Çalışmalar

 

[holifera]

Bir soru daha

ses ile ilgili sorunu hallettim ses dosyasının klasörünü yazıp düzelttim durumu .
Ama aklıma bir şey takıldı maili MS Outlook ile değil de Outlook Express ile göndermesinin bir yolu var mı?