+ Reply to Thread
Results 1 to 4 of 4

Email to multiple people in a sheet

  1. #1
    Registered User
    Join Date
    12-25-2012
    Location
    Brasil
    MS-Off Ver
    Excel 2013
    Posts
    6

    Email to multiple people in a sheet

    I have a sheet in which it is separated by zone area, name (about 200 names), and email.
    I am trying to add people to an email based on zone. For instance:
    Nevada Billy Billy@gmail.com
    California Sal Theemail@gmail.com
    New York Jim Jim@gmail.com
    Nevada JOe Joe@gmail.com
    Arizona Alex Alex@gmail.com

    So how can add all the people in X zone to a single outlook email (in this case Billy and Joe)?

  2. #2
    Forum Expert avk's Avatar
    Join Date
    07-12-2007
    Location
    India
    MS-Off Ver
    Microsoft Office 2013
    Posts
    3,279

    Re: Email to multiple people in a sheet

    Quote Originally Posted by shoopes2 View Post
    I have a sheet in which it is separated by zone area, name (about 200 names), and email.
    I am trying to add people to an email based on zone. For instance:
    Nevada Billy Billy@gmail.com
    California Sal Theemail@gmail.com
    New York Jim Jim@gmail.com
    Nevada JOe Joe@gmail.com
    Arizona Alex Alex@gmail.com

    So how can add all the people in X zone to a single outlook email (in this case Billy and Joe)?
    Dear Shoopes

    Here i have attached 2 example files. Kindly go through as per attach files. Made changes as per your requirement.
    Attached Files Attached Files

  3. #3
    Registered User
    Join Date
    12-25-2012
    Location
    Brasil
    MS-Off Ver
    Excel 2013
    Posts
    6

    Re: Email to multiple people in a sheet

    Thank you very much. I figured out my own code but learned a lot reading yours. Thanks for the time.

    This is what I used:

    Dim efl, esj, ec, ejn, ejs, el, et, eip, eit As String
    'escolher quem recebera o email
    Sheets("Organização atual").Activate
    With ActiveSheet
    primeiro= .UsedRange.Cells(1).Row
    ultimo= .UsedRange.Rows(.UsedRange.Rows.Count).Row
    For Lrow = ultimo To primeiro Step -1
    With .Cells(Lrow, "a")
    If Not IsError(.Value) Then
    If .Value = "Florianópolis" Then efl = efl & ";" & .Cells(Lrow, "e")
    If .Value = "São José" Then esj = esj & ";" & .Cells(Lrow, "e")
    If .Value = "Chapecó" Then ec = ec & ";" & .Cells(Lrow, "e")
    If .Value = "Joinville Norte" Then ejn = ejn & ";" & .Cells(Lrow, "e")
    If .Value = "Joinville Sul" Then ejs = ejs & ";" & .Cells(Lrow, "e")
    If .Value = "Lages" Then el = el & ";" & .Cells(Lrow, "e")
    If .Value = "Tubarão" Then et = et & ";" & .Cells(Lrow, "e")
    If .Value = "Ipoméia" Then eip = eip & ";" & .Cells(Lrow, "e")
    If .Value = "Itajaí" Then eit = eit & ";" & .Cells(Lrow, "e")

    End If
    End With
    Next Lrow
    End With

    which make a continuous adding of names to the string by category.

  4. #4
    Forum Expert avk's Avatar
    Join Date
    07-12-2007
    Location
    India
    MS-Off Ver
    Microsoft Office 2013
    Posts
    3,279

    Re: Email to multiple people in a sheet

    If your problem solved. Then go to edit post ----- go to advance ----- select resolved.

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Tags for this Thread

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1