Çözüldü Haftalık ve Aylık Otomaik Mail Gönderimi

[Turkbey41]

Merhaba, Sitede @turist hocamın eklemiş olduğu kodlar ile günlük otomatik mail gönderimi yapabiliyorum. Fakat istediğim başka bir şey de aylık ( ayın birinci günü) ve haftalık olarak (pazartesi günü) otomatik olarak bana mail gönderilmesini istiyorum.

Günlük olarak kullandığım kodlar:

Sub Auto_Open()
Application.OnTime TimeValue("12:18:00"), "MailGonder"
End Sub

Sub MailGonder()
Dim OutApp As Object, Outmail As Object
Set OutApp = CreateObject("Outlook.Application")
Set Outmail = OutApp.CreateItem(0)
Outmail.BodyFormat = 2
With Outmail
.To = "ABC@SDFSDF.COM"
.CC = ""
.Subject = "DENEME"
.Attachments.Add "C:\Users\Satış Destek\Desktop\deneme.xlsm"
'Not: Dosya yolunu yazdıktan sonra tırnak işaretlerini kaldırın
.Display
.Send 'Göndermek için .send den önceki ' tek tırnak işaretini kaldırın
End With
Set Outmail = Nothing: Set OutApp = Nothing
End Sub

 

[turist]

Sub Auto_Open()
If Day(Date) = 1 Or Weekday(Date, vbMonday) = 1 Then
Application.OnTime TimeValue("12:18:00"), "MailGonder"
End If
End Sub

şeklinde deneyin.

 

[Turkbey41]

Çok teşekkür ederim @turist hocam. Sorun çözüldü.

 

[turist]

Sağ olun, iyi çalışmalar.