Emailing information help

[Atta]

I am totally new in emailing 'things' in Alpha5 web app.
Can someone tell me, show me how to send an email from a website when a person has updated a field, or send me to a page where I can read up on it?

Man do I want to see a Action pack on this.

Thanks

[christappan]

Re: Emailing information help

there's a ton of posts on the forum if you search for email, and really, once you set up your email profile (search no the forums or in the help), it's easy. I use email_send2(), which has xbasic like:

dim pm as p
pm.to = "[email protected]"
pm.to_alias = "john"
pm.from = "[email protected]"
pm.from_alias = "[email protected]"
pm.subject = "important things"
pm.message = "here's that file"
pm.attachments = "important.doc"

email_send2(pm)

Any and all of the info in quotes above can be replaced with variables, whether from a dialog control, grid field, or otherwise.

[Atta]

Re: Emailing information help

Thanks for showing me that, but how can I use that.
Where do I put that in a button?
How can I when a field changes that an email gets send
Do I need to put that in the event settings, like the AfterUpdateRecords event?
But I thought that the Events are Javascript and not xbasic?

Thanks

[bob9145]

Re: Emailing information help

Roelof,
You can do this from a grid component in events.
I used the after insert event to send the values of fields in a grid component using emai_send()

Dim msg as c
msg=""+e.datasubmitted.First_Name+" "+e.datasubmitted.Last_Name+" We will see you "+e.datasubmitted.Scheduled_Date+" on "+e.datasubmitted.Scheduled_Time+""
msg=msg
email_send(e.datasubmitted.Email,"New Lead",msg,"","","",.F.,"","","")

This fires when the new record is submitted.

Bob

[Atta]

Re: Emailing information help

there's a ton of posts on the forum if you search for email, and really, once you set up your email profile (search no the forums or in the help), it's easy. I use email_send2(), which has xbasic like:

dim pm as p
pm.to = "[email protected]"
pm.to_alias = "john"
pm.from = "[email protected]"
pm.from_alias = "[email protected]"
pm.subject = "important things"
pm.message = "here's that file"
pm.attachments = "important.doc"

email_send2(pm)

Any and all of the info in quotes above can be replaced with variables, whether from a dialog control, grid field, or otherwise.

So how do I make it so that I can add a field. For example I have a field that is called projectname.
This is what I have but it does not work: pm.subject = "Added new project:"+ projectname

Thanks

[bob9145]

Re: Emailing information help

What are you trying to send it from Dialog component, grid component?

[Atta]

Re: Emailing information help

After a grid has been filled out, and the customer clicks on submit I want to send it.
I have several fields like projectname, totalofmachines, date etc.

This is what I have copied from above

function AfterUpdateRecords as p

dim pm as p
pm.to = "[email protected]"
pm.to_alias = "john"
pm.from = "[email protected]"
pm.from_alias = "[email protected]"
pm.subject = "important things"
pm.message = "here's that file"
pm.attachments = "important.doc"
debug(1)
email_send2(pm)
end function

Of course I want to change the "" with fields information

Thanks
Roelof

[bob9145]

Re: Emailing information help

Dim to as c
Dim subject as c
Dim message as c

to = e.datasubmitted.to
subject = e.datasubmitted.subject
message = e.datasubmitted.message

email_send(to,subject,message,"","",.F.,"","","")


Email send holds the corresponding parts of the email headers.
Starting with to, then subject and then body ect...
Look up the function in the help to find the position of the rest of the headers.

[Atta]

Re: Emailing information help

I still have an issue sending email out.

At the big M they use Exchange and mine POP and SMTP is not on. So how can I use email?

[cjsingh]

Re: Emailing information help

I use the following code on event AfterInsertRecord and AfterUpdaterecord and it works. Try.


dim pm as P
dim ps as P
dim msubject as C

msubject=<<%html%
Something html that is your subject plus a data field {e.datasubmitted.yourdatafield}
%html%

html_msg = <<%html%
<html>
<head> </head>
<body>
<font face=Arial size=2>This is your message text which will go as html <br> This can be your some submitted data field {e.datasubmitted.SomeDataField}<font><br><br> </body>
</html>
%html%

if (email_smtp_open(ps, "your.domain.com", 25, "[email protected]", "smtpAuthPassword")) then
pm.to = "[email protected],[email protected],[email protected]"
pm.from = "[email protected]"
pm.subject = evaluate_string(msubject)
pm.message = ""
pm.attachments = ""
pm.html_message = evaluate_string(html_msg)

email_smtp_send(pm, ps)
end if
email_smtp_close(ps)


This does not require an email profile to be setup but fires email straight to the smtp server.

Cheers

[Atta]

Re: Emailing information help

I use the following code on event AfterInsertRecord and AfterUpdaterecord and it works. Try.


dim pm as P
dim ps as P
dim msubject as C

msubject=<<%html%
Something html that is your subject plus a data field {e.datasubmitted.yourdatafield}
%html%

html_msg = <<%html%
<html>
<head> </head>
<body>
<font face=Arial size=2>This is your message text which will go as html <br> This can be your some submitted data field {e.datasubmitted.SomeDataField}<font><br><br> </body>
</html>
%html%

if (email_smtp_open(ps, "your.domain.com", 25, "[email protected]", "smtpAuthPassword")) then
pm.to = "[email protected],[email protected],[email protected]"
pm.from = "[email protected]"
pm.subject = evaluate_string(msubject)
pm.message = ""
pm.attachments = ""
pm.html_message = evaluate_string(html_msg)

email_smtp_send(pm, ps)
end if
email_smtp_close(ps)


This does not require an email profile to be setup but fires email straight to the smtp server.

Cheers

if (email_smtp_open(ps, "your.domain.com", 25, "[email protected]", "smtpAuthPassword")) then

So your.domain.com = gmail.com
[email protected] = alias=gmail.com

Is that correct?

[Atta]

Re: Emailing information help

So your.domain.com = gmail.com
[email protected] = alias=gmail.com

Sorry mistype so the last part is

[email protected] = [email protected]

[Atta]

Re: Emailing information help

So your.domain.com = gmail.com
[email protected] = alias=gmail.com

Sorry mistype so the last part is

[email protected] = [email protected]

PING?

[Atta]

Re: Emailing information help

dim pm as P
dim ps as P
if (email_smtp_open(ps, "mail.alphasoftware.com", 25, "username", "password")) then
pm.to = "[email protected]"
pm.from = "[email protected]"
pm.subject = "my subject"
pm.html_message = "<HTML><B>This is the message in HTML</B></HTML>"
email_smtp_send(pm, ps)
end if
email_smtp_close(ps)

In this layout do I use mail.gmail.com, port 465, or gmail.com, port 25. It is just not working for me.

Thanks
Roelof

[Atta]

Re: Emailing information help

I have started to debug and here is my code

debug(1)
if (email_smtp_open(ps, "gmail.com",465, "[email protected]", "password")) then
pm.to = "[email protected]"
pm.from = "[email protected]"
pm.subject = "my subject"
pm.message = "This is the message"
email_smtp_send(pm, ps)
end if
email_smtp_close(ps)

And what is does it jumps from IF statement to after the END IF statement, so it cannot open the smtp, can anyone give me some help in this?

Thanks
Roelof