Gegeven worden automatisch gewist bij het verzenden via de mail?

[Asmaiac]

Hey,

Ik heb in vba wat formulieren gemaakt, waarin vragen worden gesteld (= een toets). Nu schrijf je wanneer je naar de volgende pagina gaat dmv een button het gegeven antwoord naar blad 1:

UserForm1O.Hide
UserForm1O_0_Start.Show

If O_btn_vraag1_A.Value = True Then
Blad1.Range("G16").Value = "A"
End If

If O_btn_vraag1_B.Value = True Then
Blad1.Range("G16").Value = "B"
End If

If O_btn_vraag1_C.Value = True Then
Blad1.Range("G16").Value = "C"
End If

If O_btn_vraag1_D.Value = True Then
Blad1.Range("G16").Value = "D"
End If

Wanneer de toets wordt afgesloten wordt het excel document verstuurd via outlook. Ook de antwoorden (kolom G) wil ik natuurlijk mee. Maar wanneer ik het mailtje open en de gegevens wil inzien mis ik de antwoorden:

If O_btn_vraag1_A.Value = True Then
Blad1.Range("G20").Value = "A"
End If

If O_btn_vraag1_B.Value = True Then
Blad1.Range("G20").Value = "B"
End If

If O_btn_vraag1_C.Value = True Then
Blad1.Range("G20").Value = "C"
End If

If O_btn_vraag1_D.Value = True Then
Blad1.Range("G20").Value = "D"
End If


If Blad1.Range("G20").Value = "" Then
'start outlook op
Dim out As Outlook.Application
Set out = Outlook.Application

'in cel naam wordt nu de outlookusernaam ingelezen
Blad1.Range("B24").Value = out.Session.CurrentUser
End If




User = Blad1.Range("B24").Value
Application.Dialogs(xlDialogSendMail).Show ARg2:="Toetsresultaten " & User

ActiveWindow.Close

Wanneer ik tussentijds (voor het afsluiten) de toets stop (door op het kruisje te drukken) en ik blad 1 opvraag zie ik nog wel alle antwoorden. Denk zelf dus dat het ergens bij het afsluiten mis gaat.

 

[Lemmod]

Waarschijnlijk een stomme vraag maar sla je het bestand ook op voordat je het verstuurd?

 

[Asmaiac]

Volgens mij niet? Hoe zou dit dan gedaan moeten worden?

 

[Wigi]

Bijvoorbeeld:

ThisWorkbook.Save of ThisWorkbook.SaveAs "pad"

 

[Asmaiac]

heel logisch! Thnx!

Heeft iemand overigens een idee:
Het excel document wordt straks via de mail (outlook) verspreid. Een collega opent deze toets en deze wordt dan aan het afronden gemaild naar een vooraf ingestelde mailadres.

Zou graag willen dat het excel document zowel niet meer in de inbox als in de verzonden item box te vinden is. Dacht zelf iets van na het verzenden het document legen en dan opslaan? Maar dit zou dan zijn voor het geopende mail (inbox)? Is dit mogelijk zo ja, weet iemand hier een code voor? En heeft iemand misschien een oplossing voor het verzonden mailtje (dat hij niet in de verzonden items komt) Of daar vandaan verwijderen?

 

[Asmaiac]

Lukt helaas toch niet helemaal Wigi:

Private Sub c_btn_vraag2_Click()

If O_btn_vraag1_A.Value = True Then
Blad1.Range("G20").Value = "A"
End If

If O_btn_vraag1_B.Value = True Then
Blad1.Range("G20").Value = "B"
End If

If O_btn_vraag1_C.Value = True Then
Blad1.Range("G20").Value = "C"
End If

If O_btn_vraag1_D.Value = True Then
Blad1.Range("G20").Value = "D"
End If

UserForm1S.Hide


ActiveWorkbook.Save

If Blad1.Range("B24").Value = "" Then
'start outlook op
Dim out As Outlook.Application
Set out = Outlook.Application

'in cel naam wordt nu de outlookusernaam ingelezen
Blad1.Range("B24").Value = out.Session.CurrentUser
End If




User = Blad1.Range("B24").Value
Application.Dialogs(xlDialogSendMail).Show ARg2:="Toetsresultaten " & User

'ActiveWindow.Close

 

[Asmaiac]

Krijg nog steeds alleen antwoord van vraag 20 te zien. Van de overige vragen zie ik geen antwoord

Wanneer ik het document opsla (bijv. op mijn bureaublad) ipv versturen slaat hij wel alle antwoorden op.

 

[Asmaiac]

Misschien dat iemand mij kan helpen nu ik het bestand heb toegevoegd? Heb wel wat formulieren moeten verwijderen (ivm de maximale grootte).


:thumb: