Email from Access using Netscape 4.7

[tmar89]

I am trying to implement an email function that goes through a query with email addresses and sends a mass email out using Netscape 4.7. Unfortunately, the lab doesn't use Outlook which would allow this code to work. Does anyone know of a way to have Netscape 4.7 Mail work nicely with emailing?

Here is my current code

Dim rsEmail As DAO.Recordset
Dim strEmail As String
Dim email_counter As Integer

Set rsEmail = CurrentDb.OpenRecordset("qryMenDeclinedFresh")

email_counter = 0
strEmail = ""

Do While Not rsEmail.EOF
If (rsEmail.Fields("StuEmail").Value) <> "" Then
strEmail = strEmail & rsEmail.Fields("StuEmail").Value & ";"
Else
email_counter = email_counter + 1
End If
rsEmail.MoveNext
Loop

If email_counter > 0 Then
MsgBox "Some email addresses were missing.", vbOKOnly, "Missing Emails"
End If

DoCmd.SendObject , , , , , strEmail, "Insert Subject", , True

Set rsEmail = Nothing
Exit Sub