• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Demo gửi Email có thêm file đính kèm Access

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư viện thủ thuật
  • [Thủ Thuật] Demo gửi Email có thêm file đính kèm Access
• Demo gửi Email có thêm file đính kèm Access

• Demo gửi Email có thêm file đính kèm Access

  maidinhdan > 09-04-15, 11:22 PM

  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 2
  
  
  Hình 3
  
  
  Hình 4
  
  
  Hình 5
  
  
  Hình
  
  
  Hình
  
  
  Hình
  
  
  Hình
  
  
  Hình
  
  
  Hình
  
  
  Hình
  
  
  Hình
  
  
  
  
  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
  
  
  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 de, noi 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(AttachmentPath) Then
           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è
  
  
  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

• RE: Demo gửi Email có thêm file đính kèm Access

  toidjtjmtoi > 27-12-19, 02:06 PM

  Anh ơi có gửi email cho nhiều người 1 lúc được ko ạ
• Bài trước Bài tiếp