將特定文件附加到相應的收件人

Question

我有一長串成本報告要發送給不同的收件人。

我想我可以有一個用的Excel文件的地址和相應的位置即 A1 John.smith@com.com A2 0001 B1 Jeff.smith@com.com B1技術

然後使用VBA循環每行（1）並搜索相應的（A2）命名文件的文件夾並將其附加到郵件輸出到單元格（A1）。

Answer 1

我假設你在第一行有標題。 未經測試。

Sub AntMan() 

Dim OutLookApp As Object 
Dim OutLookMailItem As Object 
Dim lastRow As Long 
Dim MailDest As String 
Dim subj As String 

lastRow = ThisWorkbook.WorkSheets("Sheet6").Cells(Rows.Count, "A").End(xlUp).Row 'change worksheet 

For i = 2 To lastRow 

    Set OutLookApp = CreateObject("Outlook.application") 
    Set OutLookMailItem = OutLookApp.CreateItem(0) 
    Set Attach = OutLookMailItem.Attachments 

    With OutLookMailItem 
     .To = Cells(i, 1).Value 
     .SUBJECT = "Put your subject here" 
     .Body = "Put your body here" 
     Attach.Add "C:\your\file\path\here\" & Cells(i, 2).Value & ".xlsx" 
     .Display 'for debugging 
     .Send 
    End With 

Next 

End Sub