Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to send an email with many attached files
Message
 
To
10/10/2004 03:15:58
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00950219
Message ID:
00950221
Views:
16
Hi Cahn,

Try use collection attachments...
this.parent.OleMMess.Attachments.Add("Temata.txt",0,,lcTempP+"\Temata.txt")

*Set objAttachment = objAttachColl.Add( [ name] [, position] [, type] [, source ] ) 
*Type - Optional. Long. The type of attachment; either mapiFileData = 1, mapiFileLink = 2, mapiOLE = 3, or mapiEmbeddedMessage = 4. The default value is CdoFileData
MartinJ

>Hi all!
>I use file “..\Samples\Classes\button.vcx”, in directory VPF, with class name “mailbtn” to send a mail. I edit these codes of class “mailbtn” to send a mail with attached files.
>
>Here are my codes:
>
>
>* Verify that a table is open in the current work area
>	IF !this.parent.signon()		&& Use the custom method
>		RETURN
>	ENDIF
>	IF this.parent.LogSession && Check if the user was able to login
>		this.parent.OleMMess.sessionid=this.parent.OleMSess.sessionid
>	
>	* Start a new mail message and build the text
>	this.parent.OleMMess.compose
>	THIS.PARENT.OleMMess.recipdisplayname=this.Parent.c_recip
>	this.parent.OleMMess.msgnotetext=this.Parent.c_context
>	this.parent.OleMMess.msgsubject=this.Parent.c_subj
>	this.parent.OleMMess.attachmentname="ADD.TXT"
>	this.parent.OleMMess.attachmentpathname="d:\\dtd40x"
>	this.parent.OleMMess.send(1)
>	
>		IF this.parent.logsession
>			this.parent.OleMSess.signoff
>		ENDIF	&& Session Handle test
>	ENDIF 		&& Login Test
>
>
>However, my prog post a message error about attached files.
>How can I send an email with many attached files?
>Where is document about methodes and properties of "OleMMess" object?
>Please help me.
>
>Canh
"Navision is evil that needs to be erazed... to the ground"

Jabber: gorila@dione.zcu.cz
Jabber? Jabbim
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform