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

[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

[sjs]

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

[arampong]

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

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