Create e-mail copying Powerpoint textbox and send it automatically

gmayor · #6 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.

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