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