Seçilen Sayfayı Mail Olarak Gönderme ve Kaydetme

[Rizelli3]

Merhaba,

Excel'de seçtiğim sayfayı belirtilen kişilere .xlsx formatında göndererek göndermesini istiyorum. Ayrıca aşağıdaki kod ile farklı kaydet butonu ekledim. ancak aynı gün içerisinde dosyada revize edersem revize edilen dosyanın sonuna _v2 eklemesini istiyorum bu mümkün müdür. Forumda buna benzer paylaşımlar vardı ancak tam olarak istediğimi yapamadım bu isteğim varsa bulamadıysam şimdiden özür diliyorum.

Sub saveasdosya()
Dim dosyam As String
With Sheets("GÜNLÜK PLAN")
dosyam = "D:\GünlükRapor\2017\" & .Range("AC1").Value & ".xls"
ActiveWorkbook.SaveAs Filename:=dosyam
End With
MsgBox "Farklı kayıt işlemi bitmiştir", vbInformation, "Farklı Kaydet"
dosyam = vbNullString
End Sub

Yardımlarınız için çok teşekkür ederim.