I just tried to add other recipients other than my test self to the email and
it still send to me.

Even after I totally removed my email and inserted another person - it sent
the email solely to me. Any thoughts?


Sub SalesandLisaEmail()

Dim Outlook
Set Outlook = CreateObject("Outlook.Application")

Dim Message
Set Message = Outlook.CreateItem(olMailItem)
With Message

.Subject = "New Issue" & " - " & ActiveSheet.Range("h5").Value
.body = "There is a new B55 Checklist for review." & vbNewLine &
vbNewLine & "After you've had a chance to review and sign off on the
Checklist, please forward to the DMS Group for final review." & vbNewLine &
vbNewLine & "Thank you - DMS Group."
Application.DisplayAlerts = False
.Recipients.Add ")


Const olOriginator = 0
If Len(aFrom) 0 Then .Recipients.Add(aFrom).Type = olOriginator

.Send
End With
Call Clear
End Sub