Here, I'm feeling generous :)
'___________________________________________________________________________
_
'A tool used to blast HTML formatted emails to a XLS list of email address
'Sam Cayze
'Rollouts
'___________________________________________________________________________
_
'***************************************************************************
*
'START - USER EDITABLE VARIABLES
'Where is the XLS located? Note, have the emails in Column
A
excelPath = "C:\Scripts\Bulk Email Script\EmailList.xls"
'Which row does the data start? Is there a header? If no,
1; if yes, 2.
intRow = 2
'From Address. Example: "First Last
<first.l...@domain.com>"
FromAddress="First Last <first.l...@domain.com>"
Subject="Subject Line Here"
'Location of the email template, in HTML format. Use
http://tinymce.moxiecode.com/examples/full.php# to create the HTML code.
'Be sure to use the format "file://C:\Path\Email.html"
HTMLPath="file://C:\Scripts\Bulk Email Script\Test.htm"
'END - USER EDITABLE VARIABLES
'***************************************************************************
*
DIM cell
Dim currentWorkSheet
Dim usedColumnsCount
Dim usedRowsCount
Dim row
Dim column
Dim top
Dim left
Dim Cells
Dim curCol
Dim curRow
Set objExcel = CreateObject("Excel.Application")
Set objExcel = CreateObject("Excel.Application")
objExcel.DisplayAlerts = 0
objExcel.Workbooks.open excelPath, false, true
Set currentWorkSheet = objExcel.ActiveWorkbook.Worksheets(1)
usedColumnsCount = currentWorkSheet.UsedRange.Columns.Count
usedRowsCount = currentWorkSheet.UsedRange.Rows.Count
top = currentWorksheet.UsedRange.Row
left = currentWorksheet.UsedRange.Column
Ret=Msgbox("The spreadsheet @ " & vbCRLF & excelPath & vbCRLF & "Contains "
& usedRowsCount & " rows." & vbCRLF & vbCRLF & "Do you wish to
send?",VBYesNo,"Bulk Emailer")
If Ret=6 then
'Loop through each row, and send the email.
Do Until objExcel.Cells(intRow,1).Value = ""
Cell =
objExcel.Cells(intRow, 1).Value
intRow = intRow + 1
Set
myMail=CreateObject("CDO.Message")
myMail.Subject=Subject
myMail.From=FromAddress
myMail.To=Cell
myMail.CreateMHTMLBody HTMLPath
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing";)=2
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver";)="10.10.0.20"
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport";)=25
myMail.Configuration.Fields.Update
myMail.Send
Loop
end if
objExcel.Quit
set myMail=nothing
From: itli...@imcu.com [mailto:itli...@imcu.com]
Sent: Tuesday, March 29, 2011 10:44 AM
To: NT System Admin Issues
Cc: andrewsel...@elliottelectric.com; ang...@wf-cpas.com;
arup...@edinboro.edu; austin.k...@ocfl.net; bbrambl...@agfgroup.org;
benny.conna...@udri.udayton.edu; bmart...@cutlerhomes.com;
bpach...@monmouth.edu; brad...@edinboro.edu; bsea...@ameritas.com;
bvau...@ch13bwk.com; cbor...@lakemetroparks.com; cla...@bsci.com;
cstr...@ywcatoronto.org; cs...@wustl.edu; cvale...@reinforcedearth.com;
dave_wells...@witcc.edu; dav...@imcu.com; dhender...@clmworkforce.com;
don.beliv...@prtc.coop; hfergu...@mckcpa.com; hm...@hrmc.org;
hpa...@lifespanservices.org; ja...@zandri.net; jbem...@monmouth.edu;
jdana...@mitre.org; jf...@pbp1.com; jhlyo...@hotmail.com;
jhow...@selfregional.org; jim.hunsa...@chw.edu;
jj...@carrollcountyschools.com; john.cla...@mysanibel.com;
johnlod...@elliottelectric.com; jo...@alpatterson.com;
jon.ma...@northlandchurch.net; joneil...@moldedfiberglass.com;
jow...@healthsystemsinc.com; jtram...@nbcuni.com
Subject: Blat to a list of people from a batch file
I have a csv file of users and I want to blat them an email.
Is there a good batch for this someplace.
Where I can loop through the file at 75 mail intervals?
So I don't get hit on the spam parade?
~ Finally, powerful endpoint security that ISN'T a resource hog! ~
~ <http://www.sunbeltsoftware.com/Business/VIPRE-Enterprise/> ~
---
To manage subscriptions click here:
http://lyris.sunbelt-software.com/read/my_forums/
or send an email to listmana...@lyris.sunbeltsoftware.com
with the body: unsubscribe ntsysadmin
~ Finally, powerful endpoint security that ISN'T a resource hog! ~
~ <http://www.sunbeltsoftware.com/Business/VIPRE-Enterprise/> ~
---
To manage subscriptions click here:
http://lyris.sunbelt-software.com/read/my_forums/
or send an email to listmana...@lyris.sunbeltsoftware.com
with the body: unsubscribe ntsysadmin
