strMessage = SplitSMS(_dtMessageQueue.Rows(0)("Response"), 155)
For i As Integer = 0 To strMessage.GetUpperBound(0)
Try
With SerialPort1
.Write("AT" & vbCrLf)
Threading.Thread.Sleep(2000)
.Write("AT+CMGF=1" & vbCrLf)
Threading.Thread.Sleep(2000)
.Write("AT+CMGS=" & Chr(34) & _dtMessageQueue.Rows(0)("MobileNo") & Chr(34) & vbCrLf)
.Write(strMessage(i) & Chr(26) & vbCrLf)
Threading.Thread.Sleep(3000)
End With
Catch ex As Exception
MsgBox(ex.Message)
End Try
Next
我已经编写了上面的代码,以便将短信从我的vb.net应用程序发送到手机。
是否可以在不拆分邮件的情况下发送邮件
我想将邮件作为一个邮件发送。