MB Software Solutions wrote:
> Grigore Dolghin wrote:
>
>> Make sure you don't have two consecutive spaces anywhere.
>>
>>
> That would cause it to fail? Also, must I wrap directory/folder
> locations in quotes for scenarios where it's "Documents and
> Settings\Mike\MyFile.txt" ??
>
>
Hi MB,
Not sure about the two spaces but I have a test program that I use and keep
changing until it works, then paste this into my real program (see below). As
my code is set up you will not get two spaces together. I used to use -f and
-i together but then wanted something different with -replyto
Have you got the syntax.txt that comes with the DLL?
You will need to make sure paths are delimited. See the attach bit below.
HTH
Peter
cEmailto='[EMAIL PROTECTED]'
cCCto=''
cBCCto=''
lcResult = "FAILED"
cEmailSubject='this is the subject of a test email'
*cEmailFrom='operasystem'
cEmailFrom='[EMAIL PROTECTED]'
cAttach='my long file name.doc,and another long name.txt'
cEmailbody='this is the body'
lcFile='xtradata.dir' && does not get sent
* now sort out attachments as maybe more than one.
cTemp1=''
cTemp2=''
IF !EMPTY(cAttach)
IF ',' $ cAttach
DO while ',' $ cAttach
* get first part of string
cTemp1 = SUBSTR(cAttach,1,AT(',',cAttach)-1)
* add to new string
cTemp2 = cTemp2 + [ -attach ] + '"'+cTemp1+'"'
* chop this off original string
cAttach = SUBSTR(cAttach,AT(',',cAttach)+1)
ENDDO
* do last entry
cTemp2 = cTemp2 + [ -attach ] + '"'+cAttach+'"'
cAttach = cTemp2
ELSE
cAttach = [ -attach ] + '"'+cAttach+'"'
ENDIF
ENDIF
lcSend = lcFile + ;
IIF(EMPTY(cEmailto),'',[ -to ] + Chr(34) + AllTrim(cEmailTo) + Chr(34)) + ;
IIF(EMPTY(cCCto),'',[ -cc ] + Chr(34) + AllTrim(cCCTo) + Chr(34)) + ;
IIF(EMPTY(cBCCto),'',[ -bcc ] + Chr(34) + AllTrim(cBCCTo) + Chr(34)) + ;
[ -subject ] + Chr(34) + AllTrim(cEmailSubject) + Chr(34) + ;
[ -f [EMAIL PROTECTED] + ;
[ -replyto ] + Chr(34) + AllTrim(cEmailFrom) + Chr(34) + ;
[ -server 192.168.0.9] + ;
[ -body ] + Chr(34) + AllTrim(cEmailBody) + Chr(34) + ;
[ -u ] + Chr(34) + "myusername" + Chr(34) + ;
[ -pw ] + Chr(34) + "mypassword" + Chr(34) + ;
cAttach
Declare Integer Send In system\blat.DLL STRING blatstring
lcSendCmd = "Send(lcSend)"
If &lcSendCmd == 0
WAIT WINDOW "Success"
ELSE
WAIT WINDOW "Failed to Send"
ENDIF
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message: http://leafe.com/archives/byMID/profox/[EMAIL PROTECTED]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
