✔ Programação GLOBAL®: VBA Tips - Envie Fax através de suas aplicações VBA - Add Fax functionality to your VBA programs

| Blog Office VBA | Blog Excel | Blog Access |

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 ("bernardess@gmail.com", "Seu Assunto", "<Telefone>","O texto", "Seu nome")

End Sub