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.

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.

Sayın Atoz112,

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

Saygılarımla.

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.

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.

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.