Tekst automatisch wijzigen

Status
Niet open voor verdere reacties.
F

frans kooijman

Gebruiker
Lid geworden
22 apr 2008
Berichten
517
Hi,
Weet iemand een oplossing voor het volgende:
Uit een andere software komt een tekst in Outlook te staan met een datum in het formaat (als voorbeeld): 16.08.2019

Is er een mogelijkheid om dit formaat door Outlook te laten herkennen en te laten vertalen naar vrijdag 16 augustus (dus incl. weekdag, maand voluit en zonder jaartal)?

Dus ik zoek een iets dat herkent dat het formaat dd.mm.yyyy in getallen automatisch omzet naar weekdag spatie maand (voluit).

Ik heb phraseexpress, maar volgens mij kan ik daar alleen de datum van vandaag laten herkennen,
of alle 365 dagen van het jaar handmatig invullen (pffff).

Iemand een idee hoe ik dit in Outlook zelf (of via een gratis software) kan laten aanpassen?

Thanks!!
Frans
 
En op welk moment in Outlook moet dat gebeuren?
Heb je een voorbeeld van de complete tekst?
 
Het zou moeten gebreuren zodra de tekst vanuit de andere software in Outlook overgezet is.

Het komt dan als voorbeeld zo te staan in Outook:

"Dank voor je boeking met vertrek op 20.08.2019".

Dat ziet er niet echt goed uit, dus ik zou die zin graag automatisch aangepast willen zien naar:

"Dank voor je boeking met vertrek op dinsdag 20 augustus".

Kan dat met een vernuftig iets?

Frans
 
Als die andere software het mailbericht aanmaakt, staat deze dan op dat moment als nieuwe nog te verzenden mail in Outlook?
 
Laatst bewerkt:
Hi Edmoor,


...Ja, klopt. Uit de andere software komt een soort copy/paste, waardoor de tekst in Outlook komt te staan, klaar voor verzending.

Frans
 
Snap ik. Maar is dit bericht dan open in outlook of staat deze bijvoorbeeld in de Concept map?
Dit is belangrijk om op het juiste moment de tekst te kunnen gaan aanpassen, als dat mogelijk is.
 
Dus, afgezien van de tekst, zo?
Outlook.jpg
 
Zet dit in de ThisOutlookSession sectie:
Code: 
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim i As Integer, strMaand As String
    
    For i = 1 To Len(Item.Body)
        If Mid(Item.Body, i, 1) = "." And Mid(Item.Body, i + 3, 1) = "." Then
            Select Case Mid(Item.Body, i + 1, 2)
                Case "01": strMaand = " januari "
                Case "02": strMaand = " februari "
                Case "03": strMaand = " maart "
                Case "04": strMaand = " april "
                Case "05": strMaand = " mei "
                Case "06": strMaand = " juni "
                Case "07": strMaand = " juli "
                Case "08": strMaand = " augustus "
                Case "09": strMaand = " september "
                Case "10": strMaand = " oktober "
                Case "11": strMaand = " november "
                Case "12": strMaand = " december "
            End Select
            
            Item.Body = Mid(Item.Body, 1, i - 1) & strMaand & Mid(Item.Body, i + 4)
            If MsgBox("Maand is aangepast", vbYesNo, "Verzenden") = vbNo Then Cancel = True
            Exit For
        End If
    Next i
End Sub

Het bericht wordt dan op het moment dat je op Verzenden klikt gecontroleerd en eventueel aangepast.
Dit wordt dan gemeld en kan je ervoor kiezen het bericht wel of niet te versturen.
 
Laatst bewerkt:
OK, gekopieerd met Alt + F11 in Project1(VbaProject.VTM) => Microsoft Outlook -objecten => ThisOutlookSession, maar het werkt (nog) niet.

Als ik een tekstje typ met bv 01.12.2019 gebeurt er niets.
Als ik uit de software een regel laat doorlopen met de zin, waarin staat 01.12.2019 dan ook geen omzetting.

Ben ik iets vergeten?

Frans
 
Wat ik in m'n vorige bericht zei, die code wordt gestart als je op Verzenden klikt.
 
Ah, ja, sorry, ik had je laatste 2 regels niet gelezen...shame, shame.

Ja, dit werkt echt PERFECT!!!
Ontzettend bedankt!!!

Frans
 
Ok dan.
En graag gedaan :)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan