ตัวอย่างไฟล์งานการส่ง Email จากฟอร์มหรือรายงาน
กระทู้เก่าบอร์ด อ.Yeadram

 1,569   11
URL.หัวข้อ / URL
ตัวอย่างไฟล์งานการส่ง Email จากฟอร์มหรือรายงาน

เพื่อนๆ หรืออาจารย์ ท่านใด มีตัวอย่างไฟล์งานสำหรับการส่งอีเมลล์จากฟอร์มหรือรายงานใน Access รบกวนขอไฟล์และส่งมาที่อีเมลล์ผมหน่อยครับ

jenkhuan@hotmail.com
sombat.im@gmail.com

พอดีผมลองเข้าไปอ่านในหลายๆ กระทู้ แล้วลองทำตามยังงงๆ อยู่ครับ คือผมอยากจะให้ user ที่ทำการออก Invoice ส่งอีเมลล์แจ้งเตือนให้ผู้ที่เกี่ยวข้องทราบครับ

ขอบคุณครับ

11 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R22917
ผมเคยมีของเก่าทำไว้นานแล้ว
โหลดที่นี่ครับ
https://drive.google.com/drive/folders/0B01VbQMkl0SFTmlqQTFZNlF5RE0?usp=sharing
2 @R22918
ลองโหลดมาแล้ว แต่มันใช้งานคำสั่งไม่ได้ครับ พอคลิ๊กมันก็เด้งไปที่ หน้า code ครับ
3 @R22919
ลองเปิดโดยการกด Shift ค้างไว้แล้วเปิดไฟล์ครับ เข้าไปดูในส่วนของ Form Frm_Report ครับ

https://drive.google.com/drive/folders/0B01VbQMkl0SFTmlqQTFZNlF5RE0


4 @R22920
เดี๋ยวจะลองศึกษาและทำดู ขอบคุณมากครับ
5 @R22921
ผมลองนำไปใช้และดัดแปลงได้ตามโค้ดด้านล่างแต่ยังติดปัญหาดังนี้ครับ
1.เวลารายงานปริ๊นท์เป็น pdf. แล้วข้อมูลมันโชวร์ทั้งหมด คือผมต้องการให้โชว์เฉพาะที่เลือกครับ
2.เวลาปริ๊นท์ pdf. แล้วถ้าชื่อซ้ำอยากให้ถามก่อนว่าจะให้เซฟทับหรือเปล่า คือตอนนี้มันจะทับไปเลย

รบกวนด้วยครับ


Private Sub SendMail_Outlook_Click()
Dim filepath As String
Dim filenanme As String
Dim PathAndFileNew As String

FileName = "Specification issuing" & "_" & Me.Materials & "_" & Me.txtProjectNo
filepath = "D:\SpecIssuing\" & FileName & ".pdf"
DoCmd.OutputTo acOutputReport, "R_SpecIssue", acFormatPDF, filepath

Set oMail = CreateObject("Outlook.Application")
Set oItem = oMail.CreateItem(0)

With oItem
.To = "sombat@pl.delco"
.CC = "t.sombat@daihen.co.th"
.BCC = ""
.Subject = "Specification Issuing" & "_" & Me.Materials & "_" & Me.txtProjectNo
.attachments.Add filepath
.Body = "Dear Sir" & Chr(13) & _
"Kindly receive the specification as attached" & Chr(13) & _
"Best regards"

.Display
End With
Set oItem = Nothing
Set oMail = Nothing

MsgBox "Operation completed successfully"
DoCmd.GoToRecord , , acNewRec
End Sub
6 @R22923
ตอนนี้ลองทำแล้วยังไม่ได้เลยครับติดปัญหาตามนี้เลยครับ

1.เวลารายงานปริ๊นท์เป็น pdf. แล้วข้อมูลมันโชวร์ทั้งหมด คือผมต้องการให้โชว์เฉพาะที่เลือกครับ
2.เวลาปริ๊นท์ pdf. แล้วถ้าชื่อซ้ำอยากให้ถามก่อนว่าจะให้เซฟทับหรือเปล่า คือตอนนี้มันจะทับไปเลย

รบกวนอาจารย์และเพื่อนๆ ช่วยชี้แนะด้วยครับ

ขอบคุณครับ
7 @R22925
1.R_SpecIssue นี่คือชื่อรายงานใช่ไหมครับ ถ้าเราเปิดในรายงานเลยข้อมูลออกมาทั้งหมดหรือเปล่าครับ
2.ลองค้นด้วยคำว่า FileSystemObject ผมว่าใช้ตรวจสอบไฟล์ได้นะครับ
8 @R22927
ใช่ครับ เดี๋ยวจะลองทำดู ขอบคุณมากครับ
9 @R22928
ตัวอย่างที่ลองตรวจสอบไฟล์ด้วย Scripting.FileSystemObject


Private Sub Command5_Click()
On Error Resume Next
   If CheckFile("D:\SpecIssuing\11.pdf") = True Then
            MsgBox ("ไฟล์นี้มีอยู่แล้ว")
    Else
            MsgBox ("ไม่พบไฟล์")
   End If
End Sub

'************************************************************************

Function CheckFile(filespec) As Boolean
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
    If FSO.FileExists(filespec) Then
        CheckFile = True
    Else
        CheckFile = False
    End If
End Function
10 @R22929
หลังจากที่ตรวจสอบไฟล์ได้แล้วก็มาต่อตรงจุดที่เราต้องการให้ถามก่อนว่าทับไฟล์เก่าหรือไม่


Private Sub Command5_Click()
On Error Resume Next
Dim LResponse As Integer
   If CheckFile("D:\SpecIssuing\12.pdf") = True Then
            LResponse = MsgBox("มีไฟล์นี้อยู่แล้ว " & vbCrLf & "Do you wish to continue?", vbYesNo, "Continue")
            'MsgBox ("แทนที่ไฟล์สำเร็จ")
            If LResponse = vbYes Then
                        MsgBox "Completed !"
            Else
                        MsgBox "ยกเลิกเขียนทับไฟล์เก่า"
            End If
    Else
            MsgBox ("ไม่พบไฟล์")
   End If
End Sub


11 @R22930
รบกวนอีกรอบครับ จาก code ด้านบนของผม ผมควรจะเอา code ที่ให้มาไปแทรกไว้ตรงใหนครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2687s