Ask Question Forum:
Model Library:2025-02-08 Updated:A.I. model is online for auto reply question page
C
O
M
P
U
T
E
R
2
8
Show
#
ASK
RECENT
←
- Underline
- Bold
- Italic
- Indent
- Step
- Bullet
- Quote
- Cut
- Copy
- Paste
- Table
- Spelling
- Find & Replace
- Undo
- Redo
- Link
- Attach
- Clear
- Code
Below area will not be traslated by Google,you can input code or other languages
Hint:If find spelling error, You need to correct it,1 by 1 or ignore it (code area won't be checked).
X-position of the mouse cursor
Y-position of the mouse cursor
Y-position of the mouse cursor
Testcursor
caretPos
Attachment:===
Asked by arcross
at 2024-11-28 05:21:43
Point:500 Replies:1 POST_ID:828841USER_ID:10
Topic:
Microsoft Visual Basic.Net;;
Hi, Ive got a grid with a few files (.pdfs)and fax numbers so can anybody give me an example of how to use 'faxcomlib' to send these files by fax??
thanks!
thanks!
Accepted Solution
Expert: duncanb7 replied at 2024-11-30 23:10:29
500 points EXCELLENT
You can try this example code only, just idea only and Not completed code for your
code starting , other thing you need to analysis and debug it by yourself. It seems it is not easy
Hope understand your question completely. If not please advise it
Duncan
code starting , other thing you need to analysis and debug it by yourself. It seems it is not easy
Hope understand your question completely. If not please advise it
Duncan
Imports FAXCOMLibPublic Class Form1Inherits System.Windows.Forms.Form#Region " Windows Form Designer generated code "Public Sub New()MyBase.New()'This call is required by the Windows Form Designer.InitializeComponent()'Add any initialization after the InitializeComponent() callEnd Sub'Form overrides dispose to clean up the component list.Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)If disposing ThenIf Not (components Is Nothing) Thencomponents.Dispose()End IfEnd IfMyBase.Dispose(disposing)End Sub'Required by the Windows Form DesignerPrivate components As System.ComponentModel.IContainer'NOTE: The following procedure is required by the Windows Form Designer'It can be modified using the Windows Form Designer.'Do not modify it using the code editor.Friend WithEvents Button1 As System.Windows.Forms.ButtonFriend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialogFriend WithEvents Label1 As System.Windows.Forms.Label<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Me.Button1 = New System.Windows.Forms.Button()Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()Me.Label1 = New System.Windows.Forms.Label()Me.SuspendLayout()''Button1'Me.Button1.Location = New System.Drawing.Point(80, 89)Me.Button1.Name = "Button1"Me.Button1.Size = New System.Drawing.Size(128, 23)Me.Button1.TabIndex = 0Me.Button1.Text = "Select File To Send"''Label1'Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))Me.Label1.Location = New System.Drawing.Point(24, 33)Me.Label1.Name = "Label1"Me.Label1.Size = New System.Drawing.Size(240, 23)Me.Label1.TabIndex = 1Me.Label1.Text = "Send File To Fax"Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter''Form1'Me.AcceptButton = Me.Button1Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)Me.ClientSize = New System.Drawing.Size(292, 144)Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label1, Me.Button1})Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindowMe.Name = "Form1"Me.Text = "FaxIt"Me.ResumeLayout(False)End Sub#End RegionPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickTryDim fo As New OpenFileDialog()fo.Filter = "Microsoft Word Document (*.doc)|*.doc| Adobe PDF (*.pdf)|*.pdf"If fo.ShowDialog = DialogResult.OK ThenIf fo.FileName = "" ThenExit SubEnd IfElseExit SubEnd IfDim fxsvr = New FAXCOMLib.FaxServer()Dim fxdoc = fxsvr.CreateDocument(fo.FileName)Tryfxsvr.Connect("KEITH" 'Machine NameCatch ex As ExceptionMessageBox.Show(ex.ToString())End Tryfxdoc.FileName = fo.FileNamefxdoc.FaxNumber = InputBox("Fax Number:", "Enter Fax Number", -1, -1)fxdoc.RecipientName = ""Tryfxdoc.Send()Catch ex As ExceptionMessageBox.Show(ex.ToString())End Tryfxsvr.Disconnect()Catch ex As ExceptionMessageBox.Show(ex.message() & ControlChars.CrLf & ControlChars.CrLf & ex.ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)End TryEnd SubEnd Class 1:2:3:4:5:6:7:8:9:10:11:12:13:14:15:16:17:18:19:20:21:22:23:24:25:26:27:28:29:30:31:32:33:34:35:36:37:38:39:40:41:42:43:44:45:46:47:48:49:50:51:52:53:54:55:56:57:58:59:60:61:62:63:64:65:66:67:68:69:70:71:72:73:74:75:76:77:78:79:80:81:82:83:84:85:86:87:88:89:90:91:92:93:94:95:96:97:98:99:100:101:102:103:104:105:106:107:108:109:110:111:112:113:114:115:116:117:118:119:120:121:122:123:124:125:126:
