The subroutine below is called to send a fax via Microsoft Shared Fax Mail Transport.

Fax is sent OK on a Win98SE machine

But on a Win2000 machine it gets sent, but, Mail system admin returns a message saying the address is not reconised.

If e-mail created by hand with the fax:…. format in the send address, it works.

I assume then that there must be a different message setting needed, but I cant find any info on MSoft web site (I could be looking in wrong places).

Can anyone help me.

subroutine bsbs_send_fax(FullFileName,Company,FaxNo,Subject,TxtBody)

declare subroutine Msg, Get_Status

declare function   MapiSendMail, MAPILogon, MAPILogoff

$insert Mapi_Equates

equ CRLF$ to \0D0A\

equ CR$   to \0D\

equ LF$   to \0A\

equ TAB$  to \09\

Session=0

Status=MAPILogon(Session, @Window, "MS Exchange Settings", "")

FileName=FullFileName-1,'B\'

if Session then

	Flags=MAPI_LOGON_UI$

end else

	Flags=MAPI_LOGON_UI$ + MAPI_DIALOG$

end

if TxtBody=" then TxtBody=.'

Message='

Message=Subject

Message=fax:":FaxNo:""

Message=TxtBody

Message=IPM.Microsoft Mail.Note"

Message=FileName

Message=FullFileName

Message=( len( message) - 2 ) 

if MAPISendMail(Session, 0, Flags, Message) then

  Msg(@window, "Fax sent successfully!":@fm:"T1")

end else

  Get_Status(ErrMsg)

  Msg(@window, ErrMsg)

end

Status=MAPILogoff(Session, @Window)

return

View this thread on the forum...