Mobile

Richard MacCutchan wrote:

my brain was powered off.

package com.partho.smstomany;

import android.app.Activity;
import android.os.Bundle;

import android.content.Intent;
import android.net.Uri;

import java.util.StringTokenizer;
import android.app.PendingIntent;
import android.telephony.SmsManager;

public class pSMSToMany extends Activity
{
    /** Called when the activity is first created. */
    @Override
    public void onCreate(Bundle savedInstanceState)
    {
        super.onCreate(savedInstanceState);
        setContentView(R.layout.main);

		String message = "Some Message";
        String phoneNo = "5556;5558";
		
		StringTokenizer st=new StringTokenizer(phoneNo,";");
		while (st.hasMoreElements())
		{
			String tempMobileNumber = (String)st.nextElement();
			if(tempMobileNumber.length()>0 && message.trim().length()>0) {
				SmsManager sms = SmsManager.getDefault();
				sms.sendTextMessage(tempMobileNumber, null, message, null, null);    
			}
		}
    }
}

Eric Nzai wrote:

I thought this dll comes with Windows Mobile

Private Sub PDUSMS()
        If Comport = "" Then MsgBox("Please Choose A connection") : Return
        smsPort.PortName = Comport
        smsPort.BaudRate = "115200"
        smsPort.Parity = Parity.None
        smsPort.DataBits = 8
        smsPort.StopBits = StopBits.One
        smsPort.Handshake = Handshake.RequestToSend
        smsPort.DtrEnable = True
        smsPort.RtsEnable = True
        smsPort.NewLine = vbCrLf

        If Not (smsPort.IsOpen = True) Then
            smsPort.Open()
        End If
        At_length = "17"
        PDU_code = "079144772800800011000C914477529628010000AA03E8721E"
        'smsPort.WriteLine("AT" & vbCrLf)
        'System.Threading.Thread.Sleep(2000) 'Pause to allow last command to get to phone
        smsPort.WriteLine("AT+CMGF=0" & vbCrLf) 'open space for new message
        System.Threading.Thread.Sleep(2000) 'Pause to allow last command to get to phone
        smsPort.WriteLine("AT+CSMS=0" & vbCrLf) 'open space for new message
        System.Threading.Thread.Sleep(2000) 'Pause to allow last command to get to phone
        smsPort.WriteLine("AT+CMGS=" + At_length + vbCrLf) '+ Chr(34) + At_length + Chr(34) +
        System.Threading.Thread.Sleep(2000) 'Pause to allow last command to get to phone
        smsPort.WriteLine(PDU_code + Chr(26)) 'number to send message to  + vbCrLf +
        System.Threading.Thread.Sleep(2000)

        If smsPort.IsOpen = True Then
            smsPort.Close()
        End If
    End Sub