Consulting

Results 1 to 3 of 3

Thread: Email quiz data via PowerPoint

  1. #1
    VBAX Contributor
    Joined
    Apr 2014
    Posts
    109
    Location

    Email quiz data via PowerPoint

    I have PowerPoint 2010. I have tried a few suggestions, but seems the more I do the less of my other PP links and actions are working.
    I am making an interactive training session where the user reads a section and then answers a quiz. At the end of the show, they press a button, "Submit data", which should then send the required data to myself.

    Most of my clients are younger and may not have email programs on their computers. So I want a program that does not rely on Outlook or other computer resident programs.

    What I need to email is a string that I can prepare... info as follows...

    email from: myemail
    email to: campemail
    subject: mysubj
    body text: mytextstring

    no attachments, no other addresses, send and done...
    Appreciate your help. Thanks

    Gary

  2. #2
    VBAX Contributor
    Joined
    Apr 2014
    Posts
    109
    Location
    Never mind.. I figured it out.. with a lot of help from Google of course....
    Not sure it will work off any computer... but here goes

    Private Sub SubmitEmail()Dim oSmtp As New EASendMailObjLib.Mail
    	oSmtp.LicenseCode = "TryIt"
    	oSmtp.FromAddr = myemailstring
    	oSmtp.AddRecipientEx "recipientemailatthisaddydotcom", 0
    
    	oSmtp.Subject = "My Module"
    	oSmtp.BodyText = mymsgstring
    
    	' Set SMTP server address to "", Do not set user authentication or SSL connection
    
    	oSmtp.ServerAddr = "" 
    
    	If oSmtp.SendMail() = 0 Then
    		MsgBox "email was sent successfully!"
    	Else         
    		MsgBox "failed to send email with the following error:" & oSmtp.GetLastErrDescription()
    	End If
    End Sub
    Oh yes and I downloaded EASendMailObj ActiveX Object 1.0 Type Library
    Last edited by Bob Phillips; 04-09-2014 at 01:49 AM. Reason: Added VBA tags

  3. #3
    VBAX Master
    Joined
    Feb 2007
    Posts
    2,094
    Location
    Are you sure that is goinmg to work on PC's that don't have the library installed?
    John Wilson
    Microsoft PowerPoint MVP
    Amazing Free PowerPoint Tutorials
    http://www.pptalchemy.co.uk/powerpoi...tutorials.html

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •