Automatic Email when clicking on button

  • Thread starter Thread starter Sergio
  • Start date Start date
S

Sergio

Hello, Our company sends powerpoint shows to a bunch of
people. We want to know which of them actually view the
presentation.

Can someone help me with a code to send an automatic e-
mail to a specific address with a given subject and maybe
even the current filename. (can we also put this as an
event happening between the last 2 slides?)

I have been working on this for a few hours without any
success.

Tx in advance for any help.

Sg
 
Are these people using Outlook? Lotus Notes? Do you know versions? Most
of the code needed will depend on the type of program. There is a "generic"
MAPI code instruction, but I haven't really had a lot of luck with it
consistently working so I use code specific to the e-mail program. Holler
back and I will try to accommodate!

--
Bill Foley, Microsoft MVP (PowerPoint)
Microsoft Office Specialist Master Instructor
www.pttinc.com
Check out PPT FAQs at: http://www.rdpslides.com/pptfaq/
"Success, something you measure when you are through succeeding."
 
Hello, Our company sends powerpoint shows to a bunch of
people. We want to know which of them actually view the
presentation.

Can someone help me with a code to send an automatic e-
mail to a specific address with a given subject and maybe
even the current filename. (can we also put this as an
event happening between the last 2 slides?)
Click to expand...

Unless you know a) that they have an email client installed and b) which email
client it is, you can't reliably do this w/o add'l software.

Several companies sell programming components that handle email under the hood.
Mabry is one I know of, but there are others.

If you know what software's on the target computers, it might be simpler.
Outlook can be automated from VB/VBA, for example.

On the other hand, Outlook's security settings may make it bark when an
external program tries to send email w/o the user having initiated it.



--
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
Featured Presenter, PowerPoint Live 2004
October 10-13, San Diego, CA www.PowerPointLive.com
================================================
 
Steve said:
Unless you know a) that they have an email client installed and b)
which email client it is, you can't reliably do this w/o add'l
software.

Several companies sell programming components that handle email under
the hood. Mabry is one I know of, but there are others.

If you know what software's on the target computers, it might be
simpler. Outlook can be automated from VB/VBA, for example.

On the other hand, Outlook's security settings may make it bark when
an external program tries to send email w/o the user having initiated
it.
Click to expand...

FMS has a solution that might work. It uses it's own SMTP client.
 
FMS has a solution that might work. It uses it's own SMTP client.
Click to expand...

Thanks Mike. That's exactly the type of solution that might be needed.
And FMS produces some really fine products, a very reliable supplier.


--
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
Featured Presenter, PowerPoint Live 2004
October 10-13, San Diego, CA www.PowerPointLive.com
================================================
 
I think that I'd object to someone automatically using my
e-mail without my permission. Other people might object much
more strongly than I would.

Nevertheless, with two clicks from the user, you can accomplish
the same thing without the potential guilt-trip:

Insert an action button or any other shape.
Select it and select "Action settings" (I believe this is available only
for 2002 & 2003 versions)
Under Mouse Click, URL, type in (without quotes)
"mailto:[email protected]?subject=my subject line text"
All the user has to do then is click "send", and you'll get your blank
(except for subject line) e-mail. There is some size limitation on the
subject line.
Some folks have said that not every network supports this, but I believe
that most do. Theoreticaly you can also add text to the body, but my
experience is that
this is not worth it because of size limits and other problems.

If you want more feedback, you can link a word file with some text and some
blanks and ask them to send that from Word after they complete the blanks.
 
Everybody is using outlook 2000. (I already got as far as
the " The only thing left is to press send ". I would
love if I could have the send command automated.

Tx

Sg
 
Here is a sample I have used for some CBTs using Outlook 2000. Remember
that you need to set a reference to the Outlook 9.0 library (listed as a
comment in the first line or two). You need to change the e-mail address
and body message. Mine is based on variables captured in my CBT
presentation.

Any questions, holler! Here is the subroutine:

Sub MailThruOutlook()


' Remember you need to set a reference to Outlook.
' Click "Tools", "References", place a check next to "Microsoft Outlook 9.0
Object Library

On Error GoTo Err1
Dim OL As Outlook.Application
Dim Mail As MailItem

Set OL = CreateObject("Outlook.Application")
Set Mail = OL.CreateItem(olMailItem)
Mail.Recipients.Add "your e-mail address here"
Mail.Subject = "PowerPoint CBT Demo Reviewed"
Mail.Body = "I have reviewed the presentation. I scored " & Score * 100
& _
"% on the quiz." & Chr(10) & "First name: " & firstname & Chr(10) &
_
"Last name: " & lastname & Chr(10) & "SSN: " & SocialSecurityNumber
& Chr(10) & _
"My feedback is:" & strFeedback
Mail.Send
Set Mail = Nothing
Set OL = Nothing

MsgBox "You have successfully completed the PTT, Inc. PowerPoint Exam Demo.
Click the CLOSE button to exit this program.", vbOKOnly, "PPT Complete"
GoTo Complete
Err1:
MsgBox "An error has occurred. Please call Professional Training
Technologies, Inc. at 877-4PTTINC and report an error", vbOKOnly, "Error
Occurred"
Complete:
End Sub


--
Bill Foley, Microsoft MVP (PowerPoint)
Microsoft Office Specialist Master Instructor
www.pttinc.com
Check out PPT FAQs at: http://www.rdpslides.com/pptfaq/
"Success, something you measure when you are through succeeding."
 
Back
Top