Hi.
I am using Ron's Sub Mail_ActiveSheet() code and it seemingly works
fine with one addressee, but when using several, it takes forever to
send and then the recipients never seem to get it.

I am only sending emails to those who are in my network so I dont want
to type in the email extensions ). I only want to
state their first (space) then last name. How do I adjust this code to
get this done?

Thanx

(My Code below)


With Destwb
.SaveAs TempFilePath & TempFileName & FileExtStr,
FileFormat:=FileFormatNum
On Error Resume Next
.SendMail "Jeremy W. Aldridge; John Doe; Jane Doe; Mama Doe;
Papa Doe", _
"Mindex Daily - Hourly Performance Recap"
On Error GoTo 0
.Close SaveChanges:=False
End With