outlook macro

Are you familair with VBA
in Outlook check that tools/macros/security is set to Medium

open VBA (Tools/Macros/Visual Basic Editor or Alt+F11)
in left pane; right click Project1 then Insert Module
a new entry named Modules show in left pane
Click the + sign
Double click Module1
Cut and paste the following code
'----------------- snip from here to stop sign
Option Explicit
       Public Const GHND = &H42
       Public Const CF_TEXT = 1
       Public Const MAXSIZE = 4096
       Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) _
         As Long
      Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) _
         As Long
      Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, _
         ByVal dwBytes As Long) As Long
      Declare Function CloseClipboard Lib "User32" () As Long
      Declare Function OpenClipboard Lib "User32" (ByVal hwnd As Long) _
         As Long
      Declare Function EmptyClipboard Lib "User32" () As Long
      Declare Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, _
         ByVal lpString2 As Any) As Long
      Declare Function SetClipboardData Lib "User32" (ByVal wFormat _
         As Long, ByVal hMem As Long) As Long



      Function ClipBoard_SetData(MyString As String)
         Dim hGlobalMemory As Long, lpGlobalMemory As Long
         Dim hClipMemory As Long, X As Long

         ' Allocate movable global memory.
         '-------------------------------------------
         hGlobalMemory = GlobalAlloc(GHND, Len(MyString) + 1)

         ' Lock the block to get a far pointer
         ' to this memory.
         lpGlobalMemory = GlobalLock(hGlobalMemory)

         ' Copy the string to this global memory.
         lpGlobalMemory = lstrcpy(lpGlobalMemory, MyString)

         ' Unlock the memory.
         If GlobalUnlock(hGlobalMemory) <> 0 Then
            MsgBox "Could not unlock memory location. Copy aborted."
            GoTo ExitHere
         End If

         ' Open the Clipboard to copy data to.
         If OpenClipboard(0&) = 0 Then
            MsgBox "Could not open the Clipboard. Copy aborted."
            Exit Function
         End If

         ' Clear the Clipboard.
         X = EmptyClipboard()

         ' Copy the data to the Clipboard.
         hClipMemory = SetClipboardData(CF_TEXT, hGlobalMemory)

ExitHere:

         If CloseClipboard() = 0 Then
            MsgBox "Could not close Clipboard."
         End If

         End Function
Sub getDateSubject()
Dim mySelection As Outlook.Selection
Dim myItem As Outlook.MailItem
Dim theDate As String
Dim theSub As String
Dim copyClip As String
Set mySelection = Application.ActiveExplorer.Selection
    If mySelection.Count = 0 Then
        Set mySelection = Nothing
        Exit Sub
    End If
    Set myItem = mySelection.item(1)
    theDate = myItem.ReceivedTime
    theSub = myItem.Subject
    copyClip = theDate & " " & theSub
    Call ClipBoard_SetData(copyClip)

End Sub
'------------- STOP SIGN
Save the project: File Save VBAProject.OTM
Close OL
Open Ol Accept macros to be run
Rightclick in a standard toolbar/Customize
Go to Command Tab, select Macros
In the right pane, drag and drop Project1.getDateSubject() somewhere in one of the standard toolbars

Select a mail, click on Project1.getDateSubject() , open Notepad thenCtrl-V
you will get something as

28/07/2006 02:38:22 What's Hot Now: AMD's Acquisition of ATI, Samsung's Q1 UMPC, Top Five Things Linux Can Learn From Microsoft and More

Enjoy
Stefri
PS: Sorry, I have not found how to assign a keystroke to a macro