สมัครสมาชิก
 

รบกวนการสร้างระบบ Approve เอกสารผ่าน email คนที่เกี่ยวข้องในบริษัทครับ



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

26 ก.ย. 61 , 15:17:31
อ่าน 961 ครั้ง

chacharn

  • สมาชิกไท.Access
  • กระทู้: 1

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

ผมเป็นมือใหม่ครับ อยากทำระบบการสร้าง แก้ไข ยกเลิก เอกสารต่างๆ
โดยให้มีการ Approve/Reject โดยผู้บังคับบัญชาเป็นลำดับขั้นอาจหลายลำดับชั้น
และให้ระบบแจ้งเมล์ให้ผู้ที่เกี่ยวข้อง รับทราบและได้คลิกเข้าไปตามลิงก์ได้ด้วย
... เห็นในโปรแกรมสำเร็จรูป แต่อยากทำเองด้วย Access

ขอบคุณครับ

 

27 ก.ย. 61 , 12:51:47
ตอบกลับ #1

สันติสุข

  • แฟนพันธุ์แท้ไท.Access
  • *
  • กระทู้: 355
  • พลังขอบคุณ: 312

  • แยกทิ้งขยะถูกประเภท เทศบาลนำไปกำจัดได้ง่าย

    • ดูรายละเอียด

คำถามคืออะไรครับ
ช่วยพกถุงผ้า/ถุงพลาสติกไปซื้อของเพื่อลดการใช้พลาสติก ขยะ รักษาสิ่งแวดล้อม และไม่ให้ภาวะโลกร้อนวิกฤติเร็วขึ้นกว่านี้
ช่วยคลิกโฆษณาข้างล่างนี้ เพื่อสนับสนุนเวปบอร์ดด้วยครับ
:nice day:
 

07 ก.พ. 62 , 19:05:13
ตอบกลับ #2

ศรี-นคร

จริงๆ บน Access สามารถทำได้ครับ
โดยมีขั้นตอนคร่าวๆ ดังนี้
- การยืนยันสิทธิ์ อาจจะทำเป็นให้มีช่องกรอก UserName, Password หรือ ตรวจสอบจากการ Login เข้ามาในโปรแกรมว่า User คนนี้ได้รับสิทธิ์นี้หรือไม่ และมี Email อะไร
- บน Access สามารถเขียน Code เพื่อส่งเมล์ผ่านโปรแกรม Outlook ได้ครับ สามารถศึกษาจากตัวอย่างเก่าๆ ของ อ. สุภาพ ไชยาได้ แต่ต้องไปปิดฟังค์ชั่นบางอย่างเกี่ยวกับ Security บน Outlook อีกที ไม่เช่นนั้นมันจะมีเมนู Popup ขึ้นถามทุกครั้งที่สั่งให้ส่งเมล์ แต่ถ้าเราไปปิดฟังค์ชั่นที่ว่า มันจะยิงเมล์ออกไปเลยครับ
อันนี้ตัวอย่างสั้นๆ ครับเป็น idea

Sub SenMail() 
Dim ol As Object 
Dim olMail As Object 
Dim strCC As String 
 
Set ol = CreateObject("Outlook.Application") 
Set olMail = ol.CreateItem(0) 
 
With olMail 
 
    .To = "xxx@hotmail.com;yyy@hotmail.com" 
    .Attachments.Add "C:\FolderName\book1.xls" 
    .Subject = "หัวข้อของอีเมลล์ตรงนี้" 
    .Body = "ข้อความที่ต้องการจะส่งไปด้วย" 
    .Display 
    '.Send 
End With 

โดยต้องเขียนโปรแกรมวนลูปเพิ่มเติมเพื่อส่งเมล์หาคนที่เกี่ยวข้องที่กำหนดไว้
แนะว่าใช้คำสั่ง Do While

    Dim rst1, rst2, rst3, rst4, rst5, rst6 As DAO.Recordset
    Dim StrNewFolder, strFileName As String
    Dim vPackID, vCustID, lPO, vRoll, nEmail, lTxt As Long
    Dim vRollID, vLDNo, vEmail, vSubj As String
    Dim ol As Object
    Dim olMail As Object
    Dim strCC, vCustPO, vCust As String
   
    Dim vRlID, vRllNo, vLnt, vWgh, vJbColr As String
   
    Dim dbs As Database
    Set dbs = CurrentDb()

    Set rst6 = dbs.OpenRecordset("SELECT LDEmail.* FROM LDEmail INNER JOIN Customer ON LDEmail.CustID = Customer.CustID WHERE (((Customer.Customer)='" & vCust & "')) ORDER BY LDEmail.Email", dbOpenDynaset, dbSeeChanges)
    Do While Not rst6.EOF
        If nEmail = 1 Then
            vEmail = rst6!Email
        Else
            vEmail = vEmail & ";" & rst6!Email
        End If
   
        nEmail = nEmail + 1
    rst6.MoveNext
    Loop
    rst6.Close
    Set rst6 = Nothing

 


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