Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 10-08-2018, 08:46 PM
trevorc trevorc is offline send email to excel list of addresses Windows 7 32bit send email to excel list of addresses Office 2013
Competent Performer
send email to excel list of addresses
 
Join Date: Jan 2017
Posts: 174
trevorc will become famous soon enoughtrevorc will become famous soon enough
Default send email to excel list of addresses


Hi all,
Looking for a simple ditty to send an email to a list of email address in an excel sheet I have. Nothing fancy only need it once, even just to create the list of email's in outlook would get me half way to doing it myself. The list is in cells D14 to D73.
any help is appreciated.
Reply With Quote
  #2  
Old 10-08-2018, 11:32 PM
Pecoflyer's Avatar
Pecoflyer Pecoflyer is offline send email to excel list of addresses Windows 7 64bit send email to excel list of addresses Office 2010 64bit
Expert
 
Join Date: Nov 2011
Location: Brussels Belgium
Posts: 2,766
Pecoflyer has a brilliant futurePecoflyer has a brilliant futurePecoflyer has a brilliant futurePecoflyer has a brilliant futurePecoflyer has a brilliant futurePecoflyer has a brilliant futurePecoflyer has a brilliant futurePecoflyer has a brilliant futurePecoflyer has a brilliant futurePecoflyer has a brilliant futurePecoflyer has a brilliant future
Default

You'll probably find what you want at http://www.rondebruin.nl/win/s1/outlook/mail.htm
Don't hesitate to come back if you have difficulty applying the code
__________________
Did you know you can thank someone who helped you? Click on the tiny scale in the right upper hand corner of your helper's post
Reply With Quote
  #3  
Old 10-09-2018, 12:05 AM
trevorc trevorc is offline send email to excel list of addresses Windows 7 32bit send email to excel list of addresses Office 2013
Competent Performer
send email to excel list of addresses
 
Join Date: Jan 2017
Posts: 174
trevorc will become famous soon enoughtrevorc will become famous soon enough
Default

Thanks for the link, lots of usfull stuff there,
The code found below is close to what i need, but in stead of sending different emails to each person, i need to send the same one to all in the list. I was hoping i could do that sending the e-mail to myself and using .BCC to send it to all in the list.
What I'm no good at is looping through the cells with addresses and building a .BCC list. I.E.

mail_list = mail_list & ";" & abc1@abc . com
next 'goto next cell and add that, and so on until the end of the cell range.

Code:
    For Each cell In Columns("B").Cells.SpecialCells(xlCellTypeConstants)
        If cell.Value Like "?*@?*.?*" And _
           LCase(Cells(cell.Row, "C").Value) = "yes" Then
 
            Set OutMail = OutApp.CreateItem(0)
            On Error Resume Next
            With OutMail
                .To = cell.Value
                .Subject = "Reminder"
                .Body = "Dear " & Cells(cell.Row, "A").Value _
                      & vbNewLine & vbNewLine & _
                        "Please contact us to discuss bringing " & _
                        "your account up to date"
                'You can add files also like this
                '.Attachments.Add ("C:\test.txt")
                .Send  'Or use Display
            End With
            On Error GoTo 0
            Set OutMail = Nothing
        End If
    Next cell
Reply With Quote
Reply

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
2 Email Addresses/ 1 Contact List Mister Mobius Outlook 0 06-22-2015 07:56 AM
send email to excel list of addresses Exporting email addresses not in contact list jjb1989 Outlook 1 05-15-2015 06:12 AM
Too many email addresses equals no send seaboyd Outlook 0 02-23-2015 11:00 AM
Dropdown list of email addresses J Partridge Outlook 1 01-13-2011 06:37 AM
send email to excel list of addresses Importing Contact List WITH email addresses Noel Cookman Outlook 1 10-09-2010 03:13 PM

Other Forums: Access Forums

All times are GMT -7. The time now is 03:31 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft