[VBA] faxen vanuit code

[Verwijderd]

Mijn probleem:

ik heb een fax (officejet 4252 all in one) en ik wil vanuit vba code kunnen faxen met dat ding zonder dialoogvenstertjes met telefoonnummers etc. in te moeten voeren maar gewoon zoiets van :

Stuurfax(document,NaarNummer)

Ik heb al veel op google gezocht en ook hier op tweakers, maar ik kan niets vinden; in de meeste gevallen gaat het om verzenden van faxen via adsl of kabel, maar deze fax zit dus gewoon aan een tellijn en moet versturen naar reguliere nummers...

HP documentatie meldt niets over een dergelijke optie, maar ik kan me niet voorstellen dat het niet kan!

[CoRrRan]

Het kan wel, maar er zitten schijnbaar een aantal haken en ogen aan. (Dialoogvensters die gevuld moeten worden met het "SendKeys" commando, C/C++ code om een Library te accessen, etc...)

Een snelle zoek op groups.google.com (http://groups.google.com/groups/search?q=vba+fax) levert een flink aantal resultaten op en 1 van deze resultaten levert een VBA oplossinkje:

Visual Basic:

Public Sub FaxeFeuille(FeuilleAFaxer As String, destinataire As String, 
numero As String) 
    Dim keys As String 
    Worksheets(FeuilleAFaxer).Select 
    keys  "^p%nfax~~~" & destinataire & "{TAB}{TAB}" & numero 
    SendKeys keys 
End Sub

'You must have a fax printer called "Fax". 
'Works on Excel 2K / Windows Xp

(Gare Franse variabele namen.)

Misschien dat je hier iets mee kunt.

[ Voor 9% gewijzigd door CoRrRan op 24-05-2006 00:02 ]

[onkl]

Het zal ongetwijfeld kunnen, maar ik weet niet of het een goed idee is.
Is het niet beter om voor een paar Euro in de V&A een faxmodem op de kop te tikken en dan via de Windows-fax methodieken te werken?
Handleidingachtig iets voor intergratie met VBA
relevante microsoft groep

[Verwijderd]

CoRrRan schreef op woensdag 24 mei 2006 @ 00:02:
Het kan wel, maar er zitten schijnbaar een aantal haken en ogen aan. (Dialoogvensters die gevuld moeten worden met het "SendKeys" commando, C/C++ code om een Library te accessen, etc...)

Een snelle zoek op groups.google.com (http://groups.google.com/groups/search?q=vba+fax) levert een flink aantal resultaten op en 1 van deze resultaten levert een VBA oplossinkje:

Visual Basic:

Public Sub FaxeFeuille(FeuilleAFaxer As String, destinataire As String, 
numero As String) 
    Dim keys As String 
    Worksheets(FeuilleAFaxer).Select 
    keys  "^p%nfax~~~" & destinataire & "{TAB}{TAB}" & numero 
    SendKeys keys 
End Sub

'You must have a fax printer called "Fax". 
'Works on Excel 2K / Windows Xp

(Gare Franse variabele namen.)

Misschien dat je hier iets mee kunt.

Het idee is leuk, maar SendKeys werkt bij mij binnen de Accessapplicatie zelf, niet buiten de applicatie... ik had gehoopt op iets van:

Fax.nummer = 12345678
Fax.doc = "C:\doc.doc"
Fax.verzenden

maarja dat lijkt niet te kunnen (zonder 3rd party sofware)

[Verwijderd]

onkl schreef op woensdag 24 mei 2006 @ 09:19:
Het zal ongetwijfeld kunnen, maar ik weet niet of het een goed idee is.
Is het niet beter om voor een paar Euro in de V&A een faxmodem op de kop te tikken en dan via de Windows-fax methodieken te werken?
Handleidingachtig iets voor intergratie met VBA
relevante microsoft groep

ziet er goed uit, ik ga er mee aan de slag!