Variabelen in Outlook 2010

Status
Niet open voor verdere reacties.
J

jmeeuwse

Gebruiker
Lid geworden
18 nov 2000
Berichten
381
Hallo,

Een vraagje.
Is het mogelijk in Outlook 2010 een handtekening of email sjabloon te maken waarin de datum automatisch weergegeven wordt bij een neiuw bericht ?
Dus een variabele of macro ( iets van {%Date} of zoiets ) toe te voegen ?

Alvast bedankt,

Jaap.
 
Dynamische velden wordt erg lastig, maar je kunt een standaardsjabloon maken waarin je vaste teksten vervangt door jouw variabelen. Iets als:
Code: 
Sub ProductieRapport()
Dim MyTmpl As Outlook.MailItem

    Set MyTmpl = Application.CreateItemFromTemplate(Environ("Appdata") & "\Microsoft\Sjablonen\ProductieRapport.oft")
    With MyTmpl
        .HTMLBody = Replace(MyTmpl.HTMLBody, "xxxxxxxxxxxxxxx", Format(Now + DaysUntilMonday - 7, "d MMMM yyyy"))
        .Subject = Replace(MyTmpl.Subject, "xxxxxxxxxxxxxxx", Format(Now + DaysUntilMonday - 7, "d MMMM yyyy"))
        .Display
    End With
    Set MyTmpl = Nothing
End Sub
Deze code gebruikt een functie die de eerstvolgende maandag berekent, en die is wel geinig, dus die geef ik er maar gelijk bij :).

Code: 
Function DaysUntilMonday() As Integer
Dim CurrentDay As Integer
Dim retVal As Integer
    
    CurrentDay = Weekday(Date)
    If CurrentDay = vbSunday Then 'vbSunday 1 Sunday (default)
        retVal = 1
    ElseIf CurrentDay = vbMonday Then 'vbMonday 2 Monday
        retVal = 7
    ElseIf CurrentDay = vbTuesday Then 'vbTuesday 3 Tuesday
        retVal = 6
    ElseIf CurrentDay = vbWednesday Then 'vbWednesday 4 Wednesday
        retVal = 5
    ElseIf CurrentDay = vbThursday Then 'vbThursday 5 Thursday
        retVal = 4
    ElseIf CurrentDay = vbFriday Then 'vbFriday 6 Friday
        retVal = 3
    ElseIf CurrentDay = vbSaturday Then 'vbSaturday 7 Saturday
        retVal = 2
    End If
    DaysUntilMonday = retVal
End Function
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan