สอบถามอาจารย์ครับ ให้ Access เรียกเปิด Outlook2016 ขึ้น runtime error 429


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

10 พ.ค. 64 , 10:04:03
อ่าน 893 ครั้ง

arampong




เป็นที่ Windows 10 ครับ  ส่วน Windows7 หรือต่ำลงมาใช้งานได้ปกติครับ(พอดีเปลี่ยนเครื่องเป็นWindows10 ครับจึงพบปัญหาตามภาพครับ ก่อนหน้าใช้ได้ปกติครับ)

Private Sub Command23_Click()
Dim Rec As String
Dim ol As Object
Dim olMail As Object
Dim strCC As String
If Text12 = " " Or IsNull(Text12) Then
MsgBox "¡ÃسÒãÊè¢éͤÇÒÁ"
Else
Rec = Text12.Value
Set ol = CreateObject("Outlook.Application")
Set olMail = ol.CreateItem(0)
With olMail
.To = "AAA@hotmail.com"
.Subject = "àÍ¡ÊÒèҡ IT"
.Body = Rec
.Display
'.Send
End With
Set olMail = Nothing
Set ol = Nothing
NetSend "192.168.1.1", Rec
End If
End Sub

 

14 พ.ค. 64 , 14:49:09
ตอบกลับ #1

sjs

ผมลองเอา code ไปลองดูใช้เปิดได้ปกตินะครับ
win10+office 2016 pro 32bit

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

16 ก.พ. 65 , 11:32:43
ตอบกลับ #2

arampong

จากกระทู้นี้ ขอสอบถามต่อ เพราะ ตั่งแต่ถามมา คือก๋ใช้เครื่องเดิมมาตลอดครับ
คือ Windows 7 32bit  Office 2007
โปรแกรมทำงานได้ดีปกติครับ

แต่พอใช้ Windows 10 64 bit + Office 2016
มันก็แจ้ง
runtime error 429 activex component can t create object
พอมีใครเคยเจอแบบนี้ไหมครับ รบกวนชี้แนะด้วยครับ


 

17 มี.ค. 65 , 16:39:39
ตอบกลับ #3

arampong

เจอแล้วครับ
มัันขาด

microsoft outlook 16.0 object library

ครับผม

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


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