Başlıkta da belirtiğim gibi excel projemde e-posta ekinde göndermem gereken bazı alanlar olduğu için aşağıdaki makroyu hazırladım.
Elle göndermem gereken Sütunları seçip makroyu çalıştırıp gönderiyorum.

Gönderdiği e-postanın ekini kontrol ettiğimde "tarih alanlarının biçiminin bozulduğunu" fark ettim.
Bu sorunu nasıl düzeltebilirim?

Sub MailGonderXLS()

    Dim wPath As String, wFile As String
    Dim x As Date
    Set WshShell = CreateObject("WScript.Shell")
    strDesktop = WshShell.SpecialFolders("Desktop")

      Selection.Copy
     Set yeni = Workbooks.Add
     yeni.Worksheets(1).Range("A1").PasteSpecial xlPasteValues
     yeni.SaveAs strDesktop & "\Seçilen.xls"

    Set dam = CreateObject("Outlook.Application").CreateItem(0)
    '
    dam.To = "onurturan@hotmail.com"
    dam.Subject = "D.Talepler"
    dam.Body = "Bu bir test e-postasıdır."
    dam.Attachments.Add strDesktop & "\Seçilen.xls"
    dam.Send
    MsgBox "Mail gönderildi."

End Sub