Private Sub Command1_Click() Dim objFaxServer As FaxServer Dim objFaxDoc As FaxDoc
Set objFaxServer = CreateObject("FaxServer.FaxServer") objFaxServer.Connect CreateObject("WScript.Network").ComputerName Set objFaxDoc = objFaxServer.CreateDocument("FaxDocument") With objFaxDoc .DisplayName = "ドキュメント名" .FileName = "c:\test.txt" 'FAXで送りたいファイルをフルパスで .FaxNumber = "0748231234" 'ハイフンを入れずに(Fax番号) End With Call objFaxDoc.Send Call objFaxServer.Disconnect Set objFaxServer = Nothing End Sub