Detail: AG-VP_SQL & Skype

20.05.2009 - AG-VP_SQL & Skype

' Heiko Jendreck - personal helpdesk & webdesign
' http://www.phw-jendreck.de
' 2009.05.20
' Für Chat
If Not ActiveAddress.Fields("CommSkype").Value = Empty Then
strSkype = ActiveAddress.Fields("CommSkype").Value
ActiveAddress.Fields("CommSkype").Value = "skype:" & strSkype & "?chat"
End If


' Für Call
If Not ActiveAddress.Fields("CommSkype").Value = Empty Then
strSkype = ActiveAddress.Fields("CommSkype").Value
ActiveAddress.Fields("CommSkype").Value = "skype:" & strSkype & "?call"
End If


' ******************************************************************************************
' Bitte ein Feld im AG-VIP_SQL anlegen; in diesem Fall "SkypeUser"
' Ab der Version 1.20 bitte ".Value" nicht vergessen!!! ;o)
' ******************************************************************************************
Dim WShell
Dim Chat
Chat = "skype:" & ActiveAddress.Fields("SkypeUser").Value & "?chat"
Set WShell = CreateObject ("WScript.Shell")
WShell.Run Chat
' ******************************************************************************************

siehe auch:
VB Archiv - Skype aufrufen zum Chat oder für Call

zurück

Copyright © 2003 - 2011, Heiko Jendreck, All rights reserved
http://www.phw-jendreck.de / Heiko Jendreck; Friedrichstrasse 20; 68782 Brühl