Outlook

[donillo]

Hi, I am having issues with an access db I use to assign tasks in outlook. Before we updated to office 2010 from 2007 (I think), it worked fine. After the update, it produces an error "application-defined or object-defined error". The problem line is this:



Set myDelegate = myItem.Recipients.Add(rs("Email"))

It won't insert the TO email address.
I have a workaround with "on error next" so that the email comes up and I enter the email address.

Here is the code: Sorry no line numbers.

Dim myOlApp As New Outlook.Application

Dim myItem As Outlook.TaskItem

Dim myDelegate As Outlook.Recipient

Dim rs As DAO.Recordset



Set myOlApp = CreateObject("Outlook.Application")

Set myItem = myOlApp.CreateItem(olTaskItem)

Set rs = CurrentDb.OpenRecordset("qselSendEmailNotification ")

Set rsIssueID = rs("IssueID")

Set rsIssueRequesterNameTxt = rs("IssueRequesterNameTxt")

Set rsRequestingOfficeTxt = rs("PAY_OFFICE_NAME")

Set rsIssueDescSumMem = rs("IssueDescSumMem")

Set rsFilePathTxt = rs("FilePathTxt")

Set rsDueDate = rs("Due Date")

Set rsEmail = rs("Email")

Set rsCCEmail = rs("CCEmail")

myItem.Assign

Set myDelegate = myItem.Recipients.Add(rs("Email"))

myDelegate.Resolve

If myDelegate.Resolved Then

myItem.Subject = "Task # " & rsIssueID & ": " & rsIssueDescSumMem

myItem.Body = "Please view the FNIP Inquiry Tracking Log Database for more information regarding the assigned task." & _

vbCrLf & "File Path:" & " " & "S:\FNIP\FNIP Management and Administration\FNIP Tracking Log\FNIP Tracking Log Production" & _

vbCrLf & vbCrLf & "Task #:" & " " & rsIssueID & vbCrLf & "Requestor Name:" & " " & rsIssueRequesterNameTxt & _

vbCrLf & "Requesting Office:" & " " & rsRequestingOfficeTxt & vbCrLf & "Issue Summary:" & " " & rsIssueDescSumMem

myItem.DueDate = rsDueDate

myItem.ReminderTime = DateAdd("d", 1, Now)

myItem.Importance = olImportanceNormal

myItem.Display

myItem.Assign

End If

Set rs = Nothing

[June7]

Did you change the Outlook library reference in VBA for the new version?

[donillo]

Did you change the Outlook library reference in VBA for the new version?

Hmm, I'll check it out.

[June7]

I meant on the VBA editor menu: Tools > References

[donillo]

The only thing I see that may be relevant is :"Microsoft 14.0 Object Library" which is checked in both Outlook and Access

[ItsMe]

Maybe you can do some testing with a literal value.
'Set myDelegate = myItem.Recipients.Add(rs("Email"))
Set myDelegate = myItem.Recipients.Add("Joe Blow")

[donillo]

Maybe you can do some testing with a literal value.
'Set myDelegate = myItem.Recipients.Add(rs("Email"))
Set myDelegate = myItem.Recipients.Add("Joe Blow")

That didn't work; got the same error.

[ItsMe]

...It won't insert the TO email address.
I have a workaround with "on error next" so that the email comes up and I enter the email address...

What is the purpose of this Dimension?
Dim myDelegate As Outlook.Recipient

What do you expect Outlook to do with it?

What happens when you comment out all of your error trapping?

[donillo]

What is the purpose of this Dimension?
Dim myDelegate As Outlook.Recipient

What do you expect Outlook to do with it?

What happens when you comment out all of your error trapping?

The purpose is to define the email addressee, I think. This code was written some years ago; it was there before my time. I had bypass the "set mydelegate" line with "on error resume next" . This works but the TO FIELD is left blank so i have to enter the email address.

[ItsMe]

I copied your code and changed the query to a temp table I created. The following worked. Although, it only grabbed the first record from the table.

 
Dim myOlApp As New Outlook.Application
Dim myItem As Outlook.TaskItem
Dim myDelegate As Outlook.Recipient
Dim rs As DAO.Recordset
 
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olTaskItem)
Set rs = CurrentDb.OpenRecordset("TableOne")
Set rsIssueID = rs("IssueID")
Set rsIssueRequesterNameTxt = rs("IssueRequesterNameTxt")
Set rsRequestingOfficeTxt = rs("PAY_OFFICE_NAME")
Set rsIssueDescSumMem = rs("IssueDescSumMem")
Set rsFilePathTxt = rs("FilePathTxt")
Set rsDueDate = rs("Due Date")
Set rsEmail = rs("Email")
Set rsCCEmail = rs("CCEmail")
myItem.Assign
Set myDelegate = myItem.Recipients.Add(rs("Email"))
myDelegate.Resolve
If myDelegate.Resolved Then
myItem.Subject = "Task # " '& rsIssueID & ": " & rsIssueDescSumMem
' myItem.Body = "Please view the FNIP Inquiry Tracking Log Database for more information regarding the assigned task." & _
'
' vbCrLf & "File Path:" & " " & "S:\FNIP\FNIP Management and Administration\FNIP Tracking Log\FNIP Tracking Log Production" & _
'
' vbCrLf & vbCrLf & "Task #:" & " " & rsIssueID & vbCrLf & "Requestor Name:" & " " & rsIssueRequesterNameTxt & _
'
' vbCrLf & "Requesting Office:" & " " & rsRequestingOfficeTxt & vbCrLf & "Issue Summary:" & " " & rsIssueDescSumMem
myItem.DueDate = rsDueDate
myItem.ReminderTime = DateAdd("d", 1, Now)
myItem.Importance = olImportanceNormal
myItem.Display
myItem.Assign
End If
Set rs = Nothing

[donillo]

I copied your code and changed the query to a temp table I created. The following worked. Although, it only grabbed the first record from the table.

 
Dim myOlApp As New Outlook.Application
Dim myItem As Outlook.TaskItem
Dim myDelegate As Outlook.Recipient
Dim rs As DAO.Recordset
 
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olTaskItem)
Set rs = CurrentDb.OpenRecordset("TableOne")
Set rsIssueID = rs("IssueID")
Set rsIssueRequesterNameTxt = rs("IssueRequesterNameTxt")
Set rsRequestingOfficeTxt = rs("PAY_OFFICE_NAME")
Set rsIssueDescSumMem = rs("IssueDescSumMem")
Set rsFilePathTxt = rs("FilePathTxt")
Set rsDueDate = rs("Due Date")
Set rsEmail = rs("Email")
Set rsCCEmail = rs("CCEmail")
myItem.Assign
Set myDelegate = myItem.Recipients.Add(rs("Email"))
myDelegate.Resolve
If myDelegate.Resolved Then
myItem.Subject = "Task # " '& rsIssueID & ": " & rsIssueDescSumMem
' myItem.Body = "Please view the FNIP Inquiry Tracking Log Database for more information regarding the assigned task." & _
'
' vbCrLf & "File Path:" & " " & "S:\FNIP\FNIP Management and Administration\FNIP Tracking Log\FNIP Tracking Log Production" & _
'
' vbCrLf & vbCrLf & "Task #:" & " " & rsIssueID & vbCrLf & "Requestor Name:" & " " & rsIssueRequesterNameTxt & _
'
' vbCrLf & "Requesting Office:" & " " & rsRequestingOfficeTxt & vbCrLf & "Issue Summary:" & " " & rsIssueDescSumMem
myItem.DueDate = rsDueDate
myItem.ReminderTime = DateAdd("d", 1, Now)
myItem.Importance = olImportanceNormal
myItem.Display
myItem.Assign
End If
Set rs = Nothing

Thanks I'll give that a try

[donillo]

It seems Outlook has some security that trips the error. I can't override it since I'm not a network administrator. Something about not allowing automated emails. So I have to bypass the mydelegate myitem recipients add line and when task comes up, enter the recipient.

[ItsMe]

Interesting, thanks for posting this information.