1 Replies - 5618 Views - Last Post: 13 February 2009 - 10:02 PM Rate Topic: -----

#1 Jeswills  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 1
  • Joined: 13-February 09

Send And Receive SMS from PC using VB6

Post icon  Posted 13 February 2009 - 09:13 PM


' Declare SMSModem object
Public WithEvents Modem As SMSModem


' Send SMS
Private Sub cmdSendMessage_Click()
	
  ' Open modem communication
  Set Modem = New SMSModem
  Modem.LogTrace = True
  Modem.OpenComm ModemType, ModemPort, , smsNotifyAll
	
  ' Send message
  Call Modem.SendTextMessage(PhoneNumber, MessageText)


End Sub


' Receive SMS by event
Private Sub Modem_MessageReceived(Message As SMSLibX.SMSDeliver)
  MsgBox "New message received from " & Message.Originator & ":" _
	& vbCrLf & vbCrLf & Message.Body, _
	vbInformation, "New message received"
End Sub




Is This A Good Question/Topic? 0
  • +

Replies To: Send And Receive SMS from PC using VB6

#2 PsychoCoder  Icon User is offline

  • Google.Sucks.Init(true);
  • member icon

Reputation: 1638
  • View blog
  • Posts: 19,853
  • Joined: 26-July 07

Re: Send And Receive SMS from PC using VB6

Posted 13 February 2009 - 10:02 PM

Are you receiving any errors? Does this code not work that way you intended it? When asking for help there are a couple items that are vital in order for someone to properly help you:

  • Post the code you're having problems with (DONE)
  • Post the exact error you're receiving, if you are receiving one
  • If no error explain what the code is doing versus what you want it to do
  • Post your question in the body of your post, not the description field

Was This Post Helpful? 0
  • +
  • -

Page 1 of 1