Sending SMSs on batch through MPE and Excel

Anmeldedatum: 12.01.2009 Beiträge: 17

Happy new year to all the geeks!

I herein revive an old subject for which I never ended.

The objective is to automatically send SMSs to multiple recipients based on an excel sheet containing a list of phone numbers and individualized messages.

Let us say that
column 1 contains the phone numbers (from cell A5)
column 2 contains the message to be sent (from B5)

We know (from the following topic https://www.fjsoft.at/forum/viewtopic.php?t=373 link that the appropriate syntax required for MPE is below

"C:\Program Files (x86)\MyPhoneExplorer\MyPhoneExplorer.exe", action=sendmessage savetosent=1 number=+33611236962 text="This is the message to be sent"

and when this command is sent from a DOS windows, it works perfectly.

My concern is that I cannot succeed in sending such a line from an Excel macro

The macro below (between >>>> and <<<<<) is almost operational, but
I am puzzled when finding the appropriate syntax for sending line itself

>>>>>>>>>>
Sub Send_SMS_Via_MPE()
'
'
' this macro should send SMS based
' on the table starting at A5
' given that A5 is the phone number and B5 the message to send
'
Dim a, b As String
Dim x As Integer
For x = 5 To Range("a32000").End(xlUp).Row 'We guess this is enough

a = Cells(x, 1)
b = Cells(x, 2)

' the goal is to elaborate below the command to send

'''''Something like : shell ("C:\Program Files (x86)\MyPhoneExplorer\MyPhoneExplorer.exe, action=sendmessage savetosent=1 number="&a&" text= & b &"))

'Now we wait a little before moving to next line
Application.Wait (Now + TimeValue("00:00:05"))

Next
End Sub
<<<<<<<<<<

Could a VBA guru give me a hand on this point?

Many thanks

Loic

Verfasst am: So Jan 05, 2025 00:30

Code:

Dim txt as String
Dim num as String

txt = "Hello"
num = "0123456789"

RunMPE("action=sendmessage number=" & num & " text=""" & txt & """")

Function RunMPE(Arguments)
set shell = CreateObject("WScript.Shell")
shell.run "myphoneexplorer " & Arguments ,3
End Function

This should do the job

Anmeldedatum: 12.01.2009 Beiträge: 17

Hi FJ,
thanks for this quick answer

Unfortunately, I cannot make it work, probably uncorrectly wrapped within my macro.

I was naively hoping someone to merely correct the macro I provided in my
post with the correct syntax in the line beginning with : ''''Something like"

Because I am not able to wrap the code you provide in an appropriate macro

Should I put it in a macro or somewhere else?

Anmeldedatum: 12.01.2009 Beiträge: 17

Hi Franz Josef,
Hi everybody,

Please do not continue a possible search, I think I have found the solution.

For all intents and purposes please find below a possible script,

>>>>>>>>>>>>>>>>
Sub Send_SMS_Via_MPE()
'
' this macro should send SMS based
' on the table starting at A5
' given that A5 is the phone number and B5 the message to send
'
Dim CheminProgramme, Number, Message, Command As String
Dim x As Integer
Dim PID As Long

FullProgramName = "C:\Program Files (x86)\MyPhoneExplorer\MyPhoneExplorer.exe"

For x = 5 To Range("a32000").End(xlUp).Row 'We guess this is enough

Number = Cells(x, 1) ' Get the phone number from column A
Message = Cells(x, 2) ' Get the message string from column B
Command = Chr(34) & FullProgramName & Chr(34) & " " & "action=sendmessage savetosent=1 " + "number=" + Number + " text=" + Chr(34) + Message + Chr(34)

' Execute the command
On Error Resume Next
PID = Shell(Command, vbNormalFocus)
If Err.Number <> 0 Then
MsgBox "Error while executing the program : " & Err.Description, vbExclamation, "Erreur"
End If
On Error GoTo 0

' Now wait a little before moving to next line
Application.Wait (Now + TimeValue("00:00:05"))

Next
End Sub

<<<<<<<<<<<<<<<<<<<<<<<<

Thanks again

Regards

Anmeldedatum: 18.01.2025 Beiträge: 1

I have tried this but can't get it to work.
Does this need some changes in the init file as well or is it just the macro?

Moderator Anmeldedatum: 19.04.2014 Beiträge: 17200

@JensF
In principle, the code is OK, but contains small errors.
The prerequisite in both codes is that the numbers are in column A and the SMS texts are in column B as of line 5
Try it with the following code:

Code:

Sub Send_SMS_Via_MPE()
Dim Number, Message, Command As String
Dim x As Long
Dim PID As Long, yLast As Long
Dim PrgPath As String

PrgPath = "C:\Program Files (x86)\MyPhoneExplorer\MyPhoneExplorer.exe"
yLast = ActiveSheet.Cells(65536, 1).End(xlUp).Row
For x = 5 To yLast
Number = Cells(x, 1)
Message = Cells(x, 2)
Command = Chr(34) & PrgPath & Chr(34) & " " & "action=sendmessage savetosent=1 " + "number=" + Number + " text=" + Chr(34) + Message + Chr(34)

On Error Resume Next
PID = shell(Command, vbNormalFocus)

If Err.Number <> 0 Then
MsgBox "Error while executing the program : " & Err.Description, vbExclamation, "Error"
End If
On Error GoTo 0

Application.Wait (Now + TimeValue("00:00:05"))
Next

If it still doesn't work, try to describe the problem in more detail!

Verfasst am: Mo Jan 20, 2025 18:45

Just for completeness, this Excel VBA Script exports the table into a xml-batch-file and advices MyPhoneExplorer to send the messages.

Code:

Sub Send_SMS_Via_MPE()
' Declare variables
Dim FullProgramName As String
Dim BatchPath As String
Dim Number As String
Dim Message As String
Dim Command As String
Dim PID As Long
Dim LastRow As Long
Dim x As Long

' Set the path to MyPhoneExplorer executable
FullProgramName = "C:\Program Files (x86)\MyPhoneExplorer\MyPhoneExplorer.exe"
BatchPath = "Z:\test.xml"

' Determine the last row with data in column A
LastRow = Cells(Rows.Count, 1).End(xlUp).Row

Open BatchPath For Output As #1

Print #1, "<?xml version=""1.0"" encoding=""ISO-8859-1"" standalone=""yes""?>"
Print #1, "<batch>"

For x = 2 To LastRow
Number = Trim(Cells(x, 2).Value)
Message = Trim(Cells(x, 4).Value)

If Len(Number) > 0 And Len(Message) > 0 Then
Print #1, "<message>"
Print #1, " <recipient>" & EncodeValue(Number) & "</recipient>"
Print #1, " <text>" & EncodeValue(Message) & "</text>"
Print #1, "</message>"
Else
MsgBox "Row " & x & " has missing data. Skipping.", vbExclamation, "Missing Data"
End If
Next x

Print #1, "</batch>"

Close #1

Command = Chr(34) & FullProgramName & Chr(34) & " action=sendmessage batchfile=" & Chr(34) & BatchPath & Chr(34)

' Execute the command
On Error Resume Next
PID = Shell(Command, vbNormalFocus)
If Err.Number <> 0 Then
MsgBox "Error while starting batch: " & Err.Description, vbExclamation, "Error"
Err.Clear
End If
On Error GoTo 0
End Sub

Informationen zum Datenschutz auf dieser Website