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.....
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.....