0
Outlook 2013で開いている電子メールメッセージを読むモードで開いている場合、埋め込まれた添付ファイルとして他の人に転送するには、元のメールを再度見つける必要があります新しいメッセージや既存のメッセージや予定に添付してください。Outlookのクリップボードにメールオブジェクトをコピー
「ホーム>メッセージ>応答>詳細>フォワードを添付ファイルとして転送しています」の下にある「添付ファイルとして転送」ボタンとよく似ています。クリップボードにメールを送信します。この方法で私は任意の新しいメッセージ/予定/などにオブジェクトを追加することができます。
他のフォーラムのエントリは例えば、メールの本文をコピー：
- Copy email to the clipboard with Outlook VBA
- https://www.experts-exchange.com/questions/24515660/outlook-script-to-copy-email-to-clipboard.html
を私はしかし、完全なオブジェクトを持っているしたいと思います。
正しい表現を見つけるのに役立つ人がいますか？ 私は以下のコードの "M.HTMLBody"をオブジェクトのようなものに変更すると私は金色になります。
Sub Test()
Dim M As MailItem, Buf As MSForms.DataObject
Set M = ActiveExplorer().Selection.item(1)
Set Buf = New MSForms.DataObject
Buf.SetText M.HTMLBody
Buf.PutInClipboard
End Sub
事前に感謝します。
いつも新しいメールメッセージではないが、時には他の予定、OneNoteなどになるからだ。 – Bob
予定は、同じ方法で - AppointmentItem.Attachments.Add（YourMailItem）という埋め込みメッセージの添付ファイルを追加できる。 –
ポイントは、1つのボタンを作成してクリップボードにメッセージを表示する柔軟性が欲しいということです。その後、私は、予定、文書、PowerPointスライド、またはどこででもそれを好きにするかどうかを決めることができます。また、私は全く新しい電子メールや予定で始めるのではなく、開いている複数のメッセージを1つに貼り付けることもできます。したがって、クリップボードの機能は完全に適合します。 – Bob