Veeam is happy to provide a free NFR license (for 1 year, up to 10 users). This license allows for the non‑production use of Veeam Backup for Microsoft Office 365 in your home lab without any feature limitations.
Sub TranSEmail() Dim OutApp As Object Dim OutMail As Object Dim Cel As Range Dim i As Integer Application.ScreenUpdating = False Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon For Each Cel In Columns("D").Cells.SpecialCells(xlCellTypeConstants) If Now() - Cells(Cel.Row, "A") > 21 And LCase(Cells(Cel.Row, "E").Value) <> "yes" Then Set OutMail = OutApp.CreateItem(0) With OutMail .to = Cel.Value .Subject = "Order Number " & Cells(Cel.Row, "F").Value .Body = "Hello " & Cells(Cel.Row, "C").Value & "!" & vbNewLine & vbNewLine _ & "I am writing about your recent purchase of " & Cells(Cel.Row, "B").Value _ & ". I want to make sure all went well with your order. If you have any questions or concerns at all please let me know by email at firstname.lastname@example.org. I appreciate this opportunity to serve you and sincerely hope you are having a nice day!" _ & vbNewLine & vbNewLine & "Very Sincerely Yours, " & vbNewLine & " Brian" .Display End With Set OutMail = Nothing Cells(Cel.Row, "E").Value = "Yes" End If Next Cel Application.ScreenUpdating = True End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|How to stop CRM Addin from adding website to Trusted Sites||4||27|
|Bulk update/recode of survey text responses to numerical values via a lookup table using macros||8||36|
|I NEED KEEP THE CONDITIONAL FORMATTING||24||26|
|Slicers by Groups in Excel||7||20|