[Last Call] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 615
  • Last Modified:

Faxing with VB

How do I create a fax in a VB program that will be stuffed in the outbox of MS Fax?
0
DrDamnit
Asked:
DrDamnit
  • 4
  • 3
  • 2
  • +3
1 Solution
 
Bob LambersonSoftware EngineerCommented:
0
 
Bob LambersonSoftware EngineerCommented:
0
 
DrDamnitAuthor Commented:
I really need to use either MS Fax or WinFax 10.
0
Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

 
aikimarkCommented:
If you have a fax device defined, then why not just print to it?
0
 
Bob LambersonSoftware EngineerCommented:
Came across another site that may help you see...... Send a Fax Using Outlook/Microsoft Fax   at  http://www.freevbcode.com/ShowCode.Asp?ID=2402

Bob
0
 
koolnurdCommented:
'What all you require on the system installed are
'1. Microsoft Fax (from \tools\oldwin95 folder on Win98 CD.)
'2. Microsoft Outlook. (not Outlook Express)


TelNo = "223344" '*** You can use any intl format also
'Create a mail item.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
    With objOutlookMsg
        .To = "[Fax:" & TelNo & "]"
        .Subject = "Automated System Reports."
        .Body = "To Mr. XYZ" & Chr(10) & " This is an Automated Transmission from the computer." & Chr(10) _ & "Send Fax Completed." & Chr(10) & "------ End of Doc ------"
        .Importance = olImportanceHigh
        .Attachments.Add ("C:\....") 'Pathname+filename with ext
        .Send
    End With
Set objOutlookMsg = Nothing
0
 
DrDamnitAuthor Commented:
KoolNurd:

Are there some references to that? objOutlook is undefined.
0
 
DrDamnitAuthor Commented:
KoolNurd:

I fixed that problem (you were using my code above...duh.... my bad); however, when I fire the code, I get this:

Your message did not reach some or all of the intended recipients.

      Subject:      Automated System Reports.
      Sent:      11/8/2004 3:56 AM

The following recipient(s) could not be reached:

      '770xxxxxxx' on 11/8/2004 3:56 AM
            None of your e-mail accounts could send to this recipient.

I "x'ed" out the phone number on purpose to protect the innocent. What am I doing wrong? Why is it not going to MS Fax?
0
 
DrDamnitAuthor Commented:
Connection to fax server failed. Do I have fax server installed right? How do I know? I have faxing installed....
0
 
koolnurdCommented:
did you get  

'1. Microsoft Fax (from \tools\oldwin95 folder on Win98 CD.)
0
 
Sar1973Commented:
Does this work also with XP Console fax?

TelNo = "223344" '*** You can use any intl format also
'Create a mail item.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
    With objOutlookMsg
        .To = "[Fax:" & TelNo & "]"
        .Subject = "Automated System Reports."
        .Body = "To Mr. XYZ" & Chr(10) & " This is an Automated Transmission from the computer." & Chr(10) _ & "Send Fax Completed." & Chr(10) & "------ End of Doc ------"
        .Importance = olImportanceHigh
        .Attachments.Add ("C:\....") 'Pathname+filename with ext
        .Send
    End With
Set objOutlookMsg = Nothing
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 4
  • 3
  • 2
  • +3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now