Saat koşullu otomatik mail göndermek

[erdalyeter]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

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

 

Makro ile veri çekerken veri birleştirme

Excel Kullanarak PDF Birleştirme Yapma

[cakarem]

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)

 

[erdalyeter]

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)

kodda nereyi mail gönderileceği belirtiliyor diye biliyorum, ayrıca acılır acılmaz mail gönderdiğinde sayfa logodan veri çekiyor o yüzden yenilemeden mail atmış oluyor

 

[erdalyeter]

Yardımcı olabilirseniz çok sevinirim

 

[erdalyeter]

Destek olabilecek biri varsa çok memnun olurum

 

[Ömer BARAN]

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

@erdalyeter

O halde, otomatik veri çekme işini iptal edip (elbette veri güncellemesi yapılacak);
bu veri çekme işiyle e-posta gönderme işi bir sıraya koyulabilir gibi geliyor bana.
Bu da Auto _ Open makrosuna önce veri çekme işleminin yapılması, sonra e-posta gönderme işinin yapılması kodlanabilir.

Veri çekme ve e-posta gönderme kodlarının çalışır durumda içerisinde olacağı,
gerçek belgenizin özel bilgi içermeyen kopyası şeklinde hazırlayacağınız bir örnek belge ekleyin derim.

.

 

[hasano41]

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

Merhaba sorununuzu çözebildiniz mi aynı şekil benimde ihtiyacım var yardımcı olur musunuz ?