Otomatik mail gönderme saat işlemi

[Lokmanx]

Merhaba ,

Her gün saat 12:00 de excel raporumu otomatik belirlediğim kişilere mail gitmesini istiyorum. Dosyama mail gönderme kodları ekledim ilgili kişilere excel olarak gidiyor ama ek olarak saat bilgisi eklemek istiyorum sadece. Sadece istediğimde saatte dosyanın mail olarak gitmesi için ne yapabilirim. Bir kaç kod buldum ama işe yaramadılar.

Örnek kod :

Sub Zamanı_Geldi()
Application.OnTime TimeValue("12:00:00"), "Excel_ile_Mail_Gönderme"
End Sub

 

[Asri]

Merhaba ,

Her gün saat 12:00 de excel raporumu otomatik belirlediğim kişilere mail gitmesini istiyorum. Dosyama mail gönderme kodları ekledim ilgili kişilere excel olarak gidiyor ama ek olarak saat bilgisi eklemek istiyorum sadece. Sadece istediğimde saatte dosyanın mail olarak gitmesi için ne yapabilirim. Bir kaç kod buldum ama işe yaramadılar.

Örnek kod :

Sub Zamanı_Geldi()
Application.OnTime TimeValue("12:00:00"), "Excel_ile_Mail_Gönderme"
End Sub

Aşağıdaki şekilde deneyiniz.
Dosya sürekli açık kalmalıdır.

Alternatif olarak aşağıdaki konuları da inceleyiniz.
http://www.excel.web.tr/f52/otomatik-dosya-mail-gonderme-programy-t164121.html
http://www.excel.web.tr/f52/autoexcel-zamanlanmy-excel-dosyasy-acma-t161489.html

Public Const Pause = 5 '5 saniye
Public Const cagrilanmakro = "tarih_kontrol"

Sub Auto_Open()
    StartTimer
End Sub

Sub Auto_Close()
    StopTimer
End Sub

Sub StartTimer()
    bekleme = Now + TimeSerial(0, 0, Pause)
    Application.OnTime earliesttime:=bekleme, procedure:=cagrilanmakro, schedule:=True
End Sub

Sub tarih_kontrol()
    zamanstr = Format(Now(), "hh:mm:ss")
    If zamanstr = "12:00:00" And zamanstr <> eskizamanstr Then
       [COLOR=Red]call Excel_ile_Mail_Gönderme[/COLOR]
    End If
    eskizamanstr = zamanstr
    StartTimer
End Sub

Sub StopTimer()
    On Error Resume Next
    Application.OnTime earliesttime:=bekleme, procedure:=cagrilanmakro, schedule:=False
End Sub

 

[Lokmanx]

Merhaba Asri bey ,

Belirttiğiniz tüm kodları ilgili alana yapıştırdım ve istediğim saati yazım ama mail atmıyor kendiliğinden. Tetiklenmiyor

İyi çalışmalar

 

[Asri]

Merhaba Asri bey ,

Belirttiğiniz tüm kodları ilgili alana yapıştırdım ve istediğim saati yazım ama mail atmıyor kendiliğinden. Tetiklenmiyor

İyi çalışmalar

Kodların tamamını module1 e kopyalayıp deneyin.

 

[Lokmanx]

Yalnız mail adresini nereye eklemem gerekiyor onu anlamadım. Önceden yazdığım kodu tetikler diye oradan denedim ama oda olmamıştı. Sizin yazdığınız kod da mail ekleme alanı bulamadım yada ben yabancıyım bu kodlara diye anlamadım

 

[Asri]

Yalnız mail adresini nereye eklemem gerekiyor onu anlamadım. Önceden yazdığım kodu tetikler diye oradan denedim ama oda olmamıştı. Sizin yazdığınız kod da mail ekleme alanı bulamadım yada ben yabancıyım bu kodlara diye anlamadım

Bu kodlar bir şablon, sizin dosyanızda nasıl mail gönderimi yaptığınızı mail adresinin nereye yazıldığını ben bilmem.

Mail göndermek için yaptığınız tüm işlemlerinin başlangıcı "Excel_ile_Mail_Gönderme" prosedürü olduktan sonra sorun yok.

Bu kodlar ilgili zamanda bu prosedürü çağırmak için ayarlandı.