Visual FoxPro - Outlook 2000 - sending faxes

  • Thread starter Thread starter David
  • Start date Start date
D

David

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.
 
Back
Top