"Save as" makro til Outlook

Sub test()
    Dim ml As mailItem
    Set ml = Outlook.ActiveExplorer.Selection.Item(1)
    ml.SaveAs "c:\" & Replace(ml.Subject, ":", "") & ".msg"
    Set ml = Nothing
End Sub


Denne kode den fjerner dog : da disse ikke må være i filnavne...

VH CK

Helt genialt! Men jeg har godtnok skrevet forkert. Mailen skal gemmes i *.eml format..... Og det er ikke nok blot at ændre :
ml.SaveAs "c:\" & Replace(ml.Subject, ":", "") & ".msg"
til
ml.SaveAs "c:\" & Replace(ml.Subject, ":", "") & ".eml"

Har du mulighed for at hjælpe igen?

eml format det er det format Exchange Serveren gemme beskederne i på serverens M: hvis du skal have fat i eml filer, eller gemme dem så skal du tilgå Exchange Serverens M: og kopiere dem fysisk til din egen disk...lidt omstændeligt...

Hvorfor skal du gemme dem som eml filer?

VH CK

Fordi det format kan læses "rent". Når mailen er gemt som .eml skal den bagefter "hentes" af en anden applikation der kun kan læse den "rene" mail.
F.eks.
Return-Path - Subject - Date- Message-ID - MIME-Version - Content-Type osv.
Det underlige er at i Outlook Express kan man lave "Save as" .eml... Men ikke i Outlook. Idéen er at denne mail bagefter den er "læst" skal smides ind i et andet program. Men som .msg kan den ikke læses "rent". Men det er så kun muligt at gøre manuelt og ikke som makro?