Regler kører ikke automatisk

Evt via VBA
Hvordan "lyder" den nævnte regel?

Reglen er rimelig simpel.

Alt hvad der kommer til faktura@xx.dk der har en vedhæftet fil skal videresendes til xx@xx.dk.

Hvis man kan tilføje at den så er markeret læst eller på anden måde kan se den er ekspederet ville være fedt.

Min udfordring er at den skal kunne kører uden email klienten køre. Ligeleds skal den sendes i "plain tekst".

Er det muligt?

Nu anvender jeg "kun" alm. Outlook - så om det kan fungere på Exchange Server - må komme an på en prøve.

Jeg er klar :-)

Jeg vender tilbage...

Rem VBA-koden indsættes i ThisOutlookSession
Rem Muliggør anvendelse af makro i Outlook
Rem Set a reference to "Microsoft HTML object library".
Rem JUSTER de anførte "Const værdier"
Option Explicit
Const modtagetFra = "faktura@xx.dk"
Const videreSendesTil = "xx@xx.dkk"

Private WithEvents olinboxitems As Items
Private Sub Application_Startup()
    Set olinboxitems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
Dim olMailItem As MailItem
Dim strAttachmentName As String
    On Error Resume Next
Rem Test om Mail, 1 vedhæftet, fra afsenderadresse med "modtagetFra" i
    If TypeOf Item Is MailItem Then
        Set olMailItem = Item
        If olMailItem.Attachments.Count = 1 And InStr(LCase(olMailItem.SenderEmailAddress), modtagetFra) > 0 Then
Rem Marker som læst, konverter body til plain, videresend til "videreSendesTil"
            olMailItem.UnRead = False

            olMailItem.Body = HtmlToText(olMailItem.Body)
            olMailItem.Save
           
            olMailItem.Forward
            olMailItem.Recipients.Add videreSendesTil
        End If
    End If
    Set Item = Nothing
    Set olMailItem = Nothing
End Sub
Function HtmlToText(sHTML) As String
Dim oDoc As HTMLDocument
    Set oDoc = New HTMLDocument
    oDoc.Body.innerHTML = sHTML
    HtmlToText = oDoc.Body.innerText
End Function

Noget nyt?

Hej Supertekst.

Sorry havde glemt at give dig svar og selvfølgelig points.

1000 tak for hjælpen.

Hov smid lige et svar.

Hej
Alt ok og selv tak