使用Excel自动发送电子邮件中的多个附件
我希望有人能帮忙。
我有一个Excel中的macros查看一列电子邮件地址，并发送一个单独的电子邮件到这些地址与指定的附件。 macros完美的工作，但我不确定如何适应macros能够发送两个附件在同一个电子邮件。
请帮忙。 完整的代码是;
Sub Send() 'Working in Excel 2000-2016 Dim OutApp As Object Dim OutMail As Object Dim sh As Worksheet Dim cell As Range Dim FileCell As Range Dim rng As Range With Application .EnableEvents = False .ScreenUpdating = False End With Set sh = Sheets("Email") Set OutApp = CreateObject("Outlook.Application") For Each cell In sh.Columns("B").Cells.SpecialCells(xlCellTypeConstants) 'Enter the path/file names in the C:Z column in each row Set rng = sh.Cells(cell.Row, 1).Range("C1:Z1") If cell.Value Like "?*@?*.?*" And _ Application.WorksheetFunction.CountA(rng) > 0 Then Set OutMail = OutApp.CreateItem(0) With OutMail .To = cell.Value .Subject = cell.Offset(0, 7).Value .HTMLBody = "<html><body><p>Hello " & cell.Offset(0, -1).Value & "<p></p>" _ & cell.Offset(0, 2).Value & "</p><p>" _ & cell.Offset(0, 3).Value _ & Signature & "</body></html>" For Each FileCell In rng.SpecialCells(xlCellTypeConstants) If Trim(FileCell) <> "" Then If Dir(FileCell.Value) <> "" Then .Attachments.Add FileCell.Value End If End If Next FileCell .Send '.Display End With Set OutMail = Nothing End If Next cell Set OutApp = Nothing With Application .EnableEvents = True .ScreenUpdating = True End With End Sub 你可以运行
.Attachments.Add FileCell.Value
用不同的附件path连线两次