Hallo zusammen,
möchte per Makro aus Excel das Fax ansteuern und das aktuelle Blatt als Fax an diese Nummer senden.
Excel 2003
Microsoft Shared Fax Driver
XPP
Wie kann ich das machen?
Danke
M
möchte per Makro aus Excel das Fax ansteuern und das aktuelle
Blatt als Fax an diese Nummer senden.
Excel 2003
Microsoft Shared Fax Driver
XPP
Hallo Michael,
meinst du mit XPP XML Professional Publisher?
vielleicht hilft dir das weiter:
http://msdn.microsoft.com/en-us/library/ms692936.aspx
nachstehend ist der Code der Seite. Ist zwar für VB aber das ist nicht das Hauptproblem.
Sowie ich das recherchiert habe brauchst du für FAXCOMEXLib einen Verweis auf
Microsoft Fax Service Extended COM Type Library
Aber das habe ich nicht genau geprüft, kann mich da auch irren.
Vielleicht ist auch dieser VBS Code hilfreich:
http://sandlerco.com/VBScript.htm
Gruß
Reinhard
Private Sub Form\_Load()
Dim objFaxDocument As New FAXCOMEXLib.FaxDocument
Dim objFaxServer As New FAXCOMEXLib.FaxServer
Dim objSender As FAXCOMEXLib.FaxSender
Dim JobID As Object
'Error handling
On Error GoTo Error\_Handler
'Connect to the fax server
objFaxServer.Connect("")
'Set the fax body
objFaxDocument.Body = "c:\Docs\Body.txt"
'Name the document
objFaxDocument.DocumentName = "My First Fax"
'Set the fax priority
objFaxDocument.Priority = FAXCOMEXLib.FAX\_PRIORITY\_TYPE\_ENUM.fptHIGH
'Add the recipient with the fax number 12225550100
objFaxDocument.Recipients.Add("12225550100", "Bud")
'Choose to attach the fax to the fax receipt
objFaxDocument.AttachFaxToReceipt = True
'Set the cover page type and the path to the cover page
objFaxDocument.CoverPageType = FAXCOMEXLib.FAX\_COVERPAGE\_TYPE\_ENUM.fcptSERVER
objFaxDocument.CoverPage = "generic"
'Provide the cover page note
objFaxDocument.Note = "Here is the info you requested"
'Provide the address for the fax receipt
objFaxDocument.ReceiptAddress = "[email protected]"
'Set the receipt type to email
objFaxDocument.ReceiptType = FAXCOMEXLib.FAX\_RECEIPT\_TYPE\_ENUM.frtMAIL
'Specify that the fax is to be sent at a particular time
objFaxDocument.ScheduleType = FAXCOMEXLib.FAX\_SCHEDULE\_TYPE\_ENUM.fstSPECIFIC\_TIME
'CDate converts the time to the Date data type
objFaxDocument.ScheduleTime = CDate("4:35:47 PM")
objFaxDocument.Subject = "Today's fax"
'Set the sender properties.
objFaxDocument.Sender.Title = "Mr."
objFaxDocument.Sender.Name = "Bob"
objFaxDocument.Sender.City = "Cleveland Heights"
objFaxDocument.Sender.State = "Ohio"
objFaxDocument.Sender.Company = "Microsoft"
objFaxDocument.Sender.Country = "USA"
objFaxDocument.Sender.Email = "[email protected]"
objFaxDocument.Sender.FaxNumber = "12165555554"
objFaxDocument.Sender.HomePhone = "12165555555"
objFaxDocument.Sender.OfficeLocation = "Downtown"
objFaxDocument.Sender.OfficePhone = "12165555553"
objFaxDocument.Sender.StreetAddress = "123 Main Street"
objFaxDocument.Sender.TSID = "Office fax machine"
objFaxDocument.Sender.ZipCode = "44118"
objFaxDocument.Sender.BillingCode = "23A54"
objFaxDocument.Sender.Department = "Accts Payable"
'Save sender information as default
objFaxDocument.Sender.SaveDefaultSender()
'Submit the document to the connected fax server
'and get back the job ID.
JobID = objFaxDocument.ConnectedSubmit(objFaxServer)
MsgBox("The Job ID is :" & JobID(0))
objFaxServer.Disconnect()
Exit Sub
Error\_Handler:
'Implement error handling at the end of your subroutine. This
' implementation is for demonstration purposes
MsgBox("Error number: " & Hex(Err.Number) & ", " & Err.Description)
End Sub