Add web address to collection. Returns the new URL object. URLs are not saved until the owning object (the contact or project) is saved.
Namespace:
SuperOffice.COM.SuperOfficeDB
Assembly:
SuperOfficeDB.Interop (in SuperOfficeDB.Interop.dll) Version: 8.0.0.0
SyntaxSOUrl Add(
string strUrl,
string strDescr
)
Function Add (
strUrl As String,
strDescr As String
) As SOUrl
Dim instance As IUrls
Dim strUrl As String
Dim strDescr As String
Dim returnValue As SOUrl
returnValue = instance.Add(strUrl, strDescr)
SOUrl^ Add(
[InAttribute] String^ strUrl,
[InAttribute] String^ strDescr
)
Parameters
- strUrl
- Type: SystemString
A string representing the URL e.g. <A href="http://www.superoffice.com/"><a href="http://www.superoffice.com/">http://www.superoffice.com/</a></A> - strDescr
- Type: SystemString
Descriptive text, e.g. SuperOffice ASA main web-site
Return Value
Type:
SOUrlSOUrl – The newly added URL
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 URL to the current contact.
Dim objSO
Set objSO = CreateObject("SuperOffice.Application")
If not (objSO is nothing) Then
objSO.CurrentContact.Urls.Add "http://www.superoffice.com/", "SuperOffice ASA main web-site"
MsgBox "An new URL is added to the current contact"
else
MsgBox "Unable to connect to database"
end if
Set objSO = Nothing
See Also