Veeam® is happy to provide the Microsoft community with a study guide prepared by MVP and MCT, Orin Thomas. This guide will take you through each of the exam objectives, helping you to prepare for and pass the examination.
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
|Looking for training script/outline templates in word format (or google suggestions)||8||74|
|need formula to count the number of letters in the 2nd word of excel value||3||36|
|extract zip code or specific digits from text address||6||23|
|Excel Formula for Commission Structure||2||17|