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.