Visual Basic (VB ) é uma linguagem de programação usada para criar aplicações de software. VB pode enviar um fax usando uma biblioteca de objetos chamado FAXCOMEXLib . Coisas que você precisa
editor Visual Basic
Notepad
Show Mais instruções
1
Configurar uma nova sub-rotina em VB e chamar os objetos de biblioteca de fax e definir o variáveis :
Private Sub Form_Load () Dim
objFaxDocument As New FAXCOMEXLib.FaxDocument
Dim objFaxServer As New FAXCOMEXLib.FaxServer
Dim objSender Como FAXCOMEXLib . FaxSender
Dim JobID as Object
2
Configure Tratamento de erros de código para detectar quaisquer erros e impedir que o aplicativo deixe de funcionar :
On Error GoTo error_handler
3
Conecte-se ao objeto do servidor de fax: .
objFaxServer.Connect ("")
4
Abra o bloco de notas
5
Digite a mensagem de fax que você deseja enviar e salvar como um arquivo txt
6
importar o texto para o fax , incluindo o arquivo txt, criado nas etapas anteriores : . . .
objFaxDocument.Body = "c : \\ Fax \\ MyMessage.txt "
7
Defina o nome para o fax eo nível de prioridade :
objFaxDocument.DocumentName = "Minha Fax Name"
objFaxDocument.Priority = FAXCOMEXLib.FAX_PRIORITY_TYPE_ENUM.fptHIGH
neste caso, o fax será enviado imediatamente uma vez que o código é executado .
8
Adicionar um número de fax para o qual o fax será enviado :
objFaxDocument.Recipients.Add ( " 999999999 ", " Wayne " )
Substitua os números " 999999999 ", com o número de fax relevante .
9
Defina a opção de anexar o texto fax para um recebimento de fax , quando ele é enviado por email :
objFaxDocument.AttachFaxToReceipt = True
10
Escolha um tipo de folha de rosto:
objFaxDocument.CoverPageType = FAXCOMEXLib.FAX_COVERPAGE_TYPE_ENUM.fcptSERVER
objFaxDocument.CoverPage = "genérico"
11
Adicione o endereço de e-mail , onde o recebimento de fax serão enviados e definir o tipo de recibo para o email :
objFaxDocument.ReceiptAddress = " [email protected] "
objFaxDocument.ReceiptType = FAXCOMEXLib.FAX_RECEIPT_TYPE_ENUM.frtMAIL
< br > 12
Agende a hora em que o fax deve ser enviado :
objFaxDocument.ScheduleType = FAXCOMEXLib.FAX_SCHEDULE_TYPE_ENUM.fstSPECIFIC_TIME
objFaxDocument.ScheduleTime = CDate ( " 12:35:47 " )
13
Adicione o texto do assunto para o e-mail :
objFaxDocument.Subject =" fax de hoje "
14
Defina as propriedades para o remetente e salvar as informações :
objFaxDocument.Sender.Title = " Mr. "
objFaxDocument.Sender.Name = " John Ryan "
objFaxDocument.Sender.Email = " [email protected] "
objFaxDocument.Sender.ZipCode =" 44118 "
objFaxDocument.Sender.SaveDefaultSender ()
15
enviar o documento para o Fax servidor ea saída do ID Jó, quando ele é retornado da função :
JobID = objFaxDocument.ConnectedSubmit ( objFaxServer )
MsgBox (" o ID de trabalho é :" & JobID (0) )
16
desconectar do servidor de fax para que ele possa ser utilizado por outra pessoa e fechar a sub-rotina VB:
objFaxServer.Disconnect ()
Exit Sub < br >
17
Adicione a sub-rotina para lidar com os erros que ocorrem :
error_handler :
' Implementar tratamento dado no fim da sua sub-rotina de erro. Este
implementação "é para fins de demonstração
MsgBox (" Número do erro : "& Hex ( Err.Number ) &", " & Err.Description )
End Sub
Se houver algum erro ao tentar enviar um fax , este código vai
18
Salve o arquivo VB e executar o aplicativo de saída a informação do erro como uma mensagem pop-up. . O serviço de fax será chamado ea mensagem será enviada.
