Arkadaşlar merhaba.

Access’te hazırladığımız sorguyu, Excel formatında makro ile mail yollarken şunu yapabilir miyiz?
1-Excel dosyasının formatını bir defa ayarlayalım, raporu her seferinde Excel olarak açtığımızda her seferinde aynı formatta olsun.
2-Gönderilen maildeki dosyanın adına ve mailin konusuna günün tarihi otomatik eklensin. Mesela, sorgu adının “GÜNLÜK RAPOR” olduğunu varsayalım, bu sorguyu bu gün gönderdiğimizde Excel dosyasının adında ve mailin konu kısmında “GÜNLÜK RAPOR – 17.04.2010” yazsın.

Arkadaşlar, yardımlarınızı bekliyorum.
Not: İlk mesajıma herhangi bir dosya eklemedim. Mesaj ekindeki dosyayı dikkate almayın lütfen.

Sayın Merak ,
Dosyayı eklersen üzerinde çalışabiliriz...

iyi çalışmalar...

Dim qd As DAO.QueryDef
Dim vt As DAO.Database
Dim sorgu As String
'Sorgumuzu hazırlıyoruz

sorgu = "select tablo1, tablo2 from tabloismi"


' Vt'mizde geçici sorgumuzu isimlendirip oluşturuyoruz.

Const GeciciSorgu As String = "günlükrapor-" & now()

Set vt = CurrentDb
Set qd = vt.CreateQueryDef(GeciciSorgu, sorgu)

'Excele bu sorguyu gönderiyoruz..
DoCmd.OutputTo acOutputQuery, GeciciSorgu, "MicrosoftExcel(*.xls)", "", False, "", 0


'Geçici sorgumuzu siliyoruz..
DoCmd.DeleteObject acQuery, GeciciSorgu
End Sub


taruz'un katkılarıyla......

Arkadaşlar, benzer bir dosya ve istediğim Excel formatını örnek olarak ekledim. Excel'in aynen bu formatta, bu özelliklerde olması için ne yapabilirim?

Arkadaşlar, 5 nolu mesajımdaki örnek üzerinde uygulayabilirseniz sevinirim.