msgBox with addresses in Outlook

[nuub]

Hi!

I want Outlook to confirm all email messages with a msgBox witch contains all e-mail addresses (SMTP) where the email is being sent. I kind of managed it, but I didn't get it to show SMTP addresses, since MS doesnt want scripts to see SMTP addresses (Big security risc).

I have read that You can override it with Redemtion. However using Redemtion objects is little over my league (I'm not a programmer).
(Or maybe someone allready made this kind of script). I have searched the net for days now and still no luck

Can anyone please show how can i make the functionality of the following script to work with redemtion and SMTP addresses:

Private Sub Application_ItemSend(ByVal item As Object, Cancel As Boolean)
addresses = "Sending e-mail to:" + vbNewLine


If Not item.To = "" Then
    addresses = addresses + item.To + "; "
End If


If Not item.CC = "" Then
    addresses = addresses + item.CC + "; "
End If

If Not item.BCC = "" Then
    addresses = addresses + item.BCC + "; "
End If

msg = MsgBox(addresses, vbYesNo, "Check your recipients: ")

If msg = vbYes Then
    Item_Send = True
Else
    Item_Send = False
    Cancel = True
End If

End Sub