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

gmayor · 06-03-2015, 08:00 AM

The macro works as I said if you follow my instructions. Restore the macro from my original message in place of the one you altered and change the following macro as follows:

Code:

Sub results()
Dim strMessage As String
Dim ANSWERBOX As Object

Set tb = ActivePresentation.Slides(5).Shapes("ANSWERBOX")        '## Update this to use the correct name or index of the shapes collection ##'

    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

    strMessage = UserName & "has scored " & NumberCorrect + NumberCorrect2 + NumberCorrect3 & " as follows:" & vbNewLine & "Q1 - " & NumberCorrect & vbNewLine & "Q2 - " & NumberCorrect2 & vbNewLine & "Q3 - " & NumberCorrect3

    Send_As_Mail strTo:="projects@virtualservice.me", _
                 strSubject:="Quiz Response from" & UserName, _
                 strMessage:=strMessage

End Sub

If the body text of the message doesn't populate, make sure Outook is running before you begin.