Я только начал использовать VBA для отправки электронных писем в пакетном режиме, и у меня просто проблема, потому что между последним предложением и подписью есть дополнительная строка.
Вот как это выглядит:
Уважаемый господин Пример 2,
сообщение 1
сообщение 2
Поздравляем!
Space
Space
Подпись
Я провел исследование на разных форумах, но не смог найти никакого решения.
Заранее благодарю за поддержку!
Это код, который я использую:
Option Explicit
Sub Example()
Dim olApp As Object
Dim olMail As Object
Dim olRecip As Object
Dim olAtmt As Object
Dim iRow As Long
Dim Recip As String
Dim Subject As String
Dim Atmt As String
iRow = 2
Set olApp = CreateObject("Outlook.Application")
Do Until IsEmpty(Cells(iRow, 1))
Recip = Cells(iRow, 1).Value
Subject = Cells(iRow, 3).Value
Atmt = Cells(iRow, 4).Value ' Attachment Path
Set olMail = olApp.CreateItem(0)
With olMail
Set olRecip = .Recipients.Add(Recip)
.Display
.Subject = Subject
.HTMLbody = "<html><body><p>Dear " & Cells(iRow, 2).Value & "," & "<br>" & "<br>" & "message 1" & "<br>" & "<br>" & "message 2" & "<br>" & "<br>" & "Congratulations!" & .HTMLbody
Set olAtmt = .Attachments.Add(Atmt)
olRecip.Resolve
.Save
.Close 1
End With
iRow = iRow + 1
Loop
Set olApp = Nothing
Exit Sub
End Sub'