1
다른 사람이 도울 수 있기를 바랍니다.자동화 된 전자 메일에서 Excel을 사용하여 여러 첨부 파일 보내기
나는 전자 메일 주소의 열을 내려다보고 지정된 첨부 파일이있는 해당 주소로 개별 전자 메일을 보내는 Excel에 매크로가 있습니다. 매크로가 완벽하게 작동하지만 동일한 전자 메일에서 첨부 파일 두 개를 보낼 수 있도록 매크로를 조정하는 방법을 잘 모르겠습니다.
도와주세요. 전체 코드는 다음과 같습니다.
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
은 첨부 파일 문제와 함께 할 수 없음 다른 첨부 파일의 경로를 두 번
줄을 실행하지만 HTML 구문은 당신의'.HTMLBody' 줄 알고 있습니다 옳지 않다면, '
'을'' –