件名がファイル名のWindowsフォルダにメールを保存する

Question

特定のメール（チケット）をフォルダに保存します。

私の検索は私にこのポスト（Macro to save e-mail as text file, to be used in a rule）を送りました。

私は出力に私はOutlookがファイルアクセス権エラーのため保存を完了できません

取得件名ラインを作ってみます。

SenderNameまたはTime/Dateを使用すると動作します。

Public Sub SaveEmail(msg As Outlook.MailItem) 
    ' assume an email is selected 
    Set msg = ActiveExplorer.Selection.Item(1) 

    ' the 2nd and 3rd options work but the 1st does not 
    ' msg.SaveAs "C:\" & msg.Subject & ".msg", olTXT 
    ' msg.SaveAs "C:\" & Format(Now, "YYYYMMDDHHMMSS") & ".txt", olTXT 
    msg.SaveAs "C:\" & msg.SenderName & ".txt", olTXT 
End Sub 

Answer 1

ファイル名にすべての文字を使用できるわけではありません。すなわち、これら。

Asterisk (*) 
Backslash (\) 
Colon (:) 
Angle brackets (< >) 
Question mark (?) 
Slash (/) 
Plus sign (+) 
Pipe (|) 
Quotation mark (") 

あらかじめ書き込まれた機能を見つけて削除または置き換える場所が多数あります。ここには1つがあります：Remove Illegal Characters from Filename