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

[saobekhonglac]

Chào Anh/Chị.

Em có xem trên GPE có cách gửi mail hàng loạt và đính kèm file nhưng chỉ cho đính kèm 1 file duy nhất. Không biết mình có thể đính kèm nhiều file 1 lúc hay cả 1 filder hay không, Nếu được em nhờ Anh/Chị giúp em code gửi mail hoàng loạt và đính kèm nhiều file đính kèm trong 1 mail với (đính kèm hết 1 folder).

Cám ơn

 

[Ai_Ma_Biet]

Chào Anh/Chị.

Em có xem trên GPE có cách gửi mail hàng loạt và đính kèm file nhưng chỉ cho đính kèm 1 file duy nhất. Không biết mình có thể đính kèm nhiều file 1 lúc hay cả 1 filder hay không, Nếu được em nhờ Anh/Chị giúp em code gửi mail hoàng loạt và đính kèm nhiều file đính kèm trong 1 mail với (đính kèm hết 1 folder).

Cám ơn

Gửi 1 file đính kèm thì ok chứ nhiều file như chủ thớt muốn chắc không làm được đâu.

 

[Hai Lúa Miền Tây]

Chào Anh/Chị.

Em có xem trên GPE có cách gửi mail hàng loạt và đính kèm file nhưng chỉ cho đính kèm 1 file duy nhất. Không biết mình có thể đính kèm nhiều file 1 lúc hay cả 1 filder hay không, Nếu được em nhờ Anh/Chị giúp em code gửi mail hoàng loạt và đính kèm nhiều file đính kèm trong 1 mail với (đính kèm hết 1 folder).

Cám ơn

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

 

[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

Cám ơn anh nhiều. Trường hợp em có nhiều cột hơn thì em thay đổi số 11 trong "For i = 1 To 11" thành số cột mới là được phải không anh, sau đó đổi lại vị trí cột của các dòng to,cc, tiêu đề,...

 

[Hai Lúa Miền Tây]

Cám ơn anh nhiều. Trường hợp em có nhiều cột hơn thì em thay đổi số 11 trong "For i = 1 To 11" thành số cột mới là được phải không anh, sau đó đổi lại vị trí cột của các dòng to,cc, tiêu đề,...

Tùy bạn chỉnh sửa sao cho phù hợp với file của bạn nhé.

 

[saobekhonglac]

Tùy bạn chỉnh sửa sao cho phù hợp với file của bạn nhé.

Số 11 ý nghĩa là như thế nào vậy anh, các số từ 2 đến 8 thì em hiểu.

 

[Hai Lúa Miền Tây]

Số 11 ý nghĩa là như thế nào vậy anh, các số từ 2 đến 8 thì em hiểu.

Số dòng thôi bạn,

Chỉnh sửa ở trên từ dòng 1 đến 12 nhé

 

[saobekhonglac]

Số dòng thôi bạn,

Chỉnh sửa ở trên từ dòng 1 đến 12 nhé

Ah, hèn chi em gửi thử 12 thư nó vẫn chạy mà khi mail thì chỉ có 11 thư được mail. Cám ơn anh nhiều, code rất đơn giản và dễ hiểu. Nhờ anh hướng dẫn code nén file .zip dùm em luôn nha.

https://www.giaiphapexcel.com/diend...-các-file-trong-folder-thành-file-zip.136794/

 

[Thong Hoang Tien 250691]

Gửi 1 file đính kèm thì ok chứ nhiều file như chủ thớt muốn chắc không làm được đâu.

Cũng đua đòi chút xem có làm được không

Sub TestMail()
    Dim wb As Workbook
    Dim OutApp As Object, OutMail As Object
    Dim cn As Object
    Dim fso, folder, file, files
    Dim strPath As String
    
        Set cn = CreateObject("ADODB.connection")
        strPath = "C:\Users\thoangti.FUSHAN\Desktop\MIS\M"              '<---- Dien Folder can gui vao day"
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set folder = fso.GetFolder(strPath)
        Set files = folder.files
    
        
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next
    With OutMail
        .To = "thong.hoang-tien@fih-foxconn.com"
        .CC = ""
        .BCC = ""
        .Subject = ("Thu nghiem")
        
        .Body = "Xin Chao" & vbNewLine & vbNewLine & _
                           "Vui long kiem tra tap tin dinh kem" & _
                            vbNewLine & _
                            "Cam on" & _
                            vbNewLine & vbNewLine & _
                            "Chuc 1 ngay tot lanh" & _
                            vbNewLine & _
                           "Br,Thong"
        For Each file In files
        vName = file.Name
        Set wb = Workbooks.Open(strPath & "\" & vName)
        .Attachments.Add wb.FullName
        wb.Close
        Next
        
        .send   'or use .Display send
        '.Display send
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
    MsgBox ("Xong phim")
End Sub

 

[saobekhonglac]

Số dòng thôi bạn,

Chỉnh sửa ở trên từ dòng 1 đến 12 nhé

Anh ơi, nếu chỉ gửi 1 file thì mình để đường dẫn chi tiết có được không anh hay phải sửa code vậy anh

 

[Hai Lúa Miền Tây]

Anh ơi, nếu chỉ gửi 1 file thì mình để đường dẫn chi tiết có được không anh hay phải sửa code vậy anh

1 file cũng được mà bạn, test thử nhé.

 

[Ai_Ma_Biet]

1 file cũng được mà bạn, test thử nhé.

Em đã thử, nó báo lỗi dòng bên dưới, anh xem lại giúp em với:

Set oFolder = oFSO.GetFolder(Cells(i + 1, 4) & "\")
Đường đẫn chi tiết file "D:\13-Music\Ai Bieu Anh Lam Thinh - Yến Phương - Nhạc Trẻ.MP3"

Có khi nào file có dấu nó không hiểu không anh,

 

[Hai Lúa Miền Tây]

Em đã thử, nó báo lỗi dòng bên dưới, anh xem lại giúp em với:

Set oFolder = oFSO.GetFolder(Cells(i + 1, 4) & "\")
Đường đẫn chi tiết file "D:\13-Music\Ai Bieu Anh Lam Thinh - Yến Phương - Nhạc Trẻ.MP3"

Có khi nào file có dấu nó không hiểu không anh,

Code lấy file trong Folder nhé bạn

 

[Ai_Ma_Biet]

Code lấy file trong Folder nhé bạn

Đúng là cao thủ,

 

[saobekhonglac]

Code lấy file trong Folder nhé bạn

Có cách nào vừa lấy trong folder vừa lấy file chi tiết không vậy anh.

 

[Thong Hoang Tien 250691]

Có cách nào vừa lấy trong folder vừa lấy file chi tiết không vậy anh.

Tất nhiên là có thôi. cách dễ nhất là dùng if cho từng trường hợp ( hoặc trong files hoặc trong folder )

 

[saobekhonglac]

Tất nhiên là có thôi. cách dễ nhất là dùng if cho từng trường hợp ( hoặc trong files hoặc trong folder )

Em không biết gì về VBA mà anh nói như thế thì em cũng bó tay .com

 

[Thong Hoang Tien 250691]

Em không biết gì về VBA mà anh nói như thế thì em cũng bó tay .com

cụ thể bạn muốn gửi theo danh sách như thế nào:
1. gửi tất cả files trong folder và gửi thêm files theo danh sách chi tiết nếu có
2. gửi Files theo danh sách, trong trường hợp nếu không có files theo danh sách thì sẽ quay ra gửi toàn bộ files trong folder.
3. tạo hai button với các chế độ gửi khác nhau.
Hoặc một cách nào khác. Bạn muốn gửi theo cách nào thì mình mới giúp được

 

[saobekhonglac]

cụ thể bạn muốn gửi theo danh sách như thế nào:
1. gửi tất cả files trong folder và gửi thêm files theo danh sách chi tiết nếu có
2. gửi Files theo danh sách, trong trường hợp nếu không có files theo danh sách thì sẽ quay ra gửi toàn bộ files trong folder.
3. tạo hai button với các chế độ gửi khác nhau.
Hoặc một cách nào khác. Bạn muốn gửi theo cách nào thì mình mới giúp được

Gửi theo 1 trong 2 tiêu chí sau:

nếu gõ địa chỉ Foder thì khi gửi sẽ gửi hết file trong foder.
nếu gõ địa chỉ file chi tiết thì gửi sẽ gửi file chi tiết đó luôn

Vừa folder và vừa file tùy vào địa chỉ mình gửi.

 

[Thong Hoang Tien 250691]

Gửi theo 1 trong 2 tiêu chí sau:

nếu gõ địa chỉ Foder thì khi gửi sẽ gửi hết file trong foder.
nếu gõ địa chỉ file chi tiết thì gửi sẽ gửi file chi tiết đó luôn

Vừa folder và vừa file tùy vào địa chỉ mình gửi.

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