AccessTr.neT

Merhaba değerli hocalarım. Access raporuma Rapor Al ve Eposta Gönder işlevlerini aynı komut düğmesine yapmak istiyorum. Bu konuda da yardımcı olurmusunuz?


Merhaba öncelikle düzeltme ve bilgilendirmeniz için teşekkür. Ekteki Örneğimde rapor bölümünde yapmak istediğim mevcut raporu özetlemek ve e posta göndermek. Özet raporda kastım Kaç tane kargocu, kaçtane misafir, kaçtane sipariş gelmiş bunları alabileceğim bir rapor oluşturmak.

Merhaba, sorularınızı Site Kurallarımızı uygun olarak açınız. Örnek uygulamanızı ekleyiniz.

(06/07/2009, 23:57)AccessTr.neT yazdı: [ -> ]3-a) Sorulara örnek uygulama eklemek zorunludur.  
b) Ekleyeceğiniz dosyaların içinde resim vb. yer kaplayacak şeyleri siliniz. Gereksiz tüm verileri silip sadece sorunu anlatacak örnek veri giriniz ve asla gerçek şahıs/kurumlara ait veri bırakmayınız.
c) Uygulamanız ile birlikte resim klasörü, yedek klasörü vs. örnek uygulama harici gereksiz döküman eklemeyiniz.
ç) Ekleyeceğiniz örnek uygulamaya sadece sorunuz ile ilgili olan formu, raporu ve bunların kayıt kaynağı olan tabloları ve sorguları ekleyiniz. Diğer tüm nesneleri veritabanından siliniz.
d) Dosyanızda önce Access ile Veritabanı Sıkıştır ve Onar işlemini uygulayınız. Daha sonra herhangi bir sıkıştırma programı ile (WinRar/WinZip/7Zip vb.) Sıkıştırma Yöntemi En İyi (Best) olacak şekilde sıkıştırınız.
Dosya Düzenle Onar ve WinRar ile Sıkıştırma İşlemi Resimli Anlatım  
e) Örnek uygulamanızın adını veya rar/zip adını “örnek”, “deneme”, “yeni microsoft Access veritabanı”,“database”,“yeni klasör”, “soru” vs. isimlerle göndermeyiniz, kullanıcı adınızı ve/veya kısa başlık giriniz.

sayın ozan bey'in yazdıklarına ilave olarak,

KONU BAŞLIĞI;
(hem içeriği itibarı ile hem de site arama işlemlerinde benzer sorunlarda alternatif kolaylık sağlaması adına)

"Komut Düğmesi hk" ifadesi yerine,
"Ayrı butonlardaki farklı işlevleri tek buton ile gerçekleştirmek" olarak değiştirilmiştir.

bilginize.

Umarım anlatabilmişimdir.

(11/11/2016, 03:22)murat dikme yazdı: [ -> ]Özet raporda kastım Kaç tane kargocu, kaçtane misafir, kaçtane sipariş gelmiş bunları alabileceğim bir rapor oluşturmak.

Bu bahsettiğiniz mevzunun konu başlığı ile ilgisi yok.

Raporu excele aktarmak için

DoCmd.OutputTo acReport, "GELEN", acFormatXLS, CurrentProject.Path & "\Raporum.XLS"

Kodunu kullanabilirsin

Excele aktarılan raporu mail olarak göndermek için

Dim iMsg, iConf, Flds, schema, strRecip

Dim i As Integer

Dim strChar, GRapor As String





DoCmd.OutputTo acReport, "GELEN", acFormatXLS, CurrentProject.Path & "\Raporum.XLS"



GRapor = CurrentProject.Path & "\Raporum.XLS"





Set iMsg = CreateObject("CDO.Message")

Set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

schema = "http://schemas.microsoft.com/cdo/configuration/"

Flds.Item(schema & "sendusing") = 2

Flds.Item(schema & "smtpserver") = "smtp.gmail.com"

Flds.Item(schema & "smtpserverport") = 465

Flds.Item(schema & "smtpauthenticate") = 1

Flds.Item(schema & "sendusername") = "gondericiemail@gmail.com"

Flds.Item(schema & "sendpassword") = "gmail şifreniz"

Flds.Item(schema & "smtpusessl") = 1

Flds.Update



With iMsg

.To = "[email protected]"

.From = "gondericiemail@gmail.com"

.Subject = "Mail Başlığı"

.HTMLBody = "mail İçeriği"

.Sender = "gondericiemail@gmail.com"

.Organization = "gondericiemail@gmail.com"

.ReplyTo = "gondericiemail@gmail.com"

If Not IsMissing(GRapor) Then

If Nz(Len(GRapor), 0) > 0 Then

    strRecip = ""

For i = 1 To Len(GRapor)

strChar = Mid(GRapor, i, 1)

If strChar = ";" Then

.AddAttachment (strRecip)

strRecip = ""

Else

strRecip = strRecip & strChar

End If

Next i

If Nz(Len(strRecip), 0) > 0 Then

.AddAttachment strRecip

End If

End If

End If



Set .Configuration = iConf

 .Send



End With



Set iMsg = Nothing

Set iConf = Nothing

Set Flds = Nothing

kodunu kullanabilirsiniz.

Koddaki [email protected] alıcının mail adresi, gondericiemail@gmail.com göndericinin gmail adresi, "gmail şifreniz" ise göndericinin gmail şifresidir.

Hocam öncelikle ilginize teşekkür ederim. Konu başlığı için doğru cümleyi kuramadık galiba. Aslında yapmak istediğim işleri tek başlıkta toplamaktan olsa gerek bunun için kusura bakmayın. kodları deneyip size hemen döneceğim. İlginize tekrar teşekkür ederim.