Brevhoved i udskrivning

Det tror jeg ikke du kan fjerne. Der er ikke mange indstillinger for udprint i Outlook.

Det kan lade sig gøre ved hjælp af noget makro-programmering :-)

Dette er et eksempel jeg har fundet og rettet lidt i - den sletter Hvem den er sendt til, hvem der er kopieret op (cc) og hvem der er Blind kopieret (bcc) samt emnet!

Afsender adressen kunne jeg ikke lige finde, og hellere ikke Brugernavnet med fed øverst eller Sendetidspunkt!

Men håber ellers at du kan bruge det - evt. der er andre der kan udbygge det til også at omfatte de ting jeg ikke har med

Public Sub remRecipAndPrint()
' assuming code is running in outlook 2000/2002s
' vba environment
Dim cItem As Outlook.MailItem
Dim colSelection As Outlook.Selection
Dim oMessage As Outlook.MailItem
Dim i As Long

Set colSelection = Application.ActiveExplorer.Selection

If colSelection.Count = 0 Then
  Set colSelection = Nothing
  Exit Sub
End If
For i = 1 To colSelection.Count
  Set cItem = colSelection.Item(i)
  cItem.To = ""
  cItem.CC = ""
  cItem.BCC = ""
  cItem.Subject = ""
  cItem.Display True
  'cItem.PrintOut
  cItem.Close olDiscard
  Set cItem = Nothing
Next
Set colSelection = Nothing
End Sub

Det ligner noget af det rigtige - men jeg kan ikke finde ud af hvordan man eksekverer den i forbindelse med udskrift af mails? Jeg har skrevet det ind i en sub i en makro - hvordan får jeg den til at køre?

Lav en ny makro og læg koden I

Lav en genvej til den på værktøjslinien
vis -> værktøjslinier -> tilpas -> kommandoer -> makroer

Træk og slip den ud på værktøjslinien

Herefter kan du klikke på ikonet når du har markeret den mail du vil udskrive

Ups har lavet en lille fejl: :-)

  cItem.Display True
  'cItem.PrintOut

apostrof (') foran betyder kommentar og vil dermed ikke blive kørt.
den øverste er til at indikere om resultatet skal vises på skærmen i et vindue
Den nederste er til at indikere om resultatet skal printes.

Som du ser har jeg kommenteret print ud, og den printer dermed ikke! Hvis den skal printes, så bare fjern ' foran .

Det virkede! - men den skriver stadig "Fra" og "Sendt"-felterne ud.

Jeg fandt de tilsvarende properties på denne side:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/office97/xhtml/output/F1/D5/S5B126.asp

- de hedder "ReceivedTime" og "SenderName". Men makroen vil ikke køre når jeg skriver dem ind i din kode (cItem.SenderName = "" etc) - jeg får fejlmeddelelsen, det er en "read-only" property, så den kan ikke ændres.

Kan denne sidste nød også knækkes? ;-)

Hmm - jeg kan ikke!

Er tilsyneladende en read-only attribut og den kan du sikkert ikke fjerne!

Tak for hjælpen...