Passing the ph number to LAN-fax using a macro.

jag108

Active Member
Joined
May 14, 2002
Messages
433
Office Version
  1. 365
  2. 2016
Platform
  1. Windows
  2. MacOS
Hi Guys,

Done a bit of searching on this one, but cant seem to find any real information, any way the guts of the problem I am having is.

I need to send the phone number to LAN fax as a variable so that when the Fax dialog box comes up, it already has the fax number field populated.

This sounds easy, but according to my investigations it is not so...

I am hopeful that the combined skills of this forum will win out and we will come to a solution.. yeah!

:biggrin:
 

Excel Facts

Spell Check in Excel
Press F7 to start spell check in Excel. Be careful, by default, Excel does not check Capitalized Werds (whoops)
Two ideas.

I'm not familiar with LAN fax but can you start it with a command line switch, or by adding the number as part of the command line ?

another way might be to start it and then use the sendkeys method within a macro to add your phone number.

Chris
 
Upvote 0
Outlook

Some companies (mine included) have integrated the ability to send faxes with Exchange. It's as simple as using the phone number up in the To: field of your emails. Something like the below is how you can generate an email from code.


Code:
Public Function sendMail(ByVal Recipient As String, _
                         ByVal Subject As String, _
                         ByVal Message As String, _
                         Optional ByVal AttachmentPath As String)
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookAttach As Outlook.Attachment
Dim MessageHeader

Set objOutlook = CreateObject("Outlook.Application")

' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
   .To = Recipient
   .Subject = Subject
   .Body = Message
   .Importance = olImportanceNormal 'Selects importance

   If Not IsMissing(AttachmentPath) Then
      Set objOutlookAttach = .Attachments.Add(AttachmentPath)
   End If
End With
objOutlookMsg.Send

Set objOutlook = Nothing
End Function
 
Upvote 0
We are not running on Exchange server just yet, I will bear it in mind for when we do up grade to Exchange. But at the moment we are using a Linux based IMAPSP system, and is completly apart from the email system.
The printer server is running on Win2K3, I have yet to find out if the driver will accept CLI commands.

All I am trying to do is help the users in sending Faxes, some times they are doing a great deal of them manually. Printing them out then going to the fax machine and manually sending the fax. I would really like to help them become more productive.

I will keep looking and post a successful response once I find it.

And thanks to all that are also assisting me in this endevaour!

:biggrin:
 
Upvote 0

Forum statistics

Threads
1,221,854
Messages
6,162,448
Members
451,765
Latest member
craigvan888

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top