Add a phone number to the collection. Type is 1=phone, 3=fax, 5=mobile
Namespace:
SuperOffice.COM.SuperOfficeDB
Assembly:
SuperOfficeDB.Interop (in SuperOfficeDB.Interop.dll) Version: 8.0.0.0
SyntaxSOPhone Add(
string strPhone,
string strDescr,
int Type = 1
)
Function Add (
strPhone As String,
strDescr As String,
Optional Type As Integer = 1
) As SOPhone
Dim instance As IPhones
Dim strPhone As String
Dim strDescr As String
Dim Type As Integer
Dim returnValue As SOPhone
returnValue = instance.Add(strPhone, strDescr,
Type)
SOPhone^ Add(
[InAttribute] String^ strPhone,
[InAttribute] String^ strDescr,
[InAttribute] int Type = 1
)
Parameters
- strPhone
- Type: SystemString
A string representing the phone i.e 22 51 70 00 - strDescr
- Type: SystemString
Descriptive text - Type (Optional)
- Type: SystemInt32
Long
Return Value
Type:
SOPhoneSOPhone – The newly added Phone
ExamplesAdd
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
This will add a new phone to the current contact.
Dim objSO
Set objSO = CreateObject("SuperOffice.Application")
If not (objSO is nothing) Then
objSO.CurrentContact.Phones.Add �22 51 70 00�, �SuperOffice ASA phone�
MsgBox "An new phone is added to the current contact�
else
MsgBox "Unable to connect to database"
end if
Set objSO = Nothing
See Also