Skip to main content

AccessTr.neT


Saatlik Mail Gönder

Saatlik Mail Gönder

#7
Sayın Atoz112

Cevabınız için teşekkür ederim. 


Aslında amacım raporu açılmadan ek olarak ilgili kişilere mail göndermektir. Outlook kullanan kişi gönder komutunu kullanmadan saati gelince otomatik gitmesi gerekiyor. Çok örnek inceledim, fakat ya raporu maile ek olarak getiremiyorum, yada saati gelince maili gönderemiyorum. 

Bir adet örnek ekliyorum. Burada mail outlook açılmadan gitmektedir. Lakin Raporu mail'e ek olarak ekleyemiyorum. Sql komutu bilmediğim için sadece sorgunun içindeki alanlar gitmektedir. 

Ayrıca saat de önemli ama Timer alanındaki Call Eposta komutuna raporu maile ekle diyebilsem. saati verdiğiniz örneklere göre düzenleyebileceğimi düşünmekteyim.

Saygılarımla.
.rar sadik Mail Gönder.rar (Dosya Boyutu: 46,54 KB | İndirme Sayısı: 4)
sadikkavakli, 11-06-2010 tarihinden beri AccessTr.neT Üyesidir.
Cevapla
#8
sayın sadikkavakli,

Alıntı:Call Eposta komutuna raporu maile ekle diyebilsem. saati verdiğiniz örneklere göre düzenleyebileceğimi düşünmekteyim.

ifadenize yönelik olarak;

Eposta adlı fonksiyonun içeriğini

On Error GoTo Exit_Function:
Dim oOutlook As Outlook.Application
Dim oEmailItem As MailItem

'***************************************
'ATOZ112
'AŞAĞIDAKİ KODLAR DAHİL EDİLMİŞTİR.
Dim dosyaadi As String



'***************************************


'Dim MyEmpName As String


Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset(MySQL)


If rs.RecordCount > 0 Then


rs.MoveFirst


Do Until rs.EOF
'If IsNull(rs!Email) Then
'rs.MoveNext
'Else


If oOutlook Is Nothing Then
Set oOutlook = New Outlook.Application


End If


Set oEmailItem = oOutlook.CreateItem(olMailItem)
With oEmailItem


'MyEmpName = Dlookup ("empname", "tbl_employee", "[empid] = " & rs!empname)


'.To = "sadik@sadık.com.tre"
'.CC = "ali.@sadık.com.tree"


.To = "atoz.ozdemir@gmail.com"
.CC = "atoz.ozdemir@gmail.com"
.Subject = " TKontrol Formu   " & Now
.Body = " Mustafa Bey " & vbCr & _
        " TKontrol Formu ek'te sunulmuştur." & vbCr & _
        " Bilgilerinize arz ederim."


'***************************************
'ATOZ112
'AŞAĞIDAKİ KODLAR DAHİL EDİLMİŞTİR.


dosyaadi = Application.CurrentProject.Path & "\" & "Raporla" & ".pdf"
DoCmd.OutputTo acReport, "Raporla", acFormatPDF, dosyaadi, False


.Attachments.Add (dosyaadi)


'***************************************


'.display
.Send
'rs!dateemailSent= date
'rs.update
End With
Set oEmailItem = Nothing
Set oOutlook = Nothing
rs.MoveNext
'End If
Loop


Else
' do nothing
End If
rs.Close
Exit_Function:
Exit Function

yukarıdaki kodlar ile değiştirerek kullanmayı deneyiniz.

bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#9
Sayın Atoz112,

Emeğine sağlık tam istediğim gibi Hakkınızı helal ediniz.

Saygılarımla.
sadikkavakli, 11-06-2010 tarihinden beri AccessTr.neT Üyesidir.
Cevapla
#10
sayın sadikkavakli,

sadece bir bilgilendirme olması ve tercihinize göre istediğiniz takdirde kullanılması amacı ile naçizane tavsiye olması üzerine,bu kodlara bir de;

EK olarak gönderilmek istenen dosyanın mevcut olup olmadığının ve eğer yoksa oluşturulmasını sağlatmayı da dahil edebilirsiniz.

bunun için;

DoCmd.OutputTo acReport, "Raporla", acFormatPDF, dosyaadi, False

kod satırını etkisizleştirip (kullanmayıp) yerine,

If Len(Dir(Application.CurrentProject.Path & "\" & "Raporla" & ".pdf")) = 0 Then
   DoCmd.OutputTo acOutputReport, "Raporla", acFormatPDF, CurrentProject.Path & "\" & "Raporla" & ".pdf", False
Else
End If

kodlarını kullanmak sureti ile,eğer dosya varsa herhangi bir işlem yapmayacak,eğer dosya yoksa öncesinde oluşturacak sonra EK olarak kullanılacak halde olmasını sağlatabilirsiniz.

bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#11
Sayın ATOZ112,

Yardımlarınız için çok teşekkür ederim.

Saatleri uyarladım. Başka kullanıcıların faydalanması dileği ile ek'dir.

Saygılarımla.
.rar Mail Gönder Atoz.rar (Dosya Boyutu: 48,61 KB | İndirme Sayısı: 11)
sadikkavakli, 11-06-2010 tarihinden beri AccessTr.neT Üyesidir.
Cevapla
#12
sayın sadikkavakli,

Alıntı:Başka kullanıcıların faydalanması dileği ile ek'dir.

ifadenize yönelik olarak;
paylaşımda bulunma isteğiniz ve örnek uygulamanızı eklediğiniz için teşekkürler.

Konu;
Cevaplanmış Sorular Kategorisi'ne taşınmıştır.

bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da