Skip to content

Instantly share code, notes, and snippets.

CallUrl = BASEURL & “/2010-04-01/Accounts/” & ACCOUNTSID & “/Calls”
roster![ContactNumber]
Private Sub btnOK_Click()
Dim msg As String
msg = Me.txtMessage.Value
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Set db = CurrentDb
For i = 1 To Selection.Rows.Count
SendSMS "+17045943984", Selection.Cells(i, CONTACTNUMBERCOLUMNINDEX), Me.txtMessage
Next i
Function SendSMS(fromNumber As String, toNumber As String, body As String)
Dim SmsUrl As String
On Error GoTo Error_Handler
' setup the URL
SmsUrl = BASEURL & "/2010-04-01/Accounts/" & ACCOUNTSID & "/SMS/Messages"
' setup the request and authorization
Dim http As MSXML2.XMLHTTP60
Private Sub btnSend_Click()
Dim i As Integer
For i = 1 To Selection.Rows.Count
‘ Send a text message here
Next i
Me.Hide
End Sub
Public Sub conSendSms(control As IRibbonControl)
MsgBox “Hello World”
End Sub
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
<ribbon>
<tabs>
<tab id="customTab" label="TWILIOSO" insertAfterMso="TabHome">
<group id="customGroup" label="Messages">
<button id="customButton1" label="Send SMS" size="large" onAction="conSendSms" imageMso="twiliologo" />
</group>
</tab>
</tabs>
</ribbon>
[TestMethod]
public void Should_Buy_PhoneNumber_From_NoneAvailable_Area_Code()
{
var customer = new Customer(TEST_ACCOUNTSID, TEST_AUTHTOKEN);
var result = customer.BuyNumberFromAreaCode(AREA_CODE);
Assert.IsFalse(result);
}
[TestMethod]
public void Should_Populate_Customer_PhoneNumber()
{
var customer = new Customer(TEST_ACCOUNTSID, TEST_AUTHTOKEN);
var result = customer.BuyNumber(VALID_AVAILABLE_NUMBER);
Assert.IsTrue(result);
Assert.AreEqual(VALID_AVAILABLE_NUMBER, customer.PhoneNumber);
}