Excel Otomatik Mailin Konusuna Günün Tarihini Ekleme

[hasansengun]

Arkadaşlar MErhaba ,

Şimdi elimde otomatik mail göndermemi sağlayan bir kod muvcut. Fakat ben konu kısmınıa tarih eklemek istiyorum. Kod aşağıdaki nasıl bir değişiklik yapmalıyım sizce.

Sub OutlookMailGönder()Dim OutApp As Object
Dim OutMail As Object
Dim MsgBody As String
On Error Resume Next
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
OutApp.Visible = True
Set OutMail = OutApp.CreateItem(0)
'************************************************* ***
MsgBody = "Merhaba,<br><br><br>" & _
"Günlük Raporlar Ektedir"
'************************************************* ***
With OutMail
.To = "themyth87@gmail.com;hasansengun@3ndizayn.net"
.CC = "hasengun@3ndizayn.net"
.Subject = "Günlük Raporlar Ektedir."
.HTMLBody = MsgBody
.Attachments.Add ("C:\YENİ RAPORLAR\deneme.xls")
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

 

[eSa]

.Subject = "Günlük Raporlar Ektedir."

kısmını

.Subject = "Günlük Raporlar Ektedir." & date()