ขออนุญาตสอบถามครับ ผมเขียนโปรแกรม แบบมีการส่งเมล์
เครื่องที่เปิดด้วย Access Runtime2007 จะมี Error MSOUTL.OLB รุ่น 9.5. แต่เครื่องผมเองไม่มี Error ใช้ Microsoft Office Access 2007
ผมแก้ไขอย่างไรดีครับ ขอคำแนะนำด้วยครับ
Private Sub Command511_Click()
'Save -------------------------------
Dim FileName As String
Dim FilePath As String
FileName = "เอกสารเข้าออกพื้นที่"
FilePath = "C:\CJ\" & FileName & ".pdf"
DoCmd.OutputTo acOutputReport, "rN_app_re_admin1", acFormatPDF, FilePath
'End If
'Mail -------------------------------
Dim oApp As New Outlook.Application
Dim oEmail As Outlook.MailItem
Set oEmail = oApp.CreateItem(olMailItem)
Set oEmail = oApp.CreateItem(olMailItem)
oEmail.To = Me.mail
oEmail.SUBJECT = "เอกสารเข้าออกพื้นที่"
oEmail.Attachments.Add "C:\CJ\" & FileName & ".pdf"
With oEmail
If Not IsNull(.To) And Not IsNull(.SUBJECT) And Not IsNull(.Body) Then
.Send
Else
End If
End With
MsgBox ("บันทึกเรียบร้อยแล้ว"), vbInformation
End Sub
ขอบคุณครับ
