DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Application_Startup()
On Error Resume Next
Dim objOutlook As Object
Dim objMail As Object
If Format(Date, "dddd") Like "Pazartesi" Then
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "mail@gmail.com" ' mailin gideceği adres
[COLOR="Green"]' .CC = ""
' .BCC = ""[/COLOR]
.Subject = "Konu"
.Body = "Metin Gövdesi"
.Save
[COLOR="Green"]' .Display[/COLOR]
.Send
End With
End If
Set objMail = Nothing
Set objOutlook = Nothing
End Sub