Re-write code writen for Outlook 2003 to work for Outlook 2002
Posted on 2004-08-13
Can someone help me with this code? I need Outlook Object Library 11.0 in order for this code to work in Access 2002 and outlook 2002. Can i re-write the code so that it works in 2002? It works fine in 2003 because Access has the 11.0 object library in it....thanks!
Dim ol As New Outlook.Application
Dim olMail As Outlook.MailItem
Dim strCC As String
Dim rst As New ADODB.Recordset
Dim strNames As String
rst.Open "Email_accepted", CurrentProject.Connection
Do Until rst.EOF
strNames = strNames & rst("email") & ";"
Set olMail = ol.CreateItem(olMailItem)
.To = "email@example.com"
'.CC = strCC
.BCC = strNames
.Subject = "Sanibel Island"
.HTMLBody = ReadTextFileContents("C:\Sanibel\condos.html")
Set olMail = Nothing
Set ol = Nothing