Regel til ændring af emne og forward

Er det alle mails der skal forvardes?

Du kan bruge denne VBA makro i Outlook til a forwarde alle indkommende mails med et ændret subject :-)


Private Sub Application_NewMail()
  Dim olFld As Outlook.MAPIFolder
  Dim item As Outlook.MailItem

  Set olFld = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)

  olFld.Items.Sort "modtaget", False

  Set item = olFld.Items.GetFirst
  With item.Forward
    .To = "ksn@intranet.kde"
    .Subject = "Ny besked: " & item.Subject
    .Send
  End With

  Set oMail = Nothing
  Set oFld = Nothing
End Sub

VH CK