Saat koşullu otomatik mail göndermek

cakarem' Alıntı:

Bu tür işlemin yapılabilmesi için farklı yöntemler vardır.
- Excel dosyası devamlı açık olacak ve açılır açılmaz sistemi devamlı kontrol edip saati geldiğinde maili gönderecek (Hiç tavsiye etmem. Zira aynı anda farklı excel dosyaları açıksa sorun yaratabilir son kullanıcı için)
- Üçüncü parti yazılımlar kullanmak
- Görev zamanlayıcı ile dosyanın her gün otomatik açılmasını sağlama ve dosya açılır açılmaz mail gönderme kodunu çalıştırma. ( Bu daha mantıklı geliyor bana)

Genişletmek için tıklayın ...

erdalyeter' Alıntı:

sayfa logodan veri çekiyor o yüzden yenilemeden mail atmış oluyor

Genişletmek için tıklayın ...

erdalyeter' Alıntı:

Merhaba, aşağıdaki kodu butona basarak değilse saat 09:15 de gönderilsin şeklinde nasıl değiştirebilirim, yardımcı olabilirseniz çok sevinirim,iyi çalışmalar dilerim



Private Sub CommandButton1_Click()

Dim Sayfa As Worksheet

Dim Alan As Range

Dim daralan As Range



If Cells(2, 2) = "" Then GoTo HATA



On Error GoTo HATA



With Application

.ScreenUpdating = False

.EnableEvents = False

End With



saydir = WorksheetFunction.CountIf(Range("D:D"), "<>") + 1

DinamikAlan = "D2:" & "G" & saydir

Set Alan = Worksheets("Sayfa1").Range(DinamikAlan)



Set Sayfa = ActiveSheet



With Alan



.Parent.Select

Set daralan = ActiveCell



.Select

ActiveWorkbook.EnvelopeVisible = True

With .Parent.MailEnvelope



.Introduction = "Otomatik Mail. BYMMB.COM tarafından tasarlanmıştır."



With .Item

.To = Cells(2, 2)

.CC = Cells(3, 2)

.Subject = Cells(1, 2)

.bcc = [email protected]

.Send

End With



End With



daralan.Select

End With



Sayfa.Select



HATA:

With Application

.ScreenUpdating = True

.EnableEvents = True

End With





End Sub

Genişletmek için tıklayın ...