Send email from Access DB Table

[skaswani]

I m using Excel 2007, Access 2007 and Outlook



i have a table in Access - Emails

with 2 fields,
1) Branch Code
2) Email

this is my code and what i want to do it i want to send email to the particular branch

 
Sub DistributeRows()
Dim wbNew As Workbook
Dim wsData As Worksheet
Dim wsCrit As Worksheet
Dim wsNew As Worksheet
Dim rngCrit As Range
Dim LastRow As Long
 
    Set wsData = Worksheets("LOAD DATA")
    Set wsCrit = Worksheets.Add
 
    LastRow = wsData.Range("A" & Rows.Count).End(xlUp).Row
 
    wsData.Range("A1:A" & LastRow).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=wsCrit.Range("A1"), Unique:=True
 
    Set rngCrit = wsCrit.Range("A2")
    While rngCrit.Value <> ""
        Set wsNew = Worksheets.Add
        wsData.Range("A1:Y" & LastRow).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=rngCrit.Offset(-1).Resize(2), CopyToRange:=wsNew.Range("A1"), Unique:=True
        wsNew.Name = rngCrit
        wsNew.Copy
        Set wbNew = ActiveWorkbook
        wbNew.SaveAs ThisWorkbook.Path & "\" & rngCrit & "-" & Format(Date, "dd mmm yy")
        wbNew.Close SaveChanges:=True
        Application.DisplayAlerts = False
        wsNew.Delete
        rngCrit.EntireRow.Delete
        Set rngCrit = wsCrit.Range("A2")
    Wend
 
    wsCrit.Delete
    Application.DisplayAlerts = True
End Sub

and please also help me to conver this code to ACESS code ( i dont know how to open the .xls file through access

Thanks

[skaswani]

Please Help

[RuralGuy]

If afraid you will simply need to be patient and wait for someone that has the necessary skills to assist. Believe me, if someone here knew how to help you they would have already jumped in.

[RuralGuy]

I'll see if I can't muddle through this and help somehow. The code you posted looks like you are just dealing with Excel automation. What is it you want to email?