Macro om gemarkeerde regel te verwijderen uit mail.

[Gerhardh]

Goedemiddag,

Wanneer wij een mail ontvangen van een mailadres buiten onze organisatie krijgen wij boven de betreffende mail een gemarkeerde regel met de tekst dat de mail van buiten komt.

Wanneer ik deze mail beantwoord blijft deze regel alsnog in de mail staan. Maar dat wil ik liever niet en om telkens de regel handmatig te verwijderen is te veel werk.

Nu ben ik bezig geweest om een macro te schrijven met een button in het lint om deze regel te verwijderen.
Het wil mij nog niet echt lukken . Volgens mij moet de macro zoeken naar gehighlighte regels deze selecteren en verwijderen/knippen.

Wie kan mij verder helpen?

[Ghostface9000]

Hoe ziet jou macro er nu uit ?

[F_J_K]

Geef idd even de huidige code icm. waar je tijfelt, dan kunnen we meedenken.

In het algemeen: ik zou niet zoeken naar 'alle' gehighlighte tekst, ik zou alleen kijken naar een bepaalde plaats zoals bovenaan.

Overigens: houd rekening met plaintext / html / rtf mails. Ze zullen alle drie voorkomen.

Over welke software gaat het trouwens? De meest recente Outlook in OFF365? En dan de Windowsversie, niet webbased?

[ Voor 16% gewijzigd door F_J_K op 16-07-2021 13:43 ]

[Gerhardh]

Ik heb er ook nog even verder over nagedacht. ik moet niet zoeken naar de markering/highlight maar naar de tekst. de macro moet dus zoeken naar de zin ''LET OP: Deze e-mail is afkomstig van buiten de organisatie. Klik niet op links of open geen bijlagen tenzij u de afzender herkent en weet dat de inhoud veilig is.''

en deze verwijderen.

[Verwijderd]

Helemaal goed!

[Gerhardh]

Ik heb nu onderstaande macro in Word. daar werkt hij nu. Het lukt mij alleen niet om deze om te zetten naar Outlook. wie weet wat ik aan moet passen?

code:

Sub ScratchMacroII()
Dim oRng As Word.Range
Set oRng = ActiveDocument.Range
With oRng.Find
  .Text = "LET OP: Deze e-mail is afkomstig van buiten de organisatie. Klik niet op links of open geen bijlagen tenzij u de afzender herkent en weet dat de inhoud veilig is."
  While .Execute
    oRng.Paragraphs(1).Range.Delete
  Wend
End With
End Sub

[dixet]

Volgens mij doet dit wat je wilt.

Alleen het stukje met "Selection.InsertBefore" vervangen door jouw zoek- en vervang code