У меня есть значения от столбца A до J.
У меня есть даты в столбце G. Я хочу проверить, является ли значение в столбце G сегодняшней датой отправки электронного письма.
в электронном письме должны быть значения тех столбцов, в которых дата соответствует сегодняшней дате + 14 дней (уведомление за 14 дней до срока оплаты).
Кроме того, получатель в поле «Кому» должен быть выбран из столбца I, а CC - из столбца J вместе с некоторыми предварительно определенными.
Если имеется несколько строк, соответствующих текущей дате, должно генерироваться несколько электронных писем.
Код из net и изменения.
Sub method1()
For i = 2 To 6
If Day(VBA.Date) = Day(Range("c" & i).Value) And Month(VBA.Date) = Month(Range("c" & i).Value) Then
Call sendbday(Range("a" & i).Value, Range("b" & i).Value)
End If
Next
End Sub
Sub sendbday(name_to As String, b_to As String)
Dim OutApp As Object
Dim OutMail As Object
Dim body_text As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
' Use weblink to add the image in the email body
body_text = "<p> <p align='left'><font size='2' face='arial' color='blue'><i> Hello " & name_to & ", </p>" & vbNewLine
On Error Resume Next
With OutMail
.To = b_to
.Cc = " "
.Subject = "Notification Alert " & name_to & " !!"
.htmlBody = body_text
.display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
