X-Received: by 10.176.86.130 with SMTP id a2mr23432003uab.32.1480962360909; Mon, 05 Dec 2016 10:26:00 -0800 (PST)
X-Received: by 10.157.18.211 with SMTP id g77mr3751034otg.14.1480962360845; Mon, 05 Dec 2016 10:26:00 -0800 (PST)
Path: csiph.com!weretis.net!feeder6.news.weretis.net!news.glorb.com!p16no2926037qta.1!news-out.google.com!j8ni5520qtc.0!nntp.google.com!p16no2926035qta.1!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: it.comp.lang.visual-basic
Date: Mon, 5 Dec 2016 10:26:00 -0800 (PST)
In-Reply-To: <4fa79d2d$0$1380$4fafbaef@reader2.news.tin.it>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=31.159.251.32; posting-account=zCkRSwoAAADf-7Xy4FhUIILtorHbHa2t
NNTP-Posting-Host: 31.159.251.32
References: <bd07243f-06de-43cf-86fa-63ba09d82219@t20g2000vbx.googlegroups.com> <1a159f36-1d23-44ea-8649-667ebd7cba30@l7g2000vbz.googlegroups.com> <1397399.1003.1336135675327.JavaMail.geo-discussion-forums@vbay5> <2012050412590422084@mynewsgate.net> <24692032.725.1336137032738.JavaMail.geo-discussion-forums@vbuo17> <2012050413260722084@mynewsgate.net> <19445733.1154.1336138904335.JavaMail.geo-discussion-forums@vbvx4> <2012050417120622084@mynewsgate.net> <13593876.4365.1336381840071.JavaMail.geo-discussion-forums@vbbfk16> <4fa794af$0$1384$4fafbaef@reader2.news.tin.it> <33039603.1473.1336384119215.JavaMail.geo-discussion-forums@vbvx4> <4fa79d2d$0$1380$4fafbaef@reader2.news.tin.it>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <1f22dc57-199e-4698-af07-62a2abc2e46e@googlegroups.com>
Subject: Re: Uso di SKYPE4COM con Visual basic 6
From: MYAo <maurotassera@gmail.com>
Injection-Date: Mon, 05 Dec 2016 18:26:00 +0000
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: quoted-printable
Xref: csiph.com it.comp.lang.visual-basic:18938

Scusate l'intromissione,

mi aggancio a questa discussione in quanto mi trovo in una situazione simil=
e a dcomerlati e visto che siete utenti esperti.
Vorrei sviluppare un semplice sript VB per fare in modo di inviare un sms v=
ia skype. Premetto che sto utilizzando un editor incluso in un programma di=
 supervisione per impianti e che non ho una profonda conoscenza di VB.=20

Attualmente ho testato con successo questo banale listato che gira corretta=
mente e nel momento in cui viene richiamato fa partire una chiamata voip in=
dirizzata all'utente skype della mia rubrica:

Private cimOleObj As SKYPE4COMLib.ISkype
Sub OnExpressionHigh(exprValue As Variant)
End If
cimOleObj.PlaceCall "utentediskype"
End Sub

Quindi, ingenuamente, visto che vi =C3=A8 una funzione simile ma che tratta=
 gli sms ho ricaricato il credito skype e ho tentato di svilupparla come se=
gue:

Private cimOleObj As SKYPE4COMLib.ISkype
Sub OnExpressionHigh(exprValue As Variant)
End If
cimOleObj.SendMessage "utenteskype", "Messaggio per l'utente"
End Sub

Purtroppo per=C3=B2 a differenza del listato precedente, quando viene richi=
amato non succede proprio nulla.
Ho tentato anche di svilupparlo come =C3=A8 stato suggerito a dcomerlati, m=
a niente, ricevo un errore 168 "Expeting:End of Line" riferito alla penulti=
ma riga:


Dim mySkype As SKYPE4COMLib.Skype
Dim mySmsMessage As SKYPE4COMLib.SmsMessage
Dim mySmsNumber As String
Dim mySMSText As String

Sub OnKeyDown(key As Integer)
  =20
   mySmsNumber =3D "+16515551212"
   mySMSText =3D "This is a test message"
  =20
   Set mySmsMessage =3D mySkype.CreateSms(smsMessageTypeOutgoing, mySmsNumb=
er)
   mySmsMessage.Body =3D mySMSText
   Call mySmsMessage.Send=20
  =20
End Sub


Se foste cos=C3=AC gentili da aiutarmi ve ne sarei grato.
Grazie