Ich hab mal wieder eine Frage zu einem Script.
Als totaler Amateur in dem Bereich, komme ich einfach nicht weiter.
Ich möchte, dass ein Feld ausgelesen wird, dieses in die Zwischenablage kopiert wird und dann F4 gedrückt wird.
Hintergrund: Ich habe die Software "Call It " installiert, die mir beim Druck auf die Taste F4 die Telefonnummer wählt, die gerade in der Zwischenablage ist.
Das Script habe ich mir bis jetzt so zusammenkopiert:
Der Befehl oScriptShell geht aber nicht richtig. Da haperts noch.
Kann mir da wer helfen?
Vielen Dank.
Option Explicit
Const sFldTelefon = "Telefon_Privat_Person_2"
Dim oProject, oListViews, oView, oRecordSet
Set oProject = cRM.CurrentProject
Set oListViews = oProject.ActiveViews
Set oView = oListViews.ActiveView
Set oRecordSet = oView.CurrentRecordSet
Dim oWScriptShell
Set oWScriptShell = WScript.CreateObject("WScript.Shell")
Dim ocRMProject
Set ocRMProject = cRM.CurrentProject
Dim sPhoneNo
sPhoneNo = oRecordSet.CurrentRecord.GetContentsByName(CStr(sFldTelefon))
Dim oWscript
oWscriptShell.Clipboardtext = cstr(sPhoneNo)
oWScriptShell.SendKeys "{F4}"
Set ocRMProject = Nothing
Set oWScriptShell = Nothing
Set oRecordSet = Nothing
Set oView = Nothing
Set oListViews = Nothing
Set oProject = Nothing
Als totaler Amateur in dem Bereich, komme ich einfach nicht weiter.
Ich möchte, dass ein Feld ausgelesen wird, dieses in die Zwischenablage kopiert wird und dann F4 gedrückt wird.
Hintergrund: Ich habe die Software "Call It " installiert, die mir beim Druck auf die Taste F4 die Telefonnummer wählt, die gerade in der Zwischenablage ist.
Das Script habe ich mir bis jetzt so zusammenkopiert:
Der Befehl oScriptShell geht aber nicht richtig. Da haperts noch.
Kann mir da wer helfen?
Vielen Dank.
Option Explicit
Const sFldTelefon = "Telefon_Privat_Person_2"
Dim oProject, oListViews, oView, oRecordSet
Set oProject = cRM.CurrentProject
Set oListViews = oProject.ActiveViews
Set oView = oListViews.ActiveView
Set oRecordSet = oView.CurrentRecordSet
Dim oWScriptShell
Set oWScriptShell = WScript.CreateObject("WScript.Shell")
Dim ocRMProject
Set ocRMProject = cRM.CurrentProject
Dim sPhoneNo
sPhoneNo = oRecordSet.CurrentRecord.GetContentsByName(CStr(sFldTelefon))
Dim oWscript
oWscriptShell.Clipboardtext = cstr(sPhoneNo)
oWScriptShell.SendKeys "{F4}"
Set ocRMProject = Nothing
Set oWScriptShell = Nothing
Set oRecordSet = Nothing
Set oView = Nothing
Set oListViews = Nothing
Set oProject = Nothing