Avatar billede sysop Juniormester
03. november 2015 - 16:13 Der er 9 kommentarer og
1 løsning

Regler kører ikke automatisk

Hej.

Jeg ønsker at videresende fakturaer som jeg modtager på email til en ekstern email adresse.

Jeg har lavet en regel i Outlook 2013 som virker fint når jeg kører den manuelt men det kører ikke automatisk. Har forsøgt at lave en cleenrule og lave den igen. Jeg har også lavet den i Outlook 2010 med samme resultat.
Jeg kører exchange 2007.

Det behøver nødvendigvis ikke kører via en regel i outlook hvis der findes andre løsning.

Forslag?`!
Avatar billede supertekst Ekspert
03. november 2015 - 16:38 #1
Evt via VBA
Hvordan "lyder" den nævnte regel?
Avatar billede sysop Juniormester
03. november 2015 - 17:13 #2
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?
Avatar billede supertekst Ekspert
03. november 2015 - 18:17 #3
Nu anvender jeg "kun" alm. Outlook - så om det kan fungere på Exchange Server - må komme an på en prøve.
Avatar billede sysop Juniormester
03. november 2015 - 18:30 #4
Jeg er klar :-)
Avatar billede supertekst Ekspert
03. november 2015 - 23:38 #5
Jeg vender tilbage...
Avatar billede supertekst Ekspert
04. november 2015 - 11:16 #6
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
Avatar billede supertekst Ekspert
12. november 2015 - 11:54 #7
Noget nyt?
Avatar billede sysop Juniormester
03. december 2015 - 07:08 #8
Hej Supertekst.

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

1000 tak for hjælpen.
Avatar billede sysop Juniormester
03. december 2015 - 07:08 #9
Hov smid lige et svar.
Avatar billede supertekst Ekspert
03. december 2015 - 08:14 #10
Hej
Alt ok og selv tak
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester