Discussion:
sending emails/mailto
(too old to reply)
alkots
2005-02-23 20:43:04 UTC
Permalink
VFP6 SP5 WINDOWS ALL

I'm using mailto to send emails, and I need put a txt/asc file as body of
email.

Is it possible ??

Alberto
Mike Gagnon
2005-02-23 21:21:59 UTC
Permalink
No, not with Outlook Express
Post by alkots
VFP6 SP5 WINDOWS ALL
I'm using mailto to send emails, and I need put a txt/asc file as body of
email.
Is it possible ??
Alberto
Rolf Lystad
2005-02-23 21:50:13 UTC
Permalink
Post by alkots
VFP6 SP5 WINDOWS ALL
I'm using mailto to send emails, and I need put a txt/asc file as body of
email.
Local m.string,m.mail,m.subj,m.file
m.mail = "***@invalid.com"
m.subj = "testing"
m.file = "d:\test.txt"
m.string = "mailto:" + ;
m.Mail + ;
"?subject=" + Alltrim(m.subj) + ;
"&body=" + Filetostr(m.file)

Declare Integer ShellExecute In "Shell32.dll" ;
INTEGER HWnd, ;
STRING lpVerb, ;
STRING lpFile, ;
STRING lpParameters, ;
STRING lpDirectory, ;
LONG nShowCmd

=ShellExecute(0, "Open" , m.string , "" , "" , 0 )
alkots
2005-02-28 14:19:07 UTC
Permalink
Hi Rolf

It almost worked

but, it doesn't respect carriage return

Everything is worte in a long line

Any suggestion ?

Alberto
Post by Rolf Lystad
Post by alkots
VFP6 SP5 WINDOWS ALL
I'm using mailto to send emails, and I need put a txt/asc file as body of
email.
Local m.string,m.mail,m.subj,m.file
m.subj = "testing"
m.file = "d:\test.txt"
m.string = "mailto:" + ;
m.Mail + ;
"?subject=" + Alltrim(m.subj) + ;
"&body=" + Filetostr(m.file)
Declare Integer ShellExecute In "Shell32.dll" ;
INTEGER HWnd, ;
STRING lpVerb, ;
STRING lpFile, ;
STRING lpParameters, ;
STRING lpDirectory, ;
LONG nShowCmd
=ShellExecute(0, "Open" , m.string , "" , "" , 0 )
Leonid
2005-03-02 09:59:33 UTC
Permalink
Local m.string,m.mail,m.subj,m.file
m.mail = "***@invalid.com"
m.subj = "testing"
m.file = "d:\test.txt"
m.string = "mailto:" + ;
m.Mail + ;
"?subject=" + Alltrim(m.subj) + ;
"&body=" + strtran(strtran(Filetostr(m.file),chr(13),"%0D"),chr(10),"%0A")

Declare Integer ShellExecute In "Shell32.dll" ;
INTEGER HWnd, ;
STRING lpVerb, ;
STRING lpFile, ;
STRING lpParameters, ;
STRING lpDirectory, ;
LONG nShowCmd

=ShellExecute(0, "Open" , m.string , "" , "" , 0 )


Leonid
Post by alkots
Hi Rolf
It almost worked
but, it doesn't respect carriage return
Everything is worte in a long line
Any suggestion ?
Alberto
Post by Rolf Lystad
Post by alkots
VFP6 SP5 WINDOWS ALL
I'm using mailto to send emails, and I need put a txt/asc file as body of
email.
Local m.string,m.mail,m.subj,m.file
m.subj = "testing"
m.file = "d:\test.txt"
m.string = "mailto:" + ;
m.Mail + ;
"?subject=" + Alltrim(m.subj) + ;
"&body=" + Filetostr(m.file)
Declare Integer ShellExecute In "Shell32.dll" ;
INTEGER HWnd, ;
STRING lpVerb, ;
STRING lpFile, ;
STRING lpParameters, ;
STRING lpDirectory, ;
LONG nShowCmd
=ShellExecute(0, "Open" , m.string , "" , "" , 0 )
alkots
2005-03-07 14:47:06 UTC
Permalink
We are almost there:

Now, the problem is, outlook express body is in a unformatted style

I can format it manually, but I want it already formatted

Alberto
Post by Rolf Lystad
Local m.string,m.mail,m.subj,m.file
m.subj = "testing"
m.file = "d:\test.txt"
m.string = "mailto:" + ;
m.Mail + ;
"?subject=" + Alltrim(m.subj) + ;
"&body=" + strtran(strtran(Filetostr(m.file),chr(13),"%0D"),chr(10),"%0A")
Declare Integer ShellExecute In "Shell32.dll" ;
INTEGER HWnd, ;
STRING lpVerb, ;
STRING lpFile, ;
STRING lpParameters, ;
STRING lpDirectory, ;
LONG nShowCmd
=ShellExecute(0, "Open" , m.string , "" , "" , 0 )
Leonid
Post by alkots
Hi Rolf
It almost worked
but, it doesn't respect carriage return
Everything is worte in a long line
Any suggestion ?
Alberto
Post by Rolf Lystad
Post by alkots
VFP6 SP5 WINDOWS ALL
I'm using mailto to send emails, and I need put a txt/asc file as body of
email.
Local m.string,m.mail,m.subj,m.file
m.subj = "testing"
m.file = "d:\test.txt"
m.string = "mailto:" + ;
m.Mail + ;
"?subject=" + Alltrim(m.subj) + ;
"&body=" + Filetostr(m.file)
Declare Integer ShellExecute In "Shell32.dll" ;
INTEGER HWnd, ;
STRING lpVerb, ;
STRING lpFile, ;
STRING lpParameters, ;
STRING lpDirectory, ;
LONG nShowCmd
=ShellExecute(0, "Open" , m.string , "" , "" , 0 )
Bernhard Sander
2005-03-07 21:03:21 UTC
Permalink
Hi Alberto
Post by alkots
Now, the problem is, outlook express body is in a unformatted style
I can format it manually, but I want it already formatted
This is quite easy. Just put the necessary html tags into the txt file to where
you want the formatting.

Regards
Bernhard Sander
i***@gmail.com
2014-08-15 16:58:08 UTC
Permalink
Post by alkots
VFP6 SP5 WINDOWS ALL
I'm using mailto to send emails, and I need put a txt/asc file as body of
email.
Is it possible ??
Alberto
Me parece excelente opcion, pero como se añade un archivo adjunto
Continue reading on narkive:
Loading...