Melding dat email verzonden is

[DCHR]

Hoi,

Ik heb gisteren van iemand een scriptje gekregen om dmv een button een formulier via een email te laten verzenden naar een vooropgegeven adres.

Dit is het scriptje:

Sub verstuur()
With ActiveDocument
.HasRoutingSlip = True
With .RoutingSlip
.AddRecipient "xxx@yyy.nl"
.Protect = wdNoProtection
.Delivery = wdAllAtOnce
.ReturnWhenDone = False
.Subject = "formulier"
End With
.Route
.Close 0
End With
End Sub

Nu krijg ik in de email het volgende bericht:

Het bijgevoegde document bevat een circulatielijst. U bent de laatste in de rij. Verder rondsturen is niet nodig.

weet iemand hoe ik deze tekst kan weglaten, of aanpassen?

en verder, op het moment dat er nu op de knop wordt gedrukt wordt het ebstand verzonde, echter krijgt men geen melding van dat het bericht verzonden is. Nu zal het waarschijnlijk zo zijn dat er hier mensen zijn die dan denken dat ze iets fout hebben gedaan en het hele gebeuren voor de zekerheid nog een paar keer verzenden. Weet iemand hoe je een melding kan laten geven dat de email verzonden is?

groet,

Martijn

 

[Wigi]

Zo denk ik (gok ik): ongeteste code

Sub verstuur()
With ActiveDocument
[B].HasRoutingSlip = False[/B]
With .RoutingSlip
.AddRecipient "xxx@yyy.nl"
.Protect = wdNoProtection
.Delivery = wdAllAtOnce
.ReturnWhenDone = False
.Subject = "formulier"
End With
.Route
.Close 0
End With
[B]MsgBox "De mail werd verzonden.",vbInformation[/B]
End Sub

Wigi

 

[snb]

1. de suggestie van Wigi niet overnemen ! Die is absoluut fout.

2. Vertel tegen de mensen dat ze met de eerste melding niets hoeven te doen (conform de melding).
3. Vertel de mensen dat als ze op de knop hebben gedruk het bestand verzonden is (na 3 keer 'geloven' ze jou)
4. je kunt de code uitbreiden met het verwijderen van de knop in het bestand voordat je het bestand sluit.

 

[Wigi]

1. de suggestie van Wigi niet overnemen ! Die is absoluut fout.

OK sorry dan, daar had ik toen geen tijd meer voor. En gokken willen al eens fout uitdraaien. Maar er stond wel bij dat het ongeteste code was. Volgende keer beter zeker.

 

[DCHR]

1. de suggestie van Wigi niet overnemen ! Die is absoluut fout.

2. Vertel tegen de mensen dat ze met de eerste melding niets hoeven te doen (conform de melding).
3. Vertel de mensen dat als ze op de knop hebben gedruk het bestand verzonden is (na 3 keer 'geloven' ze jou)
4. je kunt de code uitbreiden met het verwijderen van de knop in het bestand voordat je het bestand sluit.

1) Ok, zal ik niet doen
2) is een te doene optie, is een team van plm 10 mensen die ik het zou moeten vertellen.
3) hoop toch echt dat er een oplosiing voor is, anders zou ik in theorie (bij 3 keer per medewerker) dit 180.000 keer moeten vertellen vordat iedereen het snapt.
4) Hoe doe je dit?

 

[Wigi]

De regel code met de MsgBox in op het einde van mijn code, mag je wel gebruiken hoor

Dan hoef jij het niet te zeggen aan de mensen. (Moeten de mensen het natuurlijk wel lezen en de box niet gewoon wegklikken zonder lezen...)

 

[leofact]

ook twee ( misschien foute) experimentjes.
Probeer deze eens
.TrackStatus = false
als laatste voor de end with

en/of met
.message = "boodschap"
zelf een boodschap meegeven.
(hopelijk in plaats van de excel boodschap)

Met
CommandButton.Enabled = false
Kun je de knop deactiveren (wordt grijs)
met
CommandButton.visible = false
wordt de knop onzichtbaar gemaakt.

mvg leo

 

[snb]

Probeer geen van beide suggesties van Leo.
Kijk eerst eens in de help van Excel bij Routingslip.

Trackstatus is standaard False, dat betekent dat als een ontvanger zijn bestand aan de volgende in de lijst zou doorsturen (bij niet-gelijktijdige verzending), de oorspronkelijke verzender daarvan een bericht krijgt.

de Message is de mededeling die in de email komt waaraan het bestand als bijlage is gehecht. Die krijgt de verzender dus niet te zien, maar de ontvanger in de email.

Je kunt wel zorgen dat de routingslip wordt verwijderd.
Je zult dan ook de verzendknop in het bestand moeten verwijderen.

Bijvoorbeeld

Sub verstuur()
  With ActiveDocument
    .HasRoutingSlip = True
    With .RoutingSlip
      .AddRecipient "xxx@yyy.nl"
      .Protect = wdNoProtection
      .Delivery = wdAllAtOnce
      .ReturnWhenDone = False
      .Subject = "formulier"
    End With
   .Route
[COLOR="Red"]   .HasroutingSlip =false
   activesheet.commandbutton1.delete
   .save[/COLOR]
   .Close 0
  End With
End Sub

Om te voorkomen dat een ontvanger enige mededeling krijgt kun je het volgende gebruiken

Private Sub Workbook_Open()
  Activeworkbook.Hasroutingslip=false
End Sub

 

[leofact]

Delete als eigenschap bij een commandbutton ken ik persoonlijk niet
visible op false zetten lijkt mij ook handiger omdat de button er nog wel is en zo weer true gezet kan worden.

Met de message suggestie probeerde ik te bereiken dat de ontvanger niet de doorstuurboodschap krijgt, dat werkt inderdaad niet.

Wanneer je na de aanpassingen tot nu toe tevreden bent, dan is het mooi.
Zo niet dan is het misschien een idee om naar sendmail te gaan kijken.
Daarbij kun je het werkboek als bijlage mailen, zonder meldingen en met alleen eigen boodschappen.

 

[snb]

De methode delete:

- bij knoppen van de werkbalk formulier

ActiveSheet.Buttons(1).Delete
ActiveSheet.Buttons("Button 1").Delete

- bji knoppen van de werkset besturingselementen

ActiveSheet.OLEObjects(1).Delete
ActiveSheet.OLEObjects("Commandbutton1").Delete