send email to each customer email in excel sheet.
I have got a customer list of names and addresses and email addresses in
excel 2003. I want to send a new price list ( pdf ) and voucher ( jpg) to each email address with a short covering email by way of explanation. Can someone talk me thru that - it surely is very simple but I am a total beginner in this . Thanks, -- -keevill- |
send email to each customer email in excel sheet.
Try this
Copy the code below in a normal module of your workbook In Sheet1 in a1:a100 the mail addresses Change the path to the file names here .Attachments.Add ("C:\test.jpg") .Attachments.Add ("C:\test.pdf") Sub Mail_Test_Outlook() ' Is working in Office 2000-2007 Dim OutApp As Object Dim OutMail As Object Dim strbody As String Dim cell As Range Dim strto As String Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) strbody = "Hi there" & vbNewLine & vbNewLine & _ "This is line 1" & vbNewLine & _ "This is line 2" & vbNewLine & _ "This is line 3" & vbNewLine & _ "This is line 4" For Each cell In ThisWorkbook.Sheets("Sheet1").Range("A1:A100") If cell.Value Like "?*@?*.?*" Then strto = strto & cell.Value & ";" End If Next cell If Len(strto) 0 Then strto = Left(strto, Len(strto) - 1) On Error Resume Next With OutMail .To = strto .CC = "" .BCC = "" .Subject = "This is the Subject line" .Body = strbody .Attachments.Add ("C:\test.jpg") .Attachments.Add ("C:\test.pdf") .Display 'or use .Send End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End Sub -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "-keevill-" wrote in message ... I have got a customer list of names and addresses and email addresses in excel 2003. I want to send a new price list ( pdf ) and voucher ( jpg) to each email address with a short covering email by way of explanation. Can someone talk me thru that - it surely is very simple but I am a total beginner in this . Thanks, -- -keevill- |
send email to each customer email in excel sheet.
I am afraid I need more help ... pls see below...my questions..
"Ron de Bruin" wrote in message ... Try this Copy the code below in a normal module of your workbook what exactly is this 'normal module' ? where is it and how do I do it ? In Sheet1 in a1:a100 the mail addresses Is this part of the command ? Change the path to the file names here .Attachments.Add ("C:\test.jpg") .Attachments.Add ("C:\test.pdf") OK this is clear Sub Mail_Test_Outlook() ' Is working in Office 2000-2007 Dim OutApp As Object Dim OutMail As Object Dim strbody As String Dim cell As Range Dim strto As String Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) strbody = "Hi there" & vbNewLine & vbNewLine & _ "This is line 1" & vbNewLine & _ "This is line 2" & vbNewLine & _ "This is line 3" & vbNewLine & _ "This is line 4" For Each cell In ThisWorkbook.Sheets("Sheet1").Range("A1:A100") If cell.Value Like "?*@?*.?*" Then strto = strto & cell.Value & ";" End If Next cell If Len(strto) 0 Then strto = Left(strto, Len(strto) - 1) On Error Resume Next With OutMail .To = strto .CC = "" .BCC = "" .Subject = "This is the Subject line" .Body = strbody .Attachments.Add ("C:\test.jpg") .Attachments.Add ("C:\test.pdf") .Display 'or use .Send End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End Sub -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "-keevill-" wrote in message ... I have got a customer list of names and addresses and email addresses in excel 2003. I want to send a new price list ( pdf ) and voucher ( jpg) to each email address with a short covering email by way of explanation. Can someone talk me thru that - it surely is very simple but I am a total beginner in this . Thanks, -- -keevill- |
send email to each customer email in excel sheet.
Hi
what exactly is this 'normal module' ? where is it and how do I do it ? See http://www.rondebruin.nl/code.htm For Each cell In ThisWorkbook.Sheets("Sheet1").Range("A1:A100") Change the sheet/range to yours No problem if the range is bigger because it test for a valid mail address in each cell The code will display the mail first so you can see if it is correct You can change this line to .Send if it is working OK if you want .Display 'or use .Send -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "-keevill-" wrote in message ... I am afraid I need more help ... pls see below...my questions.. "Ron de Bruin" wrote in message ... Try this Copy the code below in a normal module of your workbook what exactly is this 'normal module' ? where is it and how do I do it ? In Sheet1 in a1:a100 the mail addresses Is this part of the command ? Change the path to the file names here .Attachments.Add ("C:\test.jpg") .Attachments.Add ("C:\test.pdf") OK this is clear Sub Mail_Test_Outlook() ' Is working in Office 2000-2007 Dim OutApp As Object Dim OutMail As Object Dim strbody As String Dim cell As Range Dim strto As String Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) strbody = "Hi there" & vbNewLine & vbNewLine & _ "This is line 1" & vbNewLine & _ "This is line 2" & vbNewLine & _ "This is line 3" & vbNewLine & _ "This is line 4" For Each cell In ThisWorkbook.Sheets("Sheet1").Range("A1:A100") If cell.Value Like "?*@?*.?*" Then strto = strto & cell.Value & ";" End If Next cell If Len(strto) 0 Then strto = Left(strto, Len(strto) - 1) On Error Resume Next With OutMail .To = strto .CC = "" .BCC = "" .Subject = "This is the Subject line" .Body = strbody .Attachments.Add ("C:\test.jpg") .Attachments.Add ("C:\test.pdf") .Display 'or use .Send End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End Sub -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "-keevill-" wrote in message ... I have got a customer list of names and addresses and email addresses in excel 2003. I want to send a new price list ( pdf ) and voucher ( jpg) to each email address with a short covering email by way of explanation. Can someone talk me thru that - it surely is very simple but I am a total beginner in this . Thanks, -- -keevill- |
All times are GMT +1. The time now is 11:01 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com