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 Functionyukarıdaki kodlar ile değiştirerek kullanmayı deneyiniz.
bilginize...iyi çalışmalar,saygılar.
