Hattushil
Altın Üye
- Katılım
- 20 Şubat 2011
- Mesajlar
- 98
- Excel Vers. ve Dili
- Office 365 Türkçe
- Altın Üyelik Bitiş Tarihi
- 23-03-2028
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?
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?
Kod:
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