Create e-mail copying Powerpoint textbox and send it automatically

Ochimus · #1 06-03-2015, 02:51 AM

I need to create an e-mail of the text in a PowerPoint textbox, and send it automatically to someone.

I created a Quiz in PowerPoint with a Macro that classes each possible answer to each Question as a "Shape", Each shape is assigned a value ("0", "1" or "2").,

At the end of the Quiz it puts those numbers in a textbox showing the User what his score was for each question. The Code registering and then showing the "right" answers is as follow:.

Code:

 
Sub Correct()
If SlideShowWindows(1).View.Slide.SlideIndex = 2 Then
NumberCorrect = NumberCorrect + 1
ElseIf SlideShowWindows(1).View.Slide.SlideIndex = 3 Then
NumberCorrect2 = NumberCorrect2 + 1
ElseIf SlideShowWindows(1).View.Slide.SlideIndex = 4 Then
NumberCorrect3 = NumberCorrect3 + 1
End If
ActivePresentation.SlideShowWindow.View.Next
End Sub
 
Sub results()
 
Dim ANSWERBOX As Object

Set tb = ActivePresentation.Slides(5).Shapes("ANSWERBOX") 
tb.Visible = True
tb.TextFrame2.TextRange.Characters.Text = UserName & ", You scored " & NumberCorrect + NumberCorrect2 + NumberCorrect3 & " as follows:" & vbNewLine & "Q1 - " & NumberCorrect & vbNewLine & "Q2 - " & NumberCorrect2 & vbNewLine & "Q3 - " & NumberCorrect3

End Sub

I need to send that final "Text" as an e-mail automatically to the Quiz controllers, so they can see and table the answers given by each User.

All suggestions and solutions accepted gratefully

Ochimus

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro for Copying Charts to Powerpoint	bremen22	Excel Programming	1	10-01-2013 03:27 PM
PowerPoint 2007- Reapply Master to Notes Page but Not to the Text within the Textbox/	mejasmine	PowerPoint	0	01-26-2012 07:39 AM
PowerPoint 2007 Textbox Lock / Form Issues	LTechie12	PowerPoint	0	01-08-2012 02:08 PM
How to Start from 1. automatically after copying/pasting a Numbered Bullet or Table	drlili	Word	2	07-25-2011 09:38 AM
Copying data from one cell to another automatically	mrphilk	Excel	4	06-10-2010 11:52 PM