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

Reference:

Inspiration:

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

✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias