dosya makro ile mail atıldıktan sonra kendini silsin

[kneehot]

Sub OutlookMsgGönder()
Dim app As Outlook.Application
Dim posta As Outlook.MailItem
Dim MyFile As String

ActiveWorkbook.Save
MyFile = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name

Set app = CreateObject("Outlook.Application")
Set posta = app.CreateItem(olMailItem)
With posta
.To = "abc@123.com"
'.BCC =
.Subject = Date & " " & "TARİHLİ" & " " & [b1] & " SİPARİŞ FORMU"
.Body = "MERHABA" & Chr(13) & Chr(13) & [b1] & " " & Date & " TARİHLİ SİPARİŞ EKTEDİR" & Chr(13) & Chr(13) & "İYİ ÇALIŞMALAR." & Chr(13) & Chr(13) & [F3]
.Attachments.Add MyFile
.Send
End With
Application.DisplayAlerts = True

Set app = Nothing
Set posta = Nothing

End Sub



yukarıdaki mail gonderen makroya bir ilave yapmak istiyorum.makro calısıp dosya mail atıldıktan sonra kendini tamamen silsin cöp kutusunda da olmasın.yardımlara tesekkurler.

 

[kneehot]

sanırım sacma bır ıstek oldu.yapmak ıstedıgım dosya bırdaha kullanılamasın.maıl atıldıktan sonra tum sayfalarını sılıp kaydedersede bırdaha kullanılamaz.sızınde cozumlerınız varsa bılgılendırırsenız sevınırım.