otomatik mail gönderme hk;

[orange4609]

Merhabalar,
Aşağıdaki süzülü sayfayı aktar yerine gönder yaparak belitilen kişilere kitap1 olarak gönderilmesini sağlayabileceğimiz kod yapılabilir mi(mozilla thunderbird kullanıyorum)

Her sabah saat 09:30'dan sonra bu aktarılan sayfayı belirli kişilere mail gönderiyorum.aktar demeden seçili hücreleri otomatik istenilen kişilere gönderme şansım var mı
Tşkler.


Sub deneme()
Set s1 = Sheets("SEÇ")
Set s2 = Sheets("sayfa1")

For i = 2 To s1.Range("A65536").End(3).Row
If s1.Cells(i, 1).EntireRow.Hidden = False Then
SONSTR = s2.Range("c65536").End(3).Row + 1
s2.Cells(SONSTR, 1).Value = s1.Cells(i, 1).Value
s2.Cells(SONSTR, 2).Value = s1.Cells(i, 2).Value
s2.Cells(SONSTR, 3).Value = s1.Cells(i, 3).Value
s2.Cells(SONSTR, 4).Value = s1.Cells(i, 4).Value
s2.Cells(SONSTR, 5).Value = s1.Cells(i, 5).Value
s2.Cells(SONSTR, 6).Value = s1.Cells(i, 6).Value
s2.Cells(SONSTR, 7).Value = s1.Cells(i, 7).Value
s2.Cells(SONSTR, 8).Value = s1.Cells(i, 8).Value
s2.Cells(SONSTR, 9).Value = s1.Cells(i, 9).Value
End If
Next

MsgBox "Kayıt işlemi tamamlanmıştır.", , "orange4609"
Sheets("sayfa1").Select
End Sub

 

[orange4609]

Sanırım olmayacak bi şey istedim.Herhangi bir excel kitabını günlük saat:10:00 gibi otomatik mail atılmasını sağlayacağımız macro vs. var mı.

tşkler.