Problem med API

Dim at As new isuusAPI

niels

Nu for jeg den fejl Type mismatch.

Dette er min kode

Public Function sms(No, Text, App, User, Oid) As String
Dim at As New isuusAPI
at.hostname = "10.56.9.8"
at.port = 55123

'Fejl HER
sms (at.sendMessage(No, Text, App, User, Oid))
'
End Function
Private Sub smsBotton_Click()
Temp = Telstur.Value
Send = sms("+4588888888", Temp, "Access", "faroe", "")
End Sub

Nu ved jeg ikke hvad du vil med dine kald MEN jeg tror du skal gøre sådan her:

Public Function sms(No, Text, App, User, Oid) As boolean
on error goto ehandler
Dim at As New isuusAPI
at.hostname = "10.56.9.8"
at.port = 55123

'Fejl HER
at.sendMessage No, Text, App, User, Oid
sms = true
exit function
eHandler:
sms = false
'
End Function


Private Sub smsBotton_Click()
Temp = Telstur.Value
if sms("+4588888888", Temp, "Access", "faroe", "") then
  msgbox "din sms blev sendt
end if

End Sub

Eller hvad skal funktionen sms returnere ??

Seper fungerer fint :))))
Lav lige et svar

:)

Den skal vel egentlig vendes:

if not sms("+4588888888", Temp, "Access", "faroe", "") then
  msgbox "din sms blev IKKE sendt"
end if