Microsoft Office Forums - View Single Post - [Solved] Create e-mail copying Powerpoint textbox and send it automatically

Ochimus · 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