Re: Send a fax from VBA

Well Vic, after a lot of time involved in searching for other solutions, I
finally took yours.
So thank you again for this Tip, the other solutions were unfortunately
unsuccessfull!

Here is my function:

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 german.

BR
Jérémie


"Vic Eldridge" <VicEldridge@xxxxxxxxxxxxxxxxxxxxxxxxx> schrieb im
Newsbeitrag news:320F7DCA-00EC-4B94-8471-44F841B08F96@xxxxxxxxxxxxxxxx
> Hi Jérémie ,
>
> Typically, you would use the AppActivate statement to activate the fax
> assistant program. (This would not be needed if the assistant is already
> active.)
> Then you would use the Sendkeys statement to TAB to the required textbox
> and
> fill in the fax number. Use Sendkeys again to press the Enter key.
>
> Sendkeys is not without it's problems. Most proffesional programmers won't
> use it as it can be fouled up if the user presses keys while it is
> running.
> More robust techniques involve using a number of Win32 API functions.
>
>
> Regards,
> Vic Eldridge
>
>
>
> "Jérémie Gent" wrote:
>
>> Hi!
>>
>> I've got a work*** containing an invoice with client information
>> including
>> fax number.
>> I would like this invoice to be faxed when the user clicks on a button.
>> This works fine with the 'Printout' method of the Workbook (I can select
>> the
>> fax as printer and the assistant shows up, which I'm ok with).
>> However, I would like the fax number to be automatically set in the
>> assistant window, so that the user doesnt have to type it in manually.
>> Is there a way to do this without buying a third party component?
>>
>> I'm using Excel 2000.
>>
>> Thanks in advance!
>> Jérémie
>>
>>
>>


.