Otomatik Mail Gönderme-Dosya Her Açıldığında Bir Kez Çalışması

[Tilkay]

Merhaba,

Excelde bir tablom var. Bu tablomdaki bazı bilgileri her gün mail olarak almak istiyorum.

Dosya ilk açıldığında kod çalışsın ve mail göndersin, sonraki dosya açılışlarında mail gelsin istemiyorum. Yani kod her gün excel dosyası ilk açıldığında çalışacak. Aynı gün bir daha çalışmayacak.

Baya uğraştım ama maalesef yapamadım. Forumda da bir örneğini göremedim. (dikkatimden kaçmış olabilir)

Koduda ekliyorum. (ıf döngüsü uzun olduğu için eklemedim)
Yardımcı olursanız çok sevinirim.

Sub auto_open()
Dim OutApp As Object, Outmail As Object
Dim SS As Worksheet: Set SS = Sheets("GM")

--KOD

Set OutApp = CreateObject("Outlook.Application")
Set Outmail = OutApp.CreateItem(0)
Outmail.BodyFormat = 2

With Outmail
.To = "-----.com.tr"
'CC = "-@.com.tr"
.Subject = "Bilgi:Yapılacak Yazılar"
.Display
.HTMLBody = "<font face=tahoma>" & " <font size=3>" & msg
.Send
End With
Set Outmail = Nothing: Set OutApp = Nothing
End Sub

 

[PLİNT]

Merhaba
Mail gönderen kodlarınız normal çalışıyorsa;
kodlarınızı aşağıdaki alana alarak olabilir.

Sub auto_open()
If Sayfa1.[A1] = Date Then GoTo çık

[COLOR="Red"]'.....
'.....kodlarınız
'.....[/COLOR]

Sayfa1.[A1] = Date
çık:
End Sub

sayfada kaydetmet istemezseniz "regedit" le

Sub auto_open()
Dim y As Object
On Error Resume Next
Set y = CreateObject("WScript.Shell")
Dim deger As String
deger = y.RegRead("HKEY_CURRENT_USER\Bugün")
If Err > 0 Or deger <> Date Then
Err = 0

[COLOR="Red"]
'.....
'.....kodlarınız
'.....
[/COLOR]
End If
If Err = 0 Then
y.RegWrite "HKEY_CURRENT_USER\Bugün", Date, "REG_SZ"
Else
MsgBox "SORUN OLUŞTU"
End If
End Sub

 

[Tilkay]

Desteğiniz için teşekkür ederim.