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[ at ]removeresponda.co.uk> wrote in message
news:1ihuljlzdu44q.xj73vc8un7oo$.dlg[ at ]40tude.net...
[Quoted Text] > 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
|