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.
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 = "aliciemail@hotmail.com"
.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 aliciemail@hotmail.com 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.