отправка смс с VBA

Question

кто-нибудь знает, возможно ли это?

Мне удалось успешно запустить гипертерминал и использовать его для отправки текстов через мой телефон, подключенный через USB.

кто-нибудь знает, как это сделать в VBA?

Answer 1

Если вы знаете адрес электронной почты другой стороны, вы можете просто отправить электронное письмо. В противном случае вам потребуется поставщик SMS-шлюза, который сможет доставлять сообщения в правильные сети.

Answer 2

Попробуйте:

Public Sub SendSMS(ByVal Recipient As String, ByVal Message As String)
  Dim n As Integer

  n = FreeFile
  ' Change  the string below if using a different COM port or the port speed
  Open "COM1:9600,N,8,1" For Output As #n
  Print #n, "<SMS command string>"
  Close #n
End Sub

К сожалению, у меня нет удобного кабеля для передачи данных для телефона, поэтому я не могу его попробовать!

Кроме того, помните, что вы можетене иметь доступа к последовательному порту, если вы не являетесь привилегированным пользователем.