Hướng dẫn gửi mail hàng loạt và đính kèm nhiều file

[saobekhonglac]

Bạn thử xem có phải ý bạn là vậy ?

Đúng rồi anh. cám ơn anh nhiều, anh giúp dùm em bài bên dưới được không anh.
https://www.giaiphapexcel.com/diend...-file-theo-điều-kiện-và-bảng-tổng-hợp.136805/

 

[saobekhonglac]

Bạn thử xem có phải ý bạn là vậy ?

Anh sửa giúp em giữa dòng nội dung 2 với nội dung 3 cách nhau 1 dòng (có 1 dòng trắng) với lại thêm phần chữ ký trong outlook giúp em với.

Cám ơn anh nhiều

 

[saobekhonglac]

Bạn thử xem có phải ý bạn là vậy ?

Cái này gửi thì ok mà lâu lâu nó hỏi có muốn save file hay không, em bấm save cái file nó trắng nỏn k có dữ liệu gì hết (file pdf)

 

[saobekhonglac]

Dùng code sau nhé:

Sub GuiMail_HLMT()
    Dim i As Integer
    Dim xOutApp As Object 'Outlook.Application
    Dim xMailOut As Object 'Outlook.MailItem
    Dim oFSO As Object
    Dim oFolder As Object
    Dim oFile As Object
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    For i = 1 To 11
        Set xMailOut = xOutApp.CreateItem(olMailItem)
      
        With xMailOut
           .To = Cells(i + 1, 2)
           .CC = Cells(i + 1, 3)
           .Subject = Cells(i + 1, 5)
           .HTMLBody = Cells(i + 1, 6) & "<br>" & Cells(i + 1, 7) & "<br>" & Cells(i + 1, 8)
           Set oFolder = oFSO.GetFolder(Cells(i + 1, 4) & "\")
           For Each oFile In oFolder.Files
              .Attachments.Add Cells(i + 1, 4) & "\" & oFile.Name
           Next
           .Display
        End With
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Set oFile = Nothing
    Set oFolder = Nothing
    Set oFSO = Nothing
    Application.ScreenUpdating = True
End Sub

Code nó hay bị lỗi như hình bên dưới lắm anh "Hai Lúa Miền Tây" ơi (gửi folder), nhưng mail nó vẫn gửi. Với lại anh thêm chữ ký khi gửi mail giúp em với.