makro ile e-mail konusu dosya adı olsun

[clockwork]

Selam,

Makro ile otomatik e-mail gönderiyorum. Mail'in konusunun "dosya adı" olmasını istiyorum.

Yardımlarınızı rica ederim

Şimdiden teşekkürler

 

[erkankamilonas]

Sub MailGönder()
Dim Outlook As Object, YeniMail As Object, KitapAdi As String
If MsgBox("Mail Gönderilecek mi?", vbYesNo) = vbNo Then Exit Sub
Set Outlook = CreateObject("Outlook.Application")
Set YeniMail = Outlook.CreateItem(0)
KitapAdi = "Planlama Mesajı " & Format(Now, "dd-mm-yyyy-hh-mm-ss") & ".xls"

Rapor.Copy
ActiveWorkbook.SaveAs KitapAdi
With YeniMail
strbody = "" & Now & " Tarihli &#304;malat &#304;zleme Raporudur<br><br>&#304;yi &#231;al&#305;&#351;malar."
.Bcc = deneme@dene.com"
.Subject = ThisWorkbook.Name
.HTMLBody = strbody & "<br><br>" & Signature
.Attachments.Add ActiveWorkbook.FullName
' Kill ActiveWorkbookFull.Name
ActiveWorkbook.Close False
.Display
End With

Set OutMail = Nothing
Set Outlook = Nothing
End Sub

 

[clockwork]

ilginiz i&#231;in &#231;ok te&#351;ekk&#252;r ederim...