Cris
Wed Apr 14 16:50:16 CDT 2004
This is a multi-part message in MIME format.
------=_NextPart_000_0027_01C42240.9027DF40
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
To the best of my knowledge there is no api available for the shared fax =
in SBS 2000...so I'm shocked that it works at all.
Folks have been inquiring for some time about how to "integrate" with =
the Fax App
--=20
Cris Hanna, SBS-MVP
----------------------------------------------
Please DO NOT respond to me directly but post all responses here in the =
newsgroup so that all can share the information
"Bob" <anonymous@discussions.microsoft.com> wrote in message =
news:2F40101E-5259-43C9-9A97-BD35285DCF09@microsoft.com...
Hello, I have just installed Shared Fax service on SBS2000 using =
Brooktrout Trufax 200 modem board. We are using Exchange 2000 and has =
all patches, etc.
I am sending faxes from a PC in Word 2000 vba using the following code =
and everything works great right after I boot my server. However after =
the intial send of faxes, lets say an hour latter, when a fax is sent =
nothing shows up in the Outbox and no new faxes are in the Sent Box. =
(Word is Open as well as Outlook).
When I reboot the server, the later fax does show up and faxes =
correctly. It is like it is stalling. I have turned off the "Fax =
Service" as was recommended in prior thread.
Any ideas? thanks.
Dim myOLapp As New Outlook.Application
Dim myOLItem As Outlook.MailItem
Dim AttachmentName As String
Set myOLItem =3D myOLapp.CreateItem(olMailItem)
Set myattachments =3D myOLItem.Attachments
AttachmentName =3D Replace(FaxAttachment, ".txt", ".doc")
myattachments.Add "C:\" & FaxAttachment"
With myOLItem
.To =3D "[FAX:9," & aFaxNbr & "]"
'.Subject =3D aFaxSubject
End With
myOLItem.Send
Set myOLapp =3D Nothing
Set myOLItem =3D Nothing
Set myattachments =3D Nothing
------=_NextPart_000_0027_01C42240.9027DF40
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
=EF=BB=BF<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; charset=3Dutf-8">
<META content=3D"MSHTML 6.00.2900.2082" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>To the best of my knowledge there is no =
api=20
available for the shared fax in SBS 2000...so I'm shocked that it works =
at=20
all.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Folks have been inquiring for some time =
about how=20
to "integrate" with the Fax App</FONT><BR>-- <BR>Cris Hanna,=20
SBS-MVP<BR>----------------------------------------------<BR>Please DO =
NOT=20
respond to me directly but post all responses here in the newsgroup so =
that all=20
can share the information</DIV>
<BLOCKQUOTE=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Bob" <<A=20
=
href=3D"mailto:anonymous@discussions.microsoft.com">anonymous@discussions=
.microsoft.com</A>>=20
wrote in message <A=20
=
href=3D"news:2F40101E-5259-43C9-9A97-BD35285DCF09@microsoft.com">news:2F4=
0101E-5259-43C9-9A97-BD35285DCF09@microsoft.com</A>...</DIV>Hello,=20
I have just installed Shared Fax service on SBS2000 using Brooktrout =
Trufax=20
200 modem board. We are using Exchange 2000 and has all patches, =
etc.<BR><BR>I am sending faxes from a PC in Word 2000 vba using the =
following=20
code and everything works great right after I boot my server. =
However=20
after the intial send of faxes, lets say an hour latter, when a fax is =
sent=20
nothing shows up in the Outbox and no new faxes are in the Sent =
Box. =20
(Word is Open as well as Outlook).<BR><BR>When I reboot the server, =
the later=20
fax does show up and faxes correctly. It is like it is =
stalling. I=20
have turned off the "Fax Service" as was recommended in prior=20
thread.<BR><BR>Any ideas? thanks.<BR><BR>Dim myOLapp As New=20
Outlook.Application<BR> Dim =
myOLItem=20
As Outlook.MailItem<BR> Dim=20
AttachmentName As String<BR> =
Set=20
myOLItem =3D=20
=
myOLapp.CreateItem(olMailItem)<BR> &nb=
sp;=20
Set myattachments =3D=20
myOLItem.Attachments<BR> =20
AttachmentName =3D Replace(FaxAttachment, ".txt",=20
".doc")<BR> =
myattachments.Add "C:\"=20
& FaxAttachment"<BR> =
With=20
=
myOLItem<BR> &=
nbsp;=20
.To =3D "[FAX:9," & aFaxNbr &=20
=
"]"<BR> =
=20
'.Subject =3D =
aFaxSubject<BR> End=20
With<BR> =20
myOLItem.Send<BR> Set =
myOLapp =3D=20
Nothing<BR> Set myOLItem =3D =
Nothing<BR> Set =
myattachments =3D=20
Nothing</BLOCKQUOTE></BODY></HTML>
------=_NextPart_000_0027_01C42240.9027DF40--