Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
excel sheet email
- Thread starter HOMMER
- Start date
Databaseguy
MIS
Private Sub MailingList()
Dim dbs
Dim rst
Dim strRecep
Set dbs = opendatabase("YourDBwithUserList"
'Path and file name
Set rst = dbs.openrecordset("YOurUserListtable"
With rst
.movelast
.movefirst
do while not .eof
strRecep = rst.fields("FieldwithEmailAddress".value
ActiveWorkbook.SendMail recipients:=strRecep
.movenext
loop
set rst = nothing
set dbs = nothing
End Sub Tyrone Lumley
augerinn@gte.net
Dim dbs
Dim rst
Dim strRecep
Set dbs = opendatabase("YourDBwithUserList"
'Path and file nameSet rst = dbs.openrecordset("YOurUserListtable"
With rst
.movelast
.movefirst
do while not .eof
strRecep = rst.fields("FieldwithEmailAddress"
.valueActiveWorkbook.SendMail recipients:=strRecep
.movenext
loop
set rst = nothing
set dbs = nothing
End Sub Tyrone Lumley
augerinn@gte.net
- Status