Consulting

Results 1 to 5 of 5

Thread: POWERPOINT QUIZ, CODE TO SEND RESULTS AUTOMATICALLY

Threaded View

Previous Post Previous Post   Next Post Next Post
  1. #1

    POWERPOINT QUIZ, CODE TO SEND RESULTS AUTOMATICALLY

    Hi all
    I've an elderly lady who has just designed my first very simple powerpoint quiz, but I'm stuck andneed the code to send the results to an email address. Any help would be greatly appreciated (in words of one syllable, please!). I have attached my code so far below
    Many thanks


    Dim UserName As String
    Dim numberCorrect As Integer
    Dim numberWrong As Integer
    
    Sub YourName()
    UserName = InputBox(Prompt:="Pleae type your first name!")
    MsgBox " Welcome to The Wolverhampton Induction Quiz " + UserName, vbApplicationModal, " Trial Quiz"
    End Sub
    
    Sub Correct()
    MsgBox "Well Done! That's the correct answer " + UserName, vbApplicationModal, " Trial Quiz"
    numberCorrect = numberCorrect + 1
    ActivePresentation.SlideShowWindow.View.Next
    End Sub
    
    Sub Wrong()
    MsgBox "Sorry! That's incorrect " + UserName, vbApplicationModal, " Trial Quiz"
    numberWrong = numberWrong + 1
    ActivePresentation.SlideShowWindow.View.Next
    End Sub
    
    Sub Start()
    numberCorrect = 0
    numberWrong = 0
    YourName
    ActivePresentation.SlideShowWindow.View.Next
    End Sub
    
    Sub Results()
    MsgBox "Well done " & UserName & " You scored " & numberCorrect & " out of " & numberCorrect + numberWrong, vbApplicationModal, " Trial Quiz"
    ActivePresentation.SlideShowWindow.View.Next
    End Sub
    Last edited by Paul_Hossler; 11-01-2019 at 07:21 PM.

Posting Permissions

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