Sub send_email()
Dim olApp As Object
Dim olMailItm As Object
Dim iCounter As Integer
Dim Dest As Variant
Dim SDest As String

strSubj = "Просьба предоставить заполненный SMS request"
On Error GoTo dbg

Set olApp = CreateObject("Outlook.Application")
For iCounter = 1 To WorksheetFunction.CountA(Columns(12))
If Cells(iCounter, 13).Value=Date then
Set olMailItm = olApp.CreateItem(0)
strBody = ""
useremail = Cells(iCounter, 12).Value
FullUsername = Cells(iCounter, 7).Value
ProjectName = Cells(iCounter, 1).Value

strBody = "Уважаемый " & FullUsername & vbCrLf
strBody = strBody & "Напоминаем Вам о заявленном ранее проекте - " & ProjectName & vbCrLf
olMailItm.To = useremail
olMailItm.Subject = strSubj
olMailItm.BodyFormat = 1

olMailItm.Body = strBody
olMailItm.Send

Set olMailItm = Nothing
End If
Next iCounter
Set olApp = Nothing
dbg:

If Err.Description <> "" Then MsgBox Err.Description

End Sub