Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Send report with email
Message
 
 
To
05/12/2001 05:22:34
General information
Forum:
Visual FoxPro
Category:
Internet applications
Miscellaneous
Thread ID:
00586800
Message ID:
00589806
Views:
33
>>>>It would be helpfull if you describe in more details what you want to do.
>>>
>>>Sergey,
>>>
>>>Actually, what I want to do is to add my application with automatically sending report via Outlook Express within Visual Foxpro. So I don't have to copy the report as attachment , open the outlook and send it.
>>>
>>>I hope, it describes enough for you.
>>>
>>>Thanks in Advance,
>>>
>>>Budianto
>>
>>If you use Outlook Express, I would suggest to take a look at Nigel Coates MapiMail class from Download section here. There is another class by Bella Bodecs, which also can work with Outlook Express.
>
>
>Hi Nadya,
>
>I've seen Nigel Coates MapiMail class but I'm stil confused, there is no information about sending e-mail. Could you explain more ?
>
>tia,
>
>Budianto

Here is a simple program, which could be used for sending mails with Nigel's class:
*********************************************************************************
*  Description.......: SendMails - automatically sends mails with attachments 
*  Calling Samples...: ?sendmails(,,"Nosonovsky;Lovins;Pasnik;Geiss","Sending Mails from VFP",;
*           "This is a test message... If you receive it, it means, this class actually works.",;
*           "g:\redp\appl\OutputModule\Classes\Fox.reg")
*  Parameter List....: pcUserName, pcPassword, pcRecepients, pcSubject, pcBodyText,;
*                      pcAttachments, plReceipt, plShowClient, plFetch
*  Created by........: Nadya Nosonovsky 07/19/2000 12:31:39 PM 
*  Modified by.......: Susan Burnham 11/27/00 Added check to determine if object exists
**************************************************************************************************************
lparameters pcUserName, pcPassword, pcRecepients, pcSubject, pcBodyText,;
     pcAttachments, plReceipt, plShowClient, plFetch

local  lnReturn

IF TYPE('loMail')#'O'
     loMail=newobject('cusmapi','mapimail.vcx')
ENDIF

lnReturn=loMail.SendMail(pcUserName, pcPassword, pcRecepients, pcSubject, pcBodyText,;
     pcAttachments, plReceipt, plShowClient, plFetch)

loMail.release()
*release loMail
return lnReturn
If it's not broken, fix it until it is.


My Blog
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform