Access 2007 - 2013

[Tallbloke]

HI guys,

Is there anything in this code that will stop me from upgrading to Office 2013 (so outlook and access 2013)

Private Sub MailPackageWithPass_Click()
On Error GoTo Err_MailPackageWithPass_Click
    Dim Signature As String
    
        Signature = "Kind regards," & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Forms.markswitchboard!Text52 & Chr(13) & Chr(10) & "Clear Cut Weekends" & Chr(13) & Chr(10) & "http://www.ClearCutWeekends.co.uk" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Telephone: 01202 375525"
    
    stDocName = "PackageReportNew"
    
    DoCmd.SendObject acReport, stDocName, pdf, Forms!customer.Email, , , "Your Itinerary is Attached", "Dear " & Forms!customer.FirstName & "," & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Please find attached your itinerary for the below detailed trip:" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "CUSTOMER REFERENCE :" & " " & Forms!customer.CCWCUSTID & Chr(13) & Chr(10) & "QUOTE REFERENCE :" & " " & Forms!customer.CCWQUOTEID & Chr(13) & Chr(10) & "LOCATION :" & " " & Forms!customer.location.Column(1) & Chr(13) & Chr(10) & "DATE :" & " " & Forms!customer.DateOfVisit & " " & "to" & " " & Forms!customer.DateOfVisit + Forms!customer.Nights & Chr(13) & Chr(10) & "NIGHTS :" & " " & Forms!customer.Nights & " " & "(Bed & Breakfast)" & Chr(13) & Chr(10) & "TOTAL ATTENDEES :" & " " & Forms!customer.Pax & Chr(13) & Chr(10) & Chr(13) & Chr(10) & DLookup("[text8]", "[storedtext]") & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Signature
Exit_MailPackageWithPass_Click:

Me.StaffDealing = "COMPLETED"
Me.Itin = True
Me.PackageSent = True
Me.ItinDate = Date
Me.PackageSentDate = Date

    Exit Sub

Err_MailPackageWithPass_Click:
    MsgBox Err.Description
    Resume Exit_MailPackageWithPass_Click
   
End Sub

Thanks!

 

[Tallbloke]

Hmmm, just tested and it doesn't work.
Everything else in the database seems fine, just this causing problems.
Access throws a very polite but generic error message and asks me if I want to repair or close.

 

[Tallbloke]

So this is the error :

The box has a title Microsoft Outlook
The message is " We're sorry, but Microsoft Office has run into an error that is preventing it from working correctly. Microsoft Office will need to be closed as a result. WOuld you like to repair now?

With the options : Repair Now, Help , Close

Any ideas?

 

[spikepl]

http://www.fmsinc.com/MicrosoftAccess/Email/SendObject.html