A1VBCode Forums

Send SMS with Greek Characters


http://www.a1vbcode.com/vbforums/Topic32235.aspx

By makis_best - 11/23/2014

Hi..



I am trying to fix one application for my business with Visual Basic 2010.

With this application i am retrieving some records from my sql server 2008

and put them in a datagrid. There I add some info in every line typing.



Then I press a button and I send these lines as SMS.

The language I use is Greek.



The problem is that when I send the SMS with my ZTE MF195 3G USB Modem

I get only Chinese characters.



How I can solve this problem.



The code I use to send the SMS is



If SerialPort1.IsOpen() Then

ToolStripStatusLabel1.Text = "Port " & SerialPort1.PortName & " is open"

SerialPort1.Write("AT" & vbCrLf)

Threading.Thread.Sleep(1000)

ToolStripProgressBar1.Value = ToolStripProgressBar1.Value + 25

SerialPort1.Write("AT+CMGF=1" & vbCrLf)

Threading.Thread.Sleep(1000)

ToolStripProgressBar1.Value = ToolStripProgressBar1.Value + 25

SerialPort1.Write("AT+CMGS=" + Chr(34) & DataGridView1.Item(1, i).Value.ToString() + Chr(34) & vbCrLf)

Threading.Thread.Sleep(1000)

ToolStripProgressBar1.Value = ToolStripProgressBar1.Value + 25

SerialPort1.WriteLine("TEST Μύνημα" & vbCrLf & Chr(26))

Threading.Thread.Sleep(1000)

ToolStripProgressBar1.Value = ToolStripProgressBar1.Value + 25

SerialPort1.Close()

ToolStripStatusLabel1.Text = "Port " & SerialPort1.PortName & " is close"

'MsgBox("Sent")

Else

MsgBox("Not sent")

End If




I try to find some answer in the internet but I couldn't find something specific.

Any help will be appreciated.



Thank you
By makis_best - 11/26/2014

Thank you for the help but didn't help