Hassle-free live chat software re-imagined for business growth. 2 users, always free.
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 email@example.com. 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
|Access Excel export not behaving||2||25|
|Excel Save As Status Box will not go away||6||19|
|Auto Adjust Percent rate||5||29|
|Match data in columns A from two worksheets to create 3rd worksheet||14||0|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
12 Experts available now in Live!