• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

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

cyber_fatal

Yeni Üye
Katılım
15 Haz 2020
Mesajlar
12
En iyi yanıt
0
Puanları
3
Yaş
36
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: 9

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,506
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
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
12
En iyi yanıt
0
Puanları
3
Yaş
36
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,506
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
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
12
En iyi yanıt
0
Puanları
3
Yaş
36
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.
 

wexplorerx

Yeni Üye
Katılım
9 Tem 2019
Mesajlar
131
En iyi yanıt
5
Puanları
28
Konum
İstanbul
Ad Soyad
Murat Uzun
Office Vers.
Office 2016
Merhaba
Zaman aralığını 20 sn ayarladım aşağıdaki gibi deneyebilirsin.
Olursa tekrar saat 14'de ayarlarsınız.
'---------------------------------------------
C++:
Sub Auto_Open()
    Application.OnTime TimeValue("00:00:20"), "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
Call Auto_Open 'Eklenen kod bu satır
End Sub
 
Moderatör tarafında düzenlendi:
Üst Alt