VBscript til outlook save message body

Hey keano !
Jeg tror der er noget i denne stil, du leder efter.
Denne sub gemmer bodyen fra diin mail i en txt fil i mappen c:\mail
for, at der ikke kan være flere ens filer sætter jeg navnet på filen til,
at være "FRA - Emne - TIMESTAMP" :

Sub gemmail()
Dim strname As String
    Const ForAppending = 8
    Dim strdate As String
    Dim strafsender As String
    Dim fso As Object
    Dim myItems, myItem As Object
    Dim myort As String
    Dim myOlApp As New Outlook.Application
    Dim myOlExp As Outlook.Explorer
    Dim myOlSel As Outlook.Selection
    destdir = "c:\mail\"
    Set fso = CreateObject("scripting.filesystemobject")
    If Not fso.folderexists(destdir) Then
        fso.createfolder (destdir)
    End If
    Set myOlExp = myOlApp.ActiveExplorer
    Set myOlSel = myOlExp.Selection
    For Each myItem In myOlSel
    strafsender = myItem.SenderName
    strdate = Replace(myItem.SentOn, ":", "")
    strname = "Email fra " & strafsender & " - " & myItem.Subject
    strname = Replace(strname, "/", "-")
    strname = Replace(strname, "\", "-")
    strname = Replace(strname, ">", "-")
    strname = Replace(strname, "<", "-")
    strname = Replace(strname, "|", "-")
    strname = Replace(strname, ";", "-")
    strname = Replace(strname, ":", "-")
    strname = Replace(strname, "?", "-")
    strname = Replace(strname, "!", "-")
    strname = Replace(strname, ".", "-")
    strname = Replace(strname, Chr(34), " ")
    MsgBox (myItem.Body)
    file1 = destdir & strname & "_" & Replace(Now(), ":", "") & ".txt"
   
    MsgBox file1
    Set objfso = CreateObject("scripting.filesystemobject")
    Set fi = objfso.OpenTextFile(file1, ForAppending, True)
    fi.WriteLine (myItem.Body)
    Set fi = Nothing
    Next
End Sub

/Killer

Tjekker lige om jeg kan få det til at virke :-)

Forresten! Jeg er kommet til, at sætte filnavnet til, at være lige præcis de ting, du ikke ville have med (Skal til, at læse spm. færdigt før jeg svarer :o)  )

Du kan bare erstatte dem med timestamp eller hvad du nu har lyst til :o)

Jeg gør:

- sætter koden ind i Outlook's Visual Basic Editor under ThisOutlookSession
- forsøger at lave den regel jeg omtaler ovenfor

men når jeg vil tilføje scriptet til reglen fremgår scriptet ikke af oversigtet af scripts. Jeg ved ikke om det er mig der gør noget forkert?

Hmmm.
Hvis du skal kunne køre den fra reglerne ser det lidt anderledes ud ....
Jeg kigger lige på det

mange tak for det

grunden til at jeg vil køre det fra reglerne var fordi jeg tænkte det var det nemmeste. Det kan godt være at jeg ikke har ret i det :-)

Nøøøøh, du har sgu' egentlig ret.
Men husk, at det stadig kun vil virke, når du er logget på Outlook.
Dvs det ikke vil virke når din computer er slukket, og i kører Exchange server :o)

/Killer

OK !!
Her er lidt en hybrid af mit første script, og lidt godt fra MS hjemmeside
(http://support.microsoft.com/?kbid=306108)

:o)


Sub CustomMailMessageRule(Item As Outlook.MailItem)
Dim strname As String
    Const ForAppending = 8
    Dim strdate As String
    Dim fso As Object
    destdir = "c:\mail\"
    Set fso = CreateObject("scripting.filesystemobject")
    If Not fso.folderexists(destdir) Then
        fso.createfolder (destdir)
    End If
    strafsender = Item.SenderName
    strdate = Replace(Item.SentOn, ":", "")
    strname = "Email fra " & strafsender & " - " & Item.Subject
    strname = Replace(strname, "/", "-")
    strname = Replace(strname, "\", "-")
    strname = Replace(strname, ">", "-")
    strname = Replace(strname, "<", "-")
    strname = Replace(strname, "|", "-")
    strname = Replace(strname, ";", "-")
    strname = Replace(strname, ":", "-")
    strname = Replace(strname, "?", "-")
    strname = Replace(strname, "!", "-")
    strname = Replace(strname, ".", "-")
    strname = Replace(strname, Chr(34), " ")
    file1 = destdir & strname & "_" & Replace(Now(), ":", "") & ".txt"
    Set objfso = CreateObject("scripting.filesystemobject")
    Set fi = objfso.OpenTextFile(file1, ForAppending, True)
    fi.WriteLine (Item.Body)
    Set fi = Nothing
End Sub

/Killer

Tak for det sidste. Det virker dog stadig ikke. jeg tror dog ikke at det er koden det er galt med, uasnset hvilket script jeg forsøger at implementere(f.eks eksemplerne fra linket til microsoft) sker der ikke noget når der kommer en mail der opfylder den regel jeg har opsat.

Problemet må derfor være i at få outlook til at køre scripts. Jeg har forsøgt at fuske lidt med nogle security seetings og om antivirus, indtil videre uden held, men jeg kigger lige videre på det og giver besked når jeg har fundet ud af det.

okies :o)
Har du tjekket din makro sikkerhed ?

jeps :-)

Prøv lige igen, men uden at åbne mailen.
Dukker filen så op efter et par minutter ?

tjekker lige

Desværre stadig ingenting....virker det hos dig?

Ja, men det er lidt sært.
Ude på mit arb. virker det med det samme, men her hjemme virker det med ca 40 sek. forsinkelse :o)

/Killer

Nu virker den fino :o)
Det var nok fordi, jeg kørte  exchange i cache tilstand :o)

Ok, jamen så må jeg kunne løse det herfra - endnu en gang tak for hjælpen. Er lige væk et par timer. Kigger videre på det senere eller i morgen tidlig - f.eks på en anden maskine på arbejdet.

Kører du egentlig Exchange ?
Hvis du gør, så prøv, at sende til dig selv fra en andens konto/maskine.

Så virker det....ved ikke hvad forskellen er fra i går andet end at jeg sidder på arbejdet nu. (Samme maskine - laptop). MANGE TAK FOR HJÆLPEN!

Hehe ....
MS's veje er nogle gange uransalige :o)
Jeg synes nok også, at det burde virke ;)
/Killer

Aehm .. Jeg kunne ikke lokke dig til, at acceptere svaret, vel ?? ;)

Hey keano !

Du har ikke godkendt mit svar :o)

/Killer

Beklager forsinkelsen :-(

helt i orden :o)