embed terminal server client in outlook form

[Jay Tabatabai]

I have been tasked with creating an outlook form that will contain Microsoft
Terminal Services control. Where user can click on the command button on the
form to connect to a terminal server within inside the company network.
I have looked everywhere for a sample code, which I have not been able to
find.
I will appreciate if you can provide help with how can this request can be
implemented.

 

[apextos]

It's not perfect but Works and will give you an idea.

Lets suppose that you have a command button with name property set to RDP


Sub RDP_Click()

Dim WSH_Shell, ServerIP, objEnv, SystemRoot

ServerIP = "192.168.10.10"
Set WSH_Shell = CreateObject("WScript.Shell")
Set objEnv = WSH_Shell.Environment("Process")
SystemRoot = objEnv("SYSTEMROOT")
Wsh_Shell.Run ( SystemRoot & "\system32\mstsc.exe /v:" & ServerIP )
Set WSH_Shell = Nothing

End Sub

Remarks.

ServerIP will be the Server you like to Connect.
SystemRoot is the path where the windows installed, ex. C:\Windows

mstsc.exe is the Terminal Server client, look for more parameter Info


====================================================

 

[Stephen Baer]

WOW! This is awesome!

It's not perfect but Works and will give you an idea.

Lets suppose that you have a command button with name property set to RDP


Sub RDP_Click()

Dim WSH_Shell, ServerIP, objEnv, SystemRoot

ServerIP = "192.168.10.10"
Set WSH_Shell = CreateObject("WScript.Shell")
Set objEnv = WSH_Shell.Environment("Process")
SystemRoot = objEnv("SYSTEMROOT")
Wsh_Shell.Run ( SystemRoot & "\system32\mstsc.exe /v:" & ServerIP )
Set WSH_Shell = Nothing

End Sub

Remarks.

ServerIP will be the Server you like to Connect.
SystemRoot is the path where the windows installed, ex. C:\Windows

mstsc.exe is the Terminal Server client, look for more parameter Info


====================================================