AccessTr.neT

Tam Versiyon: Saatlik Mail Gönder
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
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.
Sayfalar: 1 2 3