Stemknop

Status
Niet open voor verdere reacties.
R

Ron001

Gebruiker
Lid geworden
4 dec 2017
Berichten
384
Allen

Ik gebruik onderstaande code om een e-mail te versturen ivm overwerk.

Vraag1
Waarom staat “Mvg xx” en "en personen in CC" en misschien nog ander stukken in Times New Roman en niet in Calibri zoals de rest?

Vraag2
Nu stuurt iemand die wil komen een e-mail terug, maar kan er automatisch een soort stemknop vanboven in de gestuurde e-mail komen waar op staat “ZATERDAG en “ZONDAG” (twee verschillende knoppen dus.
Zodat ikzelf en de personen in CC een e-mail bekomen met wie wil komen en op welke dag?
Hier staat dan bijvoorbeeld in “Beste Ik wil op zondag komen werken”.

Mvg

Code: 
Sub Overwerk()

    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    
    
        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)

        strbody = "<font size=""3"" face=""Calibri"">" & _
                  "Allen<br><br>" & _
                  "Wie wil/kan het weekend van  " & _
                  "<font color = #FF0000>" & _
                  "<b>**/** maand</b>  " & _
                  "</font>" & _
                  "komen  " & _
                  "<b>EN</b> " & _
                  "de nog andere....)?" & _
                  "<br><br>Ik zoek;" & _
                  "<font color = #FF0000>" & _
                  "<br><br><b> * x ELEK</b>" & _
                  "<br><b> * x MECH</b>" & _
                  "</font>" & _
                  "<br><br>Gelieve d " & _
                  "<b>woensdag </b>" & _
                  "per  " & _
                  "</font>" & _
                  "<b>en personen  </b> " & _
                  "</font>" & _
                  "te  " & _
                  "<br><br>Mvg " & _
                  "<br><br>xx"


        On Error Resume Next
        With OutMail
            .To = "veelpersonen@test.com"
            .CC = "persoon1@test.com;persoon2@test.com;"
            .BCC = ""
            .Subject = "Overwerk"
            .HTMLBody = strbody
            .Display   'or use .Send
        End With
        On Error GoTo 0

        Set OutMail = Nothing
        Set OutApp = Nothing
   
   
End Sub
 
Laatst bewerkt:
Vraag 1: je bent nogal vlotjes met het uitzetten van het font. Voor de leesbaarheid heb ik "een paar" nieuwe regels verwijderd :).
Code: 
    strbody = "<font size=""3"" face=""Calibri"">Allen<br><br>" & _
        "Wie wil/kan het weekend van <font color = #FF0000><b>**/** maand</b> </font> komen <b>EN</b> de nog andere....)?" & _
        "<br><br>Ik zoek;<font color = #FF0000><br><br><b> * x ELEK</b><br><b> * x MECH</b></font><br><br>" & _
        "Gelieve d <b>woensdag </b>per <b>en personen  </b>te <br><br>" & _
        "Mvg <br><br>xx</font>"
 
Vraag 2: zet een regeltje in je Outlook mail.
Code: 
    With OutMail
        .To = "veelpersonen@test.com"
        .CC = "persoon1@test.com;persoon2@test.com;"
        .BCC = ""
        .Subject = "Overwerk"
        .HTMLBody = strbody
[B][COLOR="#0000FF"]        .VotingOptions = "Zaterdag;Zondag"
[/COLOR][/B]        .Display   'or use .Send
    End With
 
Bedankt!

Dit ziet er al goed uit.

Nu krijg ik een e-mail met “Zaterdag: Overwerk” terug, wat eigenlijk wel voldoende is. Dan weet ik in principe genoeg.
Maar zou het kunnen dat enkel ik (diegene die de e-mail verstuurd) dit antwoord krijgt en niet de personen in CC?
 
Je stuurt alleen naar iedereen als je Reply All doet; dat ligt dus aan de ontvanger waar hij/zij op klikt. Zodra je met CC's gaat werken, heb je dat niet meer in de hand. Waarom zou je dat doen trouwens, als je dat niet wilt? Je hebt een íets grotere kans dat de ontvanger alleen op Antwoorden klikt, als je de CC's in de BCC zet. Dan weet de ontvanger niet dat hij/zij niet de enige ontvanger is, en zal de neiging om op <Allen beanwsoorden> te klikken wellicht wat minder groot zijn.
 
Maar als je op de stemknop drukt kan je toch niet kiezen tussen "beantwoorden" en "alle beantwoorden"?
Dit lijkt me steeds enkel naar de verzender te gaan dan...
 
Nee, tenzij je kiest voor <Antwoord bewerken>. Wat mij de handigste optie lijkt. De tekst in het onderwerp komt overigens uit je stemknop (de dag) en het oorspronkelijke onderwerp. En dat krijg je altijd terug bij een reply. Wil je dat niet, dan zul je een apart (antwoord)formulier moeten ontwerpen.
 
Daarnaast lijkt het mij handig om sowieso te kijken of je wel stemknoppen wilt gebruiken, want op een tablet bijvoorbeeld doen ze het niet. Ook niet als je de Outlook app gebruikt.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan