Can't catch a break today - email from Excel troubles

[Jenny B.]

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 ("(e-mail address removed)")


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

.Send
End With
Call Clear
End Sub

 

[Jenny B.]

Thanks JP.

You were correct in your initial review that the original code does actually
work. I tried this at work to send to co-workers and it failed, but I had
also used it to send to my home address and it worked.

I was wondering if you had any thoughts on why it might fail at work. I’m
sure they have additional securities in place that it has to deal with, but
you think it would at least bounce back to me or something else if that was
the issue.

Any thoughts on what I could check to see if that’s the case with my
workplace IT?

Thanks - Jenny B.