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

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", _

      "http://www.webservicex.net/fax.asmx/SendTextToFax?FromEmail=" & _

      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:

http://www.webservicex.net/WCF/ServiceDetails.aspx?SID=23

Inspiration:

Tags: VBA, Tips, send, fax, Faxes, Fac-Símile, WebserviceX.net,