みんなおはよう、
誰かがここでコーディングを手伝ってくれることを願っています。
選択した電子メールを特定のディレクトリに、電子メールの名前で、もちろん .msg ファイルとして保存しようとしています。これは私が今日持っているものであり、機能していません。ファイルを保存しますが、名前には最初の 2 文字しかありません (セミコロンのファイル名の後にエラーがあるように見えます。例: FW または RE)... ファイルの内容は空白で、ファイルタイプは適用されていません。
'code to save selected email
Dim selectedEmail As MailItem
Set selectedEmail = ActiveExplorer.Selection.Item(1)
Dim emailsub As String
emailsub = ActiveExplorer.Selection.Item(1).Subject
With selectedEmail
.SaveAs "C:\direcotry\folder\" & emailsub & ".msg", olMSG
End With
期待していただきありがとうございます。ドム