Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Thủ Thuật] Demo gửi Email có thêm file đính kèm Access
#1
Diễn đàn chúng ta đã có 1 bài viết liên quan đến gửi email bằng form Access nhưng chưa có thể đính kèm thêm file. Và Trước đây cũng có 1 bạn từng hỏi vấn đền gửi Email bằng Access có thêm file đính kèm nửa nhưng không có thời gian làm Demo nên chỉ gợi ý cho bạn ấy thôi.

Nên hôm nay xin phép gửi các bạn demo và hướng dẫn chi tiết về đính kèm thêm file.

Chúng ta sẽ làm 2 bước và 1 yêu cầu cần có
* Yêu cầu: Máy phải cài đặt chương trình Microsoft Outlook 2003 trở lên

* 02 Bước đó là:
Bước 1: Tạo kết nối User Accout trên Microsoft Outlook 2003
Mình xin phép sử dụng email hiện có của mình là : maidinhdan@gmail.com để minh họa về cấu hình gửi nhận Email trên Outlook 2003

Ghi chú: Tại sao cần bước 1 này ( Vì file đính kèm cần nới để lưu tạm)

Hình 1
[Hình: 1.jpg]

Hình 2
[Hình: 2.jpg]

Hình 3
[Hình: 3.jpg]

Hình 4
[Hình: 4.jpg]

Hình 5
[Hình: 5.jpg]

Hình
[Hình: 6.jpg]

Hình
[Hình: 7.jpg]

Hình
[Hình: 8.jpg]

Hình
[Hình: 9.jpg]

Hình
[Hình: 10.jpg]

Hình
[Hình: 11.jpg]

Hình
[Hình: 12.jpg]

Hình
[Hình: 13.jpg]



Trải qua 13 hình trên ta sẽ có 1 tài khoản outlook kết nối với Email của ta.

Bước 2: Bước là là quan trọng nhất.

- Tạo 1 table tên là: tblMailingList có cột EmailAddress kiểu text
- Tạo form tên là: frmMail gồm Email người nhận; Tiêu đề; Nội dung; Địa chỉ file cần gửi (tạm gọi là txtdinhkem) và 1 nút Send

Hình form minh họa
[Hình: 14.jpg]

Tạo Modules hay dan duoi form tuy : Code hàm gửi như sau:
Mã PHP:
' maidinhdan suu tam tai : http://support.microsoft.com/en-us/kb/318881/vi-vn
Option Explicit

Sub SendMessages(Optional AttachmentPath)

  Dim MyDB As Database
  Dim MyRS As Recordset
  Dim objOutlook As Outlook.Application
  Dim objOutlookMsg As Outlook.MailItem
  Dim objOutlookRecip As Outlook.Recipient
  Dim objOutlookAttach As Outlook.Attachment
  Dim TheAddress As String

  Set MyDB = CurrentDb
  Set MyRS = MyDB.OpenRecordset("tblMailingList")
  MyRS.MoveFirst

  ' 
Khoi tao Outlook.
  
Set objOutlook CreateObject("Outlook.Application")
  
  Do 
Until MyRS.EOF
  
  
' Tao e-mail message.
  Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
  TheAddress = MyRS![EmailAddress]

     With objOutlookMsg
        ' 
Them dia chi nguoi nhan tin e-mail.
        
Set objOutlookRecip = .Recipients.Add(TheAddress)
        
objOutlookRecip.Type olTo

        
' Them nguoi nhan Cc (Tao ban sao)
        If (IsNull(Forms!frmMail!CCAddress)) Then
        Else
           Set objOutlookRecip = .Recipients.Add(Forms!frmMail!CCAddress)
           objOutlookRecip.Type = olCC
        End If
   
        ' 
Tieu denoi dung Email.
        .
Subject Forms!frmMail!Subject
        
.Body Forms!frmMail!MainText
        
.Importance olImportanceHigh  'Muc do quan trong cua la thu, mac dinh la Cao
        
        '
Dinh kem tap tin.
        If 
Not IsMissing(AttachmentPathThen
           Set objOutlookAttach 
= .Attachments.Add(AttachmentPath)
        
End If

        
' Loc ten tung nguoi nhan.
        For Each objOutlookRecip In .Recipients
           objOutlookRecip.Resolve
           If Not objOutlookRecip.Resolve Then
             objOutlookMsg.Display
           End If
        Next
        .Send
      End With
      MyRS.MoveNext
   Loop
   Set objOutlookMsg = Nothing
   Set objOutlook = Nothing
End Sub 

Ở nút Send của frmMail ta gọi câu thần chú
Mã PHP:
Private Sub cmdgui_Click()
SendMessages (Me.txtdinhkem)
End Sub 

Nhớ khai báo thư viện: Microsoft Outlook 11 hoặc hơn ( Office 2003 chắc chắn là 11 rồi)

Khi nhấn nút gửi nó sẽ hiện lên 1 bảng ( có muốn lưu vào Outlook không) rồi nhấn Yes 2 lần là nó gửi ngay...dù có báo lỗi những email đã được gửi.
Hình nó nè
[Hình: 15.jpg]

Xin hết.....có gì sai xót mong các Anh/Chị đóng góp thêm.
Xin chân thành cảm ơn.

Demo đính kèm


File đính kèm
.zip   Gui email dinh kem.zip (Kích cỡ: 19.52 KB / Tải về: 46)
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn tvn_hut


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Nhập đường dẫn 1 file ảnh vào chương trình để lưu! Noname 29 11,192 08-09-16, 08:24 PM
Bài mới nhất: maidinhdan
  [Thủ Thuật] Demo Liệt kê số lượng User đang mở table nào maidinhdan 9 1,315 09-06-16, 09:01 AM
Bài mới nhất: nguyenhungcuong
  Lấy về số seri CPU, ổ cứng MainBoard trong Access Noname 33 12,291 08-06-16, 11:23 PM
Bài mới nhất: maidinhdan
  Thuộc tính Startup MS Access toàn tập với VBA Noname 2 2,736 18-04-16, 04:50 PM
Bài mới nhất: ongke0711
  Hàm đọc số dùng mã Unicode trong Access Noname 28 11,700 23-03-16, 11:45 PM
Bài mới nhất: thiennamlong

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ