ทำตามบทเรียน ที่อาจารย์ แสดงไว้ใน Youtube 
แต่ผมทำไม่ผ่าน  ขอความช่วยเหลือครับ

ไปได้โค๊ดที่อาจารย์ลงไว้ใน Youtube
ผมเก็บเมลล์เพื่อนๆ ไว้ถ้าต้องการ Loop ชื่อเมลล์ลงในบรรทัด  .To = Nz(ฟิลด์เก็บเมลล์)
ต้องทำโค๊ดยังไงครับ  หรือมีโค๊ดอื่นมั๊ยครับ สำหรับการส่งเมลล์เป็นกลุ่มๆ

On Error GoTo Err:
    Dim NewMail As Object
    Dim mailConfig As Object
    Dim fields As Variant
    Dim msConfigurl As String

    'late binding
    Set NewMail = CreateObject("CDO.Message")
    Set mailConfig = CreateObject("CDO.Configuration")

    ' load all default configurations
    mailConfig.Load -1

    Set fields = mailConfig.fields

    'Set All Email Properties
    With NewMail
        .Sender = Forms!mainmail!mygmail
        .From = Nz(Forms!mainmail!mydetail)
        .To = Nz(Me.fmail)  '<<<<<<<<< ต้องการ Loop  ลงตรงนี้  <<<<<<<<<<<<<<<<<<<<
        .CC = Nz(Forms!mainmail!sumnao1)
        .BCC = Nz(Forms!mainmail!sumnao2)
        .Subject = Nz(Forms!mainmail!ruang1)
        .BodyPart.Charset = "utf-8"
        .HTMLbody = "<Font Face=AngsanaUPC Size=" & Forms!mainmail!fontSiz & " Color=" & Forms!mainmail!seefon & ">" & Forms!mainmail!bui1 & Nz(Forms!mainmail!detail2) & Forms!mainmail!bui2 & "</Font>"
       
        If Not IsNull(Forms!mainmail!fi1) Then
            If Dir(Forms!mainmail!fi1) <> "" Then
                .Addattachment Nz(Forms!mainmail!fi1)
            End If
        End If
       
        If Not IsNull(Forms!mainmail!fi2) Then
            If Dir(Forms!mainmail!fi2) <> "" Then
                .Addattachment Nz(Forms!mainmail!fi2)
            End If
        End If
       
        If Not IsNull(Forms!mainmail!fi3) Then
            If Dir(Forms!mainmail!fi3) <> "" Then
                .Addattachment Nz(Forms!mainmail!fi3)
            End If
        End If
       
    End With

    msConfigurl = "http://schemas.microsoft.com/cdo/configuration "

    With fields
        .Item(msConfigurl & "/smtpusessl") = True
        .Item(msConfigurl & "/smtpauthenticate") = 1
        .Item(msConfigurl & "/smtpserver") = "smtp.gmail.com"
        .Item(msConfigurl & "/smtpserverport") = 465
        .Item(msConfigurl & "/sendusing") = 2
        .Item(msConfigurl & "/sendusername") = Forms!mainmail!mygmail
        .Item(msConfigurl & "/sendpassword") = DLookup("mypass", "mypass")
        .Update
    End With
    NewMail.Configuration = mailConfig
    NewMail.Send

Exit_Err:
    'Release object memory
    Set NewMail = Nothing
    Set mailConfig = Nothing
    End

Err:
    Select Case Err.Number
    Case -2147220973  'Could be because of Internet Connection
        MsgBox "Check your internet connection." & vbNewLine & Err.Number & ": " & Err.Description
    Case -2147220975  'Incorrect credentials User ID or password
        MsgBox "Check your login credentials and try again." & vbNewLine & Err.Number & ": " & Err.Description
    Case Else   'Report other errors
        MsgBox "Error encountered while sending email." & vbNewLine & Err.Number & ": " & Err.Description
    End Select

    Resume Exit_Err

ผมมีโปรเจ็ค Access2003  32บิต  ผมสร้างไฟล์ MDE ด้วย Access2003 32บิต ได้สำเร็จ แต่...
1.เงื่อนไขของ MDE นี้เปิดใน Access 64บิตไม่ได้  แต่ผมต้องการเปิดใน Access 64บิต จึงทำ...
2.แปลงไฟล์ จาก .mdb เป็น .accdb 64บิต  ด้วย Access2013 64บิต  ไฟล์ใหม่นี้เปิดได้ปกติ
3.แปลงจาก .accdb  เป็น  .accde  ด้วย Access2013 64บิต ขั้นตอนนี้ ไม่สามารถสร้างได้ 
  Access บอกเหตุผลนั่นโน่นนี่ ว่าไม่สามารถแปลงเป็น .accde ได้
  แต่ Access2003  32บิต กลับทำเป็น .MDE ได้ 

....ท่านใดมีประสบการณ์วิธีการช่วยแนะนำด้วยครับ ต้องการมาก เลย 64บิต

แต่ก่อนไม่ได้คิดจะสร้างเป็น MDE/accde  ป้องกันด้วยการเข้ารหัส

....แต่จุดอ่อนของการเข้ารหัส  มัน "แฮ็ก" ได้  เลยจะทำเป็น MDE/accde แทน ในการแจกจ่ายโปรเจ็ค
หรือใครมีวิธีอื่นๆ ในการป้องกันโค๊ดของโปรเจ็ค ช่วยแนะนำด้วยนะครับ

ขอขอบคุณล่วงหน้าครับ

ก่อนอื่นต้องขอขอบคุณอาจารณ์ทุกท่านนะครับ ที่ได้แก้ไขปัญหาต่างๆ ในการทำ Code  ....
สำหรับโพสนี้ ก็หวังว่าท่านที่ต้องการทำแบบผม กำลังมองหาวิธีการต่างๆนานา (เหมือนผม)
จะได้รับประโยชน์ครับ

เชื่อมต่อ Mysql ด้วย ODBC ฟิลด์ Username ที่เป็นตัวอักษรภาษาไทย แสดงผล #Deleted เป็นเฉพาะตารางเดียว ตารางอื่นไม่เป็นไร
มีวิธีแก้ไขยังไงครับ  ตารางเป็น InnoDB

ต้องการค้นหาไฟล์ที่ระบุแบบเจาะจง เช่นต้องการค้นไฟล์ abc.doc ในทุกโฟลเดอร์/สับโฟลเดอร์ หาในgoogleแต่ใช้ไม่เป็น รันไม่ผ่าน
มี code นึงเหมือนจะได้ รันผ่าน แต่เป็นการอ่านชื่อโฟลเดอร์ ส่วนการค้นหาไฟล์ผมไปต่อไม่เป็น

Private Sub Command3_Click()
Dim MyPath, MyName As String
MyPath = "C:\Program Files (x86)\"
MyName = Dir(MyPath, vbDirectory)   ' Retrieve the first entry.
Do While MyName <> ""   ' Start the loop.
      ' Use bitwise comparison to make sure MyName is a directory.
      If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
         ' Display entry only if it's a directory.
         MsgBox MyName
      End If
        MyName = Dir()   ' Get next entry.
Loop
End Sub

ใครมี Code มีลิงค์ รบกวนขอด้วยครับ