Birden Fazla Rapor'u Excel'e Aktarıp Aynı Mail'de Göndermek

1 2 3
25/12/2009, 13:34

qhuan

Arkadaşlar Merhaba,
Başlıktan da anlaşılabileceği gibi birden fazla raporu excel'e atıp bunları tek bir mailde göndermek istiyorum.
Tek rapor için aşağıdaki kodu kullanıyorum,

Private Sub cmdEmailGönder_Click()
On Error GoTo Err_cmdEmailGönder_Click
Dim stDocName As String
Dim stFormat As String
Dim stFrom As String
Dim stTo As String
Dim stCc As String
Dim stBcc As String
Dim stSubject As String
Dim stMesajText As String
Dim EditMesage As Variant

stDocName = "RPRK1"

stFormat = "MicrosoftExcel97-2003(*.xls)" 'Formun gönderileceği format zengin metin snapshot,excel vs
stTo = Me.Email 'Göndereceğiniz e-mail adresi"
stFrom = ""
stDocName = "RPRK1"
stCc = "XX"
stBcc = "QHUAN@Yahoo.COM"
stSubject = "" 'e-mail başlığı"
stMesajText = "*** İyi çalışmalar***" 'e-mailin mesaj kısmına yazacaklarınız"
EditMesage = -1



'Kriter verilen DenetimAdı otomatik sayı,ID gibi yinelenmeyen alanlardan seçilecek
DoCmd.OpenReport stDocName, acViewPreview, , "[BRM]=Forms![KUS12EMAILGONDER]![BRM1]"
DoCmd.SendObject acReport, "RPRK1", stFormat, stTo, stBcc, stSubject, stCc, stMesajText, EditMesage, """"

Exit_cmdEmailGönder_Click:
Exit Sub
Err_cmdEmailGönder_Click:
MsgBox Err.Description
Resume Exit_cmdEmailGönder_Click
End Sub

Ama bunu birden fazla rapor için nası kullanabilirim?

Yardımlarınız için teşekkürler.....
28/12/2009, 11:00

qhuan

Arkadaşlar tekrar merhaba, hafta sonu uğraşmama rağmen hala bi çözüm bulamadım sorunuma,

Yardımlarınızı bekliyoum
28/12/2009, 14:10

benremix

Sn qhuan örnek eklerseniz yardımcı olan olabilir. Saygılar...
28/12/2009, 15:13

qhuan

sn benremix,
örneği ilk dosyanın altına ekledim..

şu haliyle yazdığım kod, tek raporu excele atarak tek bir mailde gönderiyor.
benim yapmak istediği şey birden fazla raporu farklı Excel dosyalarına atarak aynı mailde göndermek..

Şimdiden yardımlarınız için teşekkür ederim
29/12/2009, 12:23

qhuan

Arkadaşlar sıkıntıyı hala gideremedim..

Böyle bir örnekle karşılaşan varsa, yani yapılabilirliğine dair, bildirirseniz sevinirim.
Eğer yoksa başka bir yoldan deneyeceğim artık..

Saygılarımla,
31/12/2009, 12:17

qhuan

Sanırım bu sorunun bi cavabı yok,
sitede aynı tablodan çapraz sorguyla yapılan rapor örnekleri buldum ama farklı tablodan yok galiba...neyse sağlık olsun
1 2 3