Views

Histats

Vitrine

VBA Tips - Envie Fax através de suas aplicações VBA - Add Fax functionality to your VBA programs

Inline image 1

Envie Faxes através das suas aplicações de VBA por utilizar APIs Web Services.

Uma simples chamada ao WebserviceX.net permite que envie faxes gratuitamente para uma série de países. É verdade que ficará limitado a quantidade de textos que poderá enviar, mas é uma excelente ferramenta para mensagens essenciais. E vale a pena pelo preço, se o código de área-alvo for suportado. 

A função retornará True se o fax foi enviado.

Function SendFax (fromEmail As String, subject As String, faxNumber As String, bodyText As String, toName As String) As Boolean
' for coverage and detailed usage instructions
Dim xml As Object
Dim result As String
  Set xml = CreateObject("MSXML2.XMLHTTP.6.0")
  xml.Open "GET", _
      fromEmail & "&Subject=" & subject & "&FaxNumber=" & faxNumber & _
      "&BodyText=" & bodyText & "&ToName=" & toName, False
  xml.Send
  result = xml.responsetext
  ' parse response for msg
  If InStr(result, "Your Message has sent successfully") > 0 Then
    SendFax = True
  End If
End Function

Como usuar?
Seu endereço de email
O assunto do fax
O número do fax (sem hífens ou espaços)
O texto do fax
Seu Nome

Sub TestSendFax()
MsgBox SendFax ("seus_email@bernardes.com", "Seu Assunto", "<Telefone>","O texto", "Seu nome") 
End Sub


Reference:

Inspiration:

TagsVBA, Tips, send, fax, Faxes, Fac-Símile, WebserviceX.net, 

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...