עבודה עם FAX
שלום לכולם ברצוני לשלוח פקס דרך VB, לצורך כך נתקלתי במס' קודים למשלוח פקס אבל אף אחד מהם פשוט לא עובד. תמיד מתקבלת הודעת שגיאה R.T.E -2147024890 אוליי מישהו מכיר שיטה קלה לפתור את הבעיה. להלן הקוד המצורף Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Public Function Fax(ByVal FileName As String, ByVal FaxNumber As String) Dim FaxServer As Object Dim FaxDoc As Object Dim ComputerName As String ComputerName = String(50, Chr(0)) Call GetComputerName(ComputerName, 50) ComputerName = Trim(Replace(ComputerName, Chr(0), "")) Set FaxServer = CreateObject("FaxServer.FaxServer") FaxServer.Connect ("\\" & ComputerName) Set FaxDoc = FaxServer.CreateDocument(FileName) With FaxDoc .FaxNumber = FaxNumber .Send End With Set FaxDoc = Nothing Set FaxServer = Nothing End Function Private Sub Command1_Click() a = Fax("c:\111", "2323") End Sub שימו לב : לפני הפעלת הקוד יש לבדוק שפקס ותוכנת פקס של WINDOWS מותקנים ויש להוסיף REFERECE בשם Faxcom 1.0 type libary
שלום לכולם ברצוני לשלוח פקס דרך VB, לצורך כך נתקלתי במס' קודים למשלוח פקס אבל אף אחד מהם פשוט לא עובד. תמיד מתקבלת הודעת שגיאה R.T.E -2147024890 אוליי מישהו מכיר שיטה קלה לפתור את הבעיה. להלן הקוד המצורף Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Public Function Fax(ByVal FileName As String, ByVal FaxNumber As String) Dim FaxServer As Object Dim FaxDoc As Object Dim ComputerName As String ComputerName = String(50, Chr(0)) Call GetComputerName(ComputerName, 50) ComputerName = Trim(Replace(ComputerName, Chr(0), "")) Set FaxServer = CreateObject("FaxServer.FaxServer") FaxServer.Connect ("\\" & ComputerName) Set FaxDoc = FaxServer.CreateDocument(FileName) With FaxDoc .FaxNumber = FaxNumber .Send End With Set FaxDoc = Nothing Set FaxServer = Nothing End Function Private Sub Command1_Click() a = Fax("c:\111", "2323") End Sub שימו לב : לפני הפעלת הקוד יש לבדוק שפקס ותוכנת פקס של WINDOWS מותקנים ויש להוסיף REFERECE בשם Faxcom 1.0 type libary