We e-mail documents needng to be read and we need confirmation from the recipient that the materials were reviewed. Here are my 2 Q’s:
– I have an automated e-mail procedure that works great. What line of code will allow me to ‘Use Voting Buttons:’ and the buttons I want to use is a single button: “I have reviewed the materials fully.”
– I am then trying to link to the Inbox and capture replies from our employees using an append query. I would then move the e-mails to an ‘Archive’ folder. The code I am using is modified from Microsoft and I receive an error stating that it cannot find the inbox:
>>>>>>>
Dim db As DAO.Database
Dim td As DAO.TableDef
On Error GoTo Errorhandler
Set db = CurrentDb()
Set td = db.CreateTableDef(“tblInbox”)
‘Within the following line, replace with the actual
‘Exchange mailbox name created on your computer. For example:
‘ Nancy Davolio
td.Connect = “Exchange 4.0;MAPILEVEL=Mailbox – |;”
‘Within the following line, replace with the
‘actual path to the database. For example:
‘ C:Program FilesMicrosoft OfficeOfficeSamplesNorthwind.mdb
‘This will also support UNC (for example, servernamesharedbname).
td.Connect = td.Connect & “DATABASE=;”
‘Within the following line, replace with the actual
‘name of your email profile created on your computer. For example:
‘ Microsoft Outlook
td.Connect = td.Connect & “PROFILE=”
‘Substitute the name of the email folder you wish to attach.
‘In this example, we will attach the Inbox folder.
td.SourceTableName = “Inbox”
db.TableDefs.Append td
Application.RefreshDatabaseWindow
MsgBox “Complete.”
Exit Function
Errorhandler:
MsgBox “Error ” & Err & ” ” & Error
Exit Function
End Function
>>>>>>>>>>>
What am I doing wrong?
