• Merhaba Ziyaretçi,
    10 Aralık'a Kadar VIP Paket %50 İNDİRİMLİ (bir kere öde, ömür boyu kullan)
    İndirimden yararlanmak için resme tıklayın. 👇🏻
  • Sn. Ziyaretçi,
    PEAKUP E-Book & Makale & Videoları yayınlandı.

Yardım zaman ayarlı kritere göre excelden mail gönderme

cyber_fatal

Yeni Üye
Katılım
15 Haz 2020
Mesajlar
9
En iyi yanıt
0
Puanları
1
Yaş
32
Konum
Russia
Ad Soyad
fatih
merhaba,

makro ile p hücresi boş ise s hücresinde yazılı kişiye her 24 saatte bir zaman ayarlı olarak mail gönderimi makro ile mümkünmü.
konu ile ilgili bilgi olan paylaşabilirmi.
 

Ekli dosyalar

  • MAIL.jpg
    MAIL.jpg
    69.4 KB · Görüntüleme: 4

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,254
En iyi yanıt
9
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Merhaba,
İstediğiniz işlemi yapmak mümkündür.
Yalnız, belli bir saat belirlemeniz ve mailin gideceği saatte Excel'in açık olması gerekir.
 

cyber_fatal

Yeni Üye
Katılım
15 Haz 2020
Mesajlar
9
En iyi yanıt
0
Puanları
1
Yaş
32
Konum
Russia
Ad Soyad
fatih
Merhaba Murat Bey,
Nasıl yapabiliriz.
Örnek olarak hergün eğer P sutunu boş ise karşıdındaki yazılı mail adresine mail atsın.
zaman olarak 14:00
yardımcı olabilirmisiniz.
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,254
En iyi yanıt
9
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Modül içerisine bu kodları yapıştırın, dosyayı kaydedip kapatın, tekrar açın.
Artık saat 14:00:00 olduğunda kodların olduğu dosyada kontrolü yapıp mail gönderecektir.
C++:
Sub Auto_Open()
    Application.OnTime TimeValue("14:00:00"), "Gonder"
End Sub

Sub Gonder()
    Dim Outlook As Object, Posta As Object, i&
    Set Outlook = CreateObject("Outlook.Application")
    Set Posta = Outlook.CreateItem(0)
    Posta.BodyFormat = 2
    For i = 2 To Cells(Rows.Count, "P").End(3).Row
        If Cells(i, "P").Value = "" Then
            With Posta
                .To = Cells(i, "S").Value
                .CC = "buraya CC'ye eklemek istediğiniz adresi(ler) yazın."
                .Subject = "Buraya konuyu yazın"
                .Body = "Bilgi bekleniyor."
                .Send
            End With
        End If
    Next i
    Set Posta = Nothing: Set Outlook = Nothing: i = Empty
End Sub
 

cyber_fatal

Yeni Üye
Katılım
15 Haz 2020
Mesajlar
9
En iyi yanıt
0
Puanları
1
Yaş
32
Konum
Russia
Ad Soyad
fatih
Modül içerisine bu kodları yapıştırın, dosyayı kaydedip kapatın, tekrar açın.
Artık saat 14:00:00 olduğunda kodların olduğu dosyada kontrolü yapıp mail gönderecektir.
C++:
Sub Auto_Open()
    Application.OnTime TimeValue("14:00:00"), "Gonder"
End Sub

Sub Gonder()
    Dim Outlook As Object, Posta As Object, i&
    Set Outlook = CreateObject("Outlook.Application")
    Set Posta = Outlook.CreateItem(0)
    Posta.BodyFormat = 2
    For i = 2 To Cells(Rows.Count, "P").End(3).Row
        If Cells(i, "P").Value = "" Then
            With Posta
                .To = Cells(i, "S").Value
                .CC = "buraya CC'ye eklemek istediğiniz adresi(ler) yazın."
                .Subject = "Buraya konuyu yazın"
                .Body = "Bilgi bekleniyor."
                .Send
            End With
        End If
    Next i
    Set Posta = Nothing: Set Outlook = Nothing: i = Empty
End Sub
Selamlar,

Kodları aynı şekilde VB ekranına ekledim.
fakat saati test için değiştiridiğimde hiç tepki vermedi.

Dosyada makrolar açık durumda.
Outlookta açık
fakat hiç bir işlem yapmadan bekliyor.
Nerede eksik bir işlem yapıyorum.
 
Üst Alt