Can we use script on a custom contact form

[Kevin99]

Operating system::    Windows
Outlook version:     MS365
Email type or host:    Exchange

---

It used to work that I could hit a command bar and it would do the following:

Sub cmdMakeAppt_Click()

Const olAppointmentItem = 1

Set objAppt = Application.CreateItem(olAppointmentItem)

If Item.Size = 0 Then

Item.Save ' must save item before adding link

End If

With objAppt

.Subject = "Follow-up call to " & Item.FullName

.Body = Item.Body

.Links.Add Item

End With

objAppt.Display

Set objAppt = Nothing

End Sub


Sub cmdFollowup_Click()

Const olAppointmentItem = 1

Set objAppt = Application.CreateItem(olAppointmentItem)

If Item.Size = 0 Then

Item.Save ' must save item before adding link

End If

With objAppt

.Subject = "Meeting with " & Item.FullName

.Body = Item.Body

.Links.Add Item

End With

objAppt.Display

Set objAppt = Nothing

End Sub







Sub cmdTodo_Click()

Const olTaskItem = 3

Set objTask = Application.CreateItem(olTaskItem)

If Item.Size = 0 Then

Item.Save ' must save item before adding link

End If

With objTask

.Subject = "Follow-Up with " & Item.FullName

.Body = Item.Body

.Links.Add Item

End With

objTask.Display

Set objTask = Nothing

End Sub







Sub commandtouch_Click()

Dim objNS



Set objNS = Application.GetNamespace("MAPI")

Item.Body = Item.Body & vbCrLf & Now() _

& " - " & objNS.CurrentUser

Set objNS = Nothing

End Sub

 

[paltick]

You can still use VBScript in custom contact forms, but in newer Outlook versions, you’ll need to make sure macro and script execution is enabled in Trust Center settings. Also note that command bars were replaced by the ribbon in newer builds, so button triggers might need to be re-implemented using form controls or ribbon XML.

 

[Kevin99]

You can still use VBScript in custom contact forms, but in newer Outlook versions, you’ll need to make sure macro and script execution is enabled in Trust Center settings. Also note that command bars were replaced by the ribbon in newer builds, so button triggers might need to be re-implemented using form controls or ribbon XML.

I can see macro enabled but not script execution- Outlook Exchange 365

 

[Diane Poremsky]

If its code in the form, you need to set registry keys -
Custom Form Security Changes | Slipstick Systems

replace 'new-contact' with your form name.

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\16.0\Outlook\Forms\TrustedFormScriptList]
"IPM.Contact"=""
"IPM.Contact.new-contact"=""

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\16.0\Outlook\Security]
"DisableCustomFormItemScript"=dword:00000000

 

[Kevin99]

I can see macro enabled but not script execution- Outlook Exchange 365

Thanks Diane- On one of my computers all of a sudden I get the "To Help Prevent Malicious Code" but on my other two computers I can open the custom contact form without any problems. When I copy your code into notepad then save as a .reg file I get the error-The specified file is not a registry script. You can only import binary registry files. Sorry I'm an older boy still trying to learn.
Kevin

 

[Diane Poremsky]

Download this - change "new-contact" in "IPM.Contact.new-contact" to the name of your form. Save with reg extension (remove the .txt) and run it -

https://www.slipstick.com/reg/Forms-2016-samebit.reg.txt

 

[Kevin99]

Download this - change "new-contact" in "IPM.Contact.new-contact" to the name of your form. Save with reg extension (remove the .txt) and run it -

https://www.slipstick.com/reg/Forms-2016-samebit.reg.txt

Thank you, I should have mentioned I used office on 32 bit so I can use a form changer that only works with 32bit. Computer runs 64bit.

KF