Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Wanet Telecoms Ltd on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

FAX group of Word 2000 docs from Access 97

Status
Not open for further replies.

bradmaunsell

Programmer
May 8, 2001
156
US
Can anybody help me with faxing word documents from a button in Access?

Here is some background of what I am doing and additionally want to.

Windows 2000 SP3
Word 2000
Access 97

(1) Have database of insurance policies

(2) Have routine to add new policies

(3) Have button to push to create a quote letter using Word

(4) Have routines to save quote document as well as a record (in a sub table of the policy table) containing a hylerlink to the document.

(5) Have routines similar to above for creating endorsement records with a Word doc for each and a sub table record with a hyperlink.

(6) Have query to select all newly created hyperlinks records

(7) NEED: a button (in access 97) to push that will send a copy of each Word document. The recipients info will be available in the query and each recipient will recieve one or more Word douments.

So far, I have not made any progress toward this goal and don't have clue.

Any help will certainly be appreciated.

Brad
South Burlington, VT
 
this is what I would do:
buy winfax
make sure you have the fax number to send to accessible
make button start up word and load the document and then
if you have to insert on the fly from your current record, make sure you word document has bookmarks in that you then replace with the current record data
save the document somewhere temporary
use winfax sdk to load winfax send attaching your temp file and inserting the fax number you have

all except winfax bit have posts in other parts of this forum explaining how to do it.

winfax send is very easy to program - here's an example
Code:
Sub mysimple()
Set wfobj = New wfxctl32.CSDKSend
wfobj.SetCoverText ("Hello") ' set cover page text
wfobj.SetNumber ("07005801167") ' set number to dial
wfobj.AddRecipient
wfobj.AddAttachmentFile ("G:\ajsm\memo.doc") 'set attachment file to send 
wfobj.Send (0)
End Sub
have fun
alasdair
 
Thanks Macker2, this is a tremendous help. I will get current version and give it try.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top