strHTML = ("Failure Ycode: "&a&" attempted an SAP login that failed. The following error resulted: "&b&" Please re-execute after test userId is available for use.") strSubject = ("SAP Test UserId Login Failure; QEC: ") Set Outlook = CreateObject("Outlook.Application") 'Send failure email here. Dim Message 'As Outlook.MailItem Set Message = Outlook.CreateItem(0) With Message .Subject = strSubject .HTMLBody = strHTML .To = ("firstname.lastname@example.org") '.To = ("email@example.com;firstname.lastname@example.org") .Send End With
From novice to tech pro — start learning today.