MS Outlook Macro for forwarding message to me by single click.

outlook-macro-forward.vb

Public Sub ResendToMe()
  Dim oMail As Outlook.MailItem
  Dim objItem As Object
  Dim addr As String

  addr = Application.GetNamespace("MAPI").Accounts.Item(1).SmtpAddress

  For Each objItem In ActiveExplorer.Selection
    Set oMail = objItem.Forward
    oMail.Subject = "Delayed - " + oMail.Subject
    oMail.Importance = olImportanceHigh
    oMail.To = addr
    oMail.Send

    Set objItem = Nothing
    Set oMail = Nothing
  Next
End Sub