I need to send an email to more than 80 people at a time from an excel file when pressing a Command Button.
Email adresses are in column E..from row 10 to row 100
I copied some code from Ron de Bruin that It works perfectly when the email goes to a smaller group... but when I need to send an email to the complete group it hangs...
It is possible to edit the code, or there is another way to create an empty email (with all the email addresses in the bbc field) when pressing the Command Button ?
Thank you for your time.
Attached is the code I´m using.
Private Sub CommandButton1_Click()
Dim cell As Range
Dim strto As String
For Each cell In ThisWorkbook.Sheets("CUOTAS").Range("E10:E50")
If cell.Value Like "?*@?*.?*" Then
strto = strto & cell.Value & "; "
If Len(strto) > 0 Then strto = Left(strto, Len(strto) - 1)
Recipient = "firstname.lastname@example.org"
Recipientbcc = strto
HLink = "mailto:" & bcc & "?"
HLink = "mailto:" & Recipient & "?" & "cc=" & Recipientcc & "&" & "bcc=" & Recipientbcc & "&"