troubleshooting Question


Avatar of Pabilio
PabilioFlag for Spain asked on
Web Development SoftwareMicrosoft ExcelMicrosoft Development
18 Comments1 Solution896 ViewsLast Modified:

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 & "; "
        End If
    Next cell
    If Len(strto) > 0 Then strto = Left(strto, Len(strto) - 1)
            Recipient = ""
            Recipientbcc = strto
             HLink = "mailto:" & bcc & "?"
             HLink = "mailto:" & Recipient & "?" & "cc=" & Recipientcc & "&" & "bcc=" & Recipientbcc & "&"
          ActiveWorkbook.FollowHyperlink (HLink)
    End Sub

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 1 Answer and 18 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 18 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros