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



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

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

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


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