Visual FoxPro - Outlook 2000 - sending faxes

Dear all

Wonder whether any of you can help. We send faxes using Visual FoxPro 8
using the outlook.application object. Since updating to version 8 of Visual
FoxPro the faxes get stuck in the Outbox and the only way to send them is
to come out of Outlook and then go back in again. It only happens in
Outlook 2000.

Here is my code

oOutlook = CREATEOBJECT("Outlook.Application")
oEmailItem = oOutlook.GetNameSpace("MAPI")
oMessage = oEmailItem.GetDefaultFolder(4)
oNewMessage = oMessage.items.add()

WITH oNewMessage
.Recipients.add('[FAX:' + ALLTRIM(m.FaxNumber) + ']')
.Attachments.Add(ALLTRIM(m.Attachment))

IF thisformset.Preview
.display(.t.)
ELSE
.Send()
ENDIF
ENDWITH

Kind regards

David
Anagram Systems
28/11/2005 16:59:38

Might want to try one of the programming groups. Not sure anyone who can
help will see it here.
--
Russ Valentine
[MVP-Outlook]
"David" <newsgroup.RemoveThis@removeresponda.co.uk> wrote in message
news:1ihuljlzdu44q.xj73vc8un7oo$.dlg@40tude.net...
> Dear all
>
> Wonder whether any of you can help. We send faxes using Visual FoxPro 8
> using the outlook.application object. Since updating to version 8 of
> Visual
> FoxPro the faxes get stuck in the Outbox and the only way to send them is
> to come out of Outlook and then go back in again. It only happens in
> Outlook 2000.
>
> Here is my code
>
> oOutlook = CREATEOBJECT("Outlook.Application")
> oEmailItem = oOutlook.GetNameSpace("MAPI")
> oMessage = oEmailItem.GetDefaultFolder(4)
> oNewMessage = oMessage.items.add()
>
> WITH oNewMessage
> .Recipients.add('[FAX:' + ALLTRIM(m.FaxNumber) + ']')
> .Attachments.Add(ALLTRIM(m.Attachment))
>
> IF thisformset.Preview
> .display(.t.)
> ELSE
> .Send()
> ENDIF
> ENDWITH
>
> Kind regards
>
> David
> Anagram Systems
> 28/11/2005 16:59:38