Need Help - Willing to pay

[Bob C]

Greetings all. About 15 years ago, I believe it was in Office 2000, I wrote some custom code for some Outlook forms to manage our customers in a small business. It continued to work well through 2003, but then we started having issues with 2007. It would simply truncate random lines in the code, different each time, causing the code (buttons and such) to not work. Now with 2016, it just crashes Outlook if we click on any buttons. I am seeking someone with Outlook Custom Forms skills/knowledge to update and make work as I just do not have the time to get my brain back up to speed.(I originally wrote with help from here) Happy to compensate for your time. We moved to a hosted exchange server some time back.

 

[Diane Poremsky]

Is it something you can post here? (Either zip the oft or fdm file or rename to txt to upload). I'll take a look at it and see if anything pops out.

 

[Bob C]

Ok...I am uploading screenshots of the four form pages I created, along with the code. TIA

 

[Diane Poremsky]

in a quick look at the code between meetings, the code looks like basic code that should work. The only issue i see is a path to a word template - it's the old windows path, not the new one.

In Outlook, File, Options, Trust Center, Email Security, is scripted allowed in shared folders? This may not apply if the mailbox is opened as an account, but it's worth checking.

Is the form published to personal forms or to a folder (or org library)?

 

[Bob C]

I have created the path/folder on each of the computers wanting to open this and saved the proper sheet.
The scripted was not checked, is now, no change
Forms published to personal forms

I have two behaviors that are happening. The first is, and this has been happening since at least outlook 2010, I am getting a "Script Error, Expected end of statement, Line No 185" I check Line 185 to find it has been truncated. I fix line 185, and then some other random line will get truncated. This is not all the time, just some times.

The bigger issue is now with Office 2016, Outlook just crashes.

I have saved as fdm (had to rename to txt, just change extension back to .fdm) and uploaded here...

 

[Diane Poremsky]

Well, it worked here until i hit the schedule service call button and schedule training. Mail new battery brought up a 'can't find file' error - i assume its looking for the word template which doesn't exist here.

Not sure it matters, but I'm, using 32-bit Outlook.

 

[Diane Poremsky]

I think the problem is somewhere in the appointment code - it didn't crash when i removed the block from the scripts and tested. Also, i think the link code will fail - they removed some of that capability.

  .RequiredAttendees = "address@com"

  .Subject = Item.FullName & " Installation"

  .Location = Item.BusinessAddressStreet & "  " & Item.BusinessAddressCity & " " & Item.BusinessAddressState & " " & Item.BusinessAddressPostalCode

  .Start = Item.UserProperties("Installation Date")

  .Duration = 240

  .Body = Item.UserProperties("DirectionsText") & vbCr & vbLf & Item.HomeTelephoneNumber & vbCr & vbLf & Item.MobileTelephoneNumber & vbCr & vbLf & Item.UserProperties("Consult Notes") & vbCr & vbLf & vbCr & vbLf & Item.UserProperties("Breed") & vbCr & vbLf & Item.UserProperties("Pet Name")

 

[Bob C]

Hmmm...yes, I am now consistently getting it to open and perform the Battery thing as I have the form. So are you saying all of the scheduling portion needs to be redone? Not sure I understand your point about "link code"

 

[Diane Poremsky]

I'm thinking the problem is with the body or start date. Test it by removing all fields and add one at a time and test. See if it crashes.

This is the link code:
.Links.Add Item
it's deprecated and is not intended to be used in code but I'm not sure it would cause it to crash.

 

[Diane Poremsky]

I'm pretty sure its one (or more) of the custom fields.

This works

    With objAppt
      .RequiredAttendees = "address@.com"
        .Subject = "In Home Consultation with "
        .Location = "here"
      .Start = now + 5
      .Duration = 90
        .Body = "This is the body"
    End With

i put these back in, and it works.
.Subject = Item.FullName & " Installation"
.Location = Item.BusinessAddressStreet & " " & Item.BusinessAddressCity & " " & Item.BusinessAddressState & " " & Item.BusinessAddressPostalCode
this crashed it
.Start = Item.UserProperties("Installation Date")

 

[Bob C]

Wow...you rock. Ok, so that line of code is what I used to create an appointment in my outlook calendar. Perhaps there is new code for that now?