Email Button on a Web Page

[Steve Wood]

Re: Email Button on a Web Page

Also, save yourself untold headache by not putting your projects in Documents and Settings, or any folder with embedded spaces. It may work, but there are areas where it will start to cause problems. As a rule of thumb, never, ever include a space in anything - table names, folders, project names, report names, field names, etc.

My projects are simply in c:\a5\project1, c:\a5\project2, etc.

[akmackenzie]

Re: Email Button on a Web Page

Back again.

Almost there, it still sends the email just not with the attached report. I think i may have took what you said to literal and did exactly that, so heres my code

if CurrentForm.Controls.RadioButton = "1" then
IF eval_valid("DropBox") = .f. Then
goto skipreport
end if
dim args as sql::arguments
args.set("PurchaseOrderNo",alltrim(DropBox))
Dim filename as c
dim libfolder as c
libfolder = a5_removetrailingbackslash(Request.ApplicationRoot) + chr(92)
reportname = "Purchase Orders@" + libfolder + "complete design 2.alb"
filename = session.session_folder + "tempreport.pdf"
filename = report.saveas(reportname,"pdf","","",filename,.f.,null_value(),args)
if file.exists(filename)

If CurrentForm.Controls.RadioButton = "1" then
DIM ps as P
DIM pm as P
pm.from = "[email protected]"
pm.from_alias = "andrewmackenzie"
pm.to = "[email protected]"
pm.subject = "New Requisition Order"
pm.message = "Please see attached a new requisition order to be processed"
'optional header fields
pm.lRelated = .F.
' send message
IF email_smtp_open(ps, "192.168.10.1" ,25 , "andrewmackenzie" , "mackenzie")
email_smtp_send(pm, ps)
END IF
Email_smtp_close(ps)

end if
end if
skipreport:
end if

[NoeticCC]

Re: Email Button on a Web Page

Also, save yourself untold headache by not putting your projects in Documents and Settings, or any folder with embedded spaces.

Yep, very good advice! All my work is in c:\_WORK - the underscore makes it show at the top of the directory listing to boot :)

[NoeticCC]

Re: Email Button on a Web Page

Back again.

Almost there, it still sends the email just not with the attached report. I think i may have took what you said to literal and did exactly that, so heres my code

Try putting the If CurrentForm.Controls.RadioButton = "1" then... and the "end if" around the report code...

[akmackenzie]

Re: Email Button on a Web Page

So like this...?

if CurrentForm.Controls.RadioButton = "1" then
IF eval_valid("DropBox") = .f. Then
goto skipreport
end if
dim args as sql::arguments
args.set("PurchaseOrderNo",alltrim(DropBox))
Dim filename as c
dim libfolder as c
libfolder = a5_removetrailingbackslash(Request.ApplicationRoot) + chr(92)
reportname = "Purchase Orders@" + libfolder + "complete design 2.alb"
filename = session.session_folder + "tempreport.pdf"
filename = report.saveas(reportname,"pdf","","",filename,.f.,null_value(),args)
if file.exists(filename)
end if

DIM ps as P
DIM pm as P
pm.from = "[email protected]"
pm.from_alias = "andrewmackenzie"
pm.to = "[email protected]"
pm.subject = "New Requisition Order"
pm.message = "Please see attached a new requisition order to be processed"
'optional header fields
pm.lRelated = .F.
' send message
IF email_smtp_open(ps, "192.168.10.1" ,25 , "andrewmackenzie" , "mackenzie")
email_smtp_send(pm, ps)
END IF
Email_smtp_close(ps)

end if
end if
skipreport:
end if

[NoeticCC]

Re: Email Button on a Web Page

Nope... more like...

if CurrentForm.Controls.RadioButton = "1" then
IF eval_valid("DropBox") = .f. Then
end
end if

dim args as sql::arguments
args.set("PurchaseOrderNo",alltrim(DropBox))
Dim filename as c
dim libfolder as c
libfolder = a5_removetrailingbackslash(Request.ApplicationRoot) + chr(92)
reportname = "Purchase Orders@" + libfolder + "complete design 2.alb"
filename = session.session_folder + "ReqOrder.pdf"
filename = report.saveas(reportname,"pdf","","",filename,.f.,null_value(),args)

if file.exists(filename)

DIM ps as P
DIM pm as P
pm.from = "[email protected]"
pm.from_alias = "andrewmackenzie"
pm.to = "[email protected]"
pm.subject = "New Requisition Order"
pm.message = "Please see attached a new requisition order to be processed"
'optional header fields
pm.attachments = filename
pm.lRelated = .F.
' send message
IF email_smtp_open(ps, "192.168.10.1" ,25 , "andrewmackenzie" , "mackenzie")
email_smtp_send(pm, ps)
END IF

Email_smtp_close(ps)

end if

end if

[akmackenzie]

Re: Email Button on a Web Page

Of course...

And finally we have got there! Teamwork.

And by teamwork i mean you do the work and i copy :)

Thanks a lot Andrea

[akmackenzie]

Re: Email Button on a Web Page

Ha just found that interactive window

Oh deary me

[NoeticCC]

Re: Email Button on a Web Page

Ha just found that interactive window

Oh deary me

Hehe that can be a bit confusing at first (hold ctrl if you need to press "enter" btw) but it is extremely useful for trying stuff out!

[sendamail]

Re: Email Button on a Web Page

hi ..

try the following.. you can use the alpha default_email_client in your web application without any issues as long as you set the email settings properly,
just take care of your SMTP & POP server settings and under "sending" tab "use same settings as my incoming mail server" option in the drop down box..

first section of the following is to make sure that you create a report using your designed template and the next section is to send the email.. in between you can add whatever database connection coding you want in order to get your email list or the subject or content of the message apart from the attachment..

you are going to attach the file that you are creating in the first section in the following lines..

IF eval_valid("event") = .f. Then
goto skipreport
end if
dim args as sql::arguments
args.set("eventno",alltrim(event))

Dim filename as c
dim rootfile as c
dim newfile as c
dim libfolder as c

libfolder = a5_removetrailingbackslash(Request.ApplicationRoot) + chr(92)
reportname = "YOUR REPORT@" + libfolder + "dashboard.alb"
filename = session.session_folder + "YOUR FILE NAME"
rootfile = filename
dim eventdescwithtime as c
eventdescwithtime = eventdesc + " ON " + Dtoc(date(),"2-") + " at " + time("0h.0m.0s am") + ".pdf"
YOUR FOLDER TO SAVE FILE = "C:\" +chr(92)+ eventdescwithtime
dir_create_recurse(session.foldertosavemtgmin1)
newfile = "C:"+chr(92)+"Meeting Minutes"+chr(92)+eventdescwithtime
filename = report.saveas(reportname,"pdf","","",filename,.f.,null_value(),args)
file.copy(rootfile,newfile)
if file.exists(filename)
currentform.RedirectTarget = session.session_url + "tempreport.pdf?" + time("hms3")
end if

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

dim Filenames as C
dim Email_Address as C
dim Options as C
dim Zipname as C
dim Comment as C
dim Use_A5_Email_Client as L
dim Store_in_Outbox as L
dim Show_Client as L

Filenames = "C:\calendar.jpg"
Email_Address = "[email protected] , [email protected]"
Options = ""
Zipname = ""
Comment = "Meeting Minutes from Intranet Dashboard"
Use_A5_Email_Client = .T.
Store_in_Outbox = .T.
Show_Client = .F.

FILE.SEND( Filenames, Email_Address, Options, Zipname, Comment, Use_A5_Email_Client, Store_in_Outbox, Show_Client )

[akmackenzie]

Re: Email Button on a Web Page

Thanks bub, appreciated but got it working a few days ago, decided not to use the inbuilt email client

[sendamail]

Re: Email Button on a Web Page

:) good, why not the inbuilt e-mail client? got any issues? cause its working perfect for me.. if anything pls leave a line here so that we will consider it too

[NoeticCC]

Re: Email Button on a Web Page

:) good, why not the inbuilt e-mail client? got any issues? cause its working perfect for me.. if anything pls leave a line here so that we will consider it too

Aside from anything else it is more flexible to use email_smpt_send because you don't have to rely on pre-configured profiles, you can spoof email addresses (e.g. allow people to email you with their email as the sender), add your own headers etc.

[akmackenzie]

Re: Email Button on a Web Page

Took the words right outta my mouth, flexibility

[NoeticCC]

Re: Email Button on a Web Page

Took the words right outta my mouth, flexibility

I can put them back again if you need them ;)