Error MSOUTL.OLB รุ่น 9.5. เปิดด้วย Access Runtime2007


0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

30 พ.ย. 63 , 14:15:50
อ่าน 855 ครั้ง

paitoon



ขออนุญาตสอบถามครับ ผมเขียนโปรแกรม แบบมีการส่งเมล์
เครื่องที่เปิดด้วย 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

ขอบคุณครับ

 

30 พ.ย. 63 , 16:07:14
ตอบกลับ #1

PNR

: Error MSOUTL.OLB รุ่น 9.5. เปิดด้วย Access Runtime2007
« ตอบกลับ #1 เมื่อ: 30 พ.ย. 63 , 16:07:14 »
  ขั้นแรก ลองลบ office แล้วลงใหม่ดูก่อน
  ถ้าไม่หายลองปรับโค้ดเป็นแบบนี้ Backup ก่อนนะครับ
  วิธีใช้การเปลี่ยนตัวแปร
 เปลี่ยนจาก  Dim olApp As Outlook.Application
 เป็น  Dim olApp As Object

โค๊ด: [Select]
Dim olApp As Object
  Dim olMail As Object
  Const olMailItem As Long = 0

  Set olApp = CreateObject("Outlook.Application")
  Set olMail = olApp.CreateItem(olMailItem)

  olMail.To = Me.mail
  olMail.Subject = "เอกสารเข้าออกพื้นที่"
  olEmail.Attachments.Add "C:\CJ\" & FileName & ".pdf"
  olMail.Body = "Body ของ Email"   

    If Not IsNull(olEmail.To) And Not IsNull(olEmail.SUBJECT) And Not IsNull(olEmail.Body) Then
    olEmail.Send
     Else
     End If

MsgBox ("บันทึกเรียบร้อยแล้ว"), vbInformation

Set oEmail = oApp.CreateItem(olMailItem)
Set oEmail = oApp.CreateItem(olMailItem)

ทำไมมันซ้ำ
« แก้ไขครั้งสุดท้าย: 30 พ.ย. 63 , 16:18:14 โดย PNR »
Time to stop for me  :dizzy:
 
โพสต์นี้ได้รับคำขอบคุณจาก: paitoon

01 ธ.ค. 63 , 08:54:30
ตอบกลับ #2

paitoon

: Error MSOUTL.OLB รุ่น 9.5. เปิดด้วย Access Runtime2007
« ตอบกลับ #2 เมื่อ: 01 ธ.ค. 63 , 08:54:30 »
ขอบคุณครับผม เดียวผมลองปรับแก้ตามคำแนะนำครับ เดียวแจ้งให้ทราบว่าผลออกมาอย่างไรครับ  ขอบคุณมากเลยครับ

 

01 ธ.ค. 63 , 10:06:14
ตอบกลับ #3

paitoon

: Error MSOUTL.OLB รุ่น 9.5. เปิดด้วย Access Runtime2007
« ตอบกลับ #3 เมื่อ: 01 ธ.ค. 63 , 10:06:14 »


ผมเอาโค๊ด ลองปรับมาทำดู มี error ตามภาพด้านบน ต้องปรับแก้ไขอย่างไรดีครับ   ขอบคุณครับ


 

01 ธ.ค. 63 , 13:41:18
ตอบกลับ #4

PNR

: Error MSOUTL.OLB รุ่น 9.5. เปิดด้วย Access Runtime2007
« ตอบกลับ #4 เมื่อ: 01 ธ.ค. 63 , 13:41:18 »
แปปนะครับ ผมลองทดสอบแปป
Time to stop for me  :dizzy:
 
โพสต์นี้ได้รับคำขอบคุณจาก: paitoon

04 ธ.ค. 63 , 10:28:45
ตอบกลับ #5

paitoon

: Error MSOUTL.OLB รุ่น 9.5. เปิดด้วย Access Runtime2007
« ตอบกลับ #5 เมื่อ: 04 ธ.ค. 63 , 10:28:45 »
ผมแก้ไขได้แล้วครับ โดยโหลดตัว MSOUTL.OLB ไปวาง Program Files (x86)Microsoft Office2007Office12

ขอบคุณครับ

 
โพสต์นี้ได้รับคำขอบคุณจาก: PNR


บอร์ดเรียนรู้ Access สำหรับคนไทย


 

Sitemap 1 2 3 4 5