Automatische datum in Outlook 2010

[krolik]

Om in een nieuw bericht de datum in te voegen kan je : New Mail --> Insert --> Date & Time klikken. Dan het juiste formaat. Ik wil daarnaast ook nog Language --> Russian. Dit gaat goed, ook het Cyrillisch schrift.

Nu wil ik dit automatisch doen, met een button op de toolbar. Dit werkt, maar alleen nog in het Nederlands. Wat moet ik nog doen om de Russische (of gelijk welke buitenlandse) text te krijgen? In Word wordt gewerkt met DateLanguage. Zie onderstaande macro.

Sub NewEmail()
Dim msg As Outlook.MailItem
Dim strDate, strTime, strDT As String

strDate = Format(Date, "dddd d MMMM yyyy")
strTime = Time()
strDT = strDate & " - " & strTime

Set msg = Application.CreateItem(olMailItem)
msg.Subject = "Sample Message from a Macro"
msg.Body = strDT
msg.Display
End Sub

Alvast bedankt voor de gouden tip.

 

[snb]

Sub charasjo()
  ActiveDocument.Paragraphs(1).Range.InsertDateTime "dddd d MMMM yyyy", , False, DateLanguage:=1049
  With outlook.CreateItem(olMailItem)
    .Subject = "Hou het simpel"
    .Body = ActiveDocument.Paragraphs(1).Range
    .Display
  End With
End Sub

 

[krolik]

Beste SNB,

Bedankt voor de snelle reactie, maar het werkt (nog) niet.
Ik krijg de melding : Runtime-error 424 --- Object required

 

[snb]

Je vergeet te melden in welke regel die melding optreedt.

Alternatief:

Sub charasjo()
  ActiveDocument.Paragraphs(1).Range.InsertDateTime "dddd d MMMM yyyy", , False, DateLanguage:=1049
  With createobject("outlook.application").CreateItem(olMailItem)
    .Subject = "Hou het simpel"
    .Body = ActiveDocument.Paragraphs(1).Range
    .Display
  End With
End Sub

 

[krolik]

Sorry, 1e regel

ActiveDocument.Paragraphs(1).Range.InsertDateTime "dddd d MMMM yyyy", , False, DateLanguage:=1049