---

Hej NG.

Jeg har fundet nedenstående makro på nettet.
Hvordan kan jeg tilpasse den, så jeg kan tilføje en tekst der hvor markøren
er placeret i min mail.


Public Sub TimeStamp()
Dim objOutlook As Outlook.Application
Dim objInspector As Outlook.Inspector
Dim objItem As Object 'Allow any Outlook item type.

Dim strDateTime As String

On Error Resume Next

' Instantiate an Outlook Application object.
Set objOutlook = CreateObject("Outlook.Application")

' The ActiveInspector is the currently open item.
Set objInspector = objOutlook.ActiveInspector

' Check and see if anything is open.
If Not objInspector Is Nothing Then
' Get the current item.
Set objItem = objInspector.CurrentItem

' Get the current date and time.
strDateTime = Now()


' To add the date and time stamp to the end of the item,
' comment the preceding code line and uncomment the
' following code line.

'Top
'objItem.Body = strDateTime & objItem.Body

'Bottom
objItem.Body = objItem.Body & strDateTime & " jb"

Else
' Show error message with only the OK button.
MsgBox "No item is open", vbOKOnly
End If

' Set all objects equal to Nothing to destroy them and
' release the memory and resources they take.
Set objOutlook = Nothing
Set objInspector = Nothing
Set objItem = Nothing
End Sub



--
Med venlig hilsen
Jørgen Bondesen

Followup to newsgroup only please.
Jeg ønsker, at vi kommunikere via nyhedsgruppen, tak.