Çözüldü Makro ile Seçili Alanları Mail Gönderme

[Hattushil]

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 = "Değerlendirilen 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

 

[Korhan Ayhan]

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?

Bu alanlar hangi sütuna denk geliyorsa mail göndermeden önce tarih olarak biçimlendirebilirsiniz. Bu işlemin kodlarını da makro kaydet yöntemiyle elde edebilirsiniz.